Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÖÐÁí´æÎª¶Ô»°¿òµÄʹÓÃ

ÎÒÒªµ¼Èëµ¼³öÊý¾Ý¿âÎļþ£¬ÔÚµ½´¦µÄʱºòʹÓÃÁí´æÎª¶Ô»°¿ò£¬¾ßÌå´úÂëÊÇÈçºÎʵÏֵģ¿ÎÒÖ±½ÓÓÃcommondialog1.showsaveÖ®ºóµãÁí´æÎªÃ»ÓÐÏìÓ¦£¬ÊDz»ÊÇÒªÌí¼Óʲô´úÂ룿¼±£¡
Áí´æÎªÊ²Ã´¸ñʽµÄÎļþÄãÐèÒª¸æËß´ó¼Ò,дµ½²»Í¬ÀàÐ͵ÄÎļþÖÐÓõ½µÄ´úÂë²»Ò»Ñù

Áí´æÎªMDB£¬±ÈÈ磬ÎÒµ¼ÈëÊý¾Ý¿âµÄ´úÂëÈçÏ£º
VB code:

On Error Resume Next
CommonDialog1.Filter = "Access (*.mdb)|*.mdb|All files (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
If Err.Number = 32755 Then '¶Ô»°¿òµ¥»÷ È¡Ïû µÄ´¦Àí
Err.Clear
Exit Sub
End If

fn = CommonDialog1.FileName
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & _
"Data Source=" & CommonDialog1.FileName

Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from admin" 'admin»»³ÉÄã¿âÖÐÓеıíÃû
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1


ÏÖÔÚÐèÒªÁí´æÎªµÄ´úÂë

commondialog1.showsave¸úcommondialog1.showOpenÒ»Ñù£¬ËüÖ»¸øÄã·µ»ØÂ·¾¶ºÍÎļþÃû£¬¾ßÌåµÄ´ò¿ª»ò±£´æ²Ù×÷£¬¶¼ÊÇÒªÄã×Ô¼ºÐ´´úÂëÀ´Íê³ÉµÄ¡£

´Ócommondialog1.filename ÊôÐÔÖеõ½Â·¾¶ºÍÎļþÃû¡£


×îºÃÊDZðÓÃadodc¿Ø¼þ,¸ÄÓ


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

InstallShieldÖÆ×÷VB°²×°°ü

ÎÒÓÃInstallShield 10.0ÖÆ×÷ÁËÒ»¸öVB°²×°°ü
ÎÊÌâÊÇ£º
      ÔÚ±ðµÄ»ú×ÓÉϰ²×°ºó£¬ÔÚÔËÐгÌÐòµÄʱºò£¬ÌáʾdllÕÒ²»µ½£¬²»Äܵ÷Óá£

ÎÒÔÚÖÆ×÷°²×°°üµÄʱºò£¬½«exeÎļþ¡¢iniÎļþ¡¢Í¼Ðοؼþ£¨ ......

ÈçºÎÓÃVB×öÒ»¸ö»æÍ¼³ÌÐò

¹¦ÄÜ£ºÔÚÊäÈëµãµÄ×ø±êºó£¬»­³ö¶ÔÓ¦µÄµã£»ÔÚ»­Á˵ãºó£¬¿ÉÒÔÐ޸ĵãµÄ×ø±ê£¬²¢´Óл­£»Öظ´Ö±µ½Í¼ÐÎÂÖÀª»­Íê¡£²¢¿ÉÒÔ½«µãµÄ×ø±ê×÷ΪÎı¾ÎĵµÊä³ö¡£
ÎÒ²»ÖªµÀÔõôÄÜʵÏÖ£¬Ð»Ð»£¡
ÓÃPictureBoxʵÏÖ°É,ÐèÒª¶Ô×ø±êµ¥Î»» ......

vbÒþ²Ø´úÂë

  ÓÃvb×öºÃµÄÈí¼þ£¬ÏëÒª¼ÓÈë×Ô¶¯Òþ²ØµÄ¹¦ÄÜ£¬ÔÚÄÇÌí¼Ó°¡£¬»¹ÓÐÒþ²ØµÄ´úÂëÄÇÓа¡    ½èÓÃһϠ   лÁË
·½·¨1
Private Sub Form_Load()
Me.Height = 1 * Screen.TwipsPerPixelY
Me ......

VB Timer¿Ø¼þ

ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ

ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ