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¿Ø¼þ,¸ÄÓ
Ïà¹ØÎÊ´ð£º
ÔÚVBÖУ¬ÈçºÎÖ´ÐÐÏÂÃæµÄSQLÓï¾ä
Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber='0001'
±ÈÈ磺
cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber= ......
ÎÒÏëдһ¸öasp¶ÁÈ¡±¾µØ»ú×ÓµÄÍøÍ«µÄ¹¦ÄÜ£¬ÐèÒªÓÃvbдһ¸ödll ÔÚÍøÉÏÕÒÁËһϣ¬°ÑÏÂÃæµÄ¶Î¿½Èëvb¹¤³ÌÀ
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
¹¦ÄÜ£ºÔÚÊäÈëµãµÄ×ø±êºó£¬»³ö¶ÔÓ¦µÄµã£»ÔÚ»Á˵ãºó£¬¿ÉÒÔÐ޸ĵãµÄ×ø±ê£¬²¢´Óл£»Öظ´Ö±µ½Í¼ÐÎÂÖÀª»Íê¡£²¢¿ÉÒÔ½«µãµÄ×ø±ê×÷ΪÎı¾ÎĵµÊä³ö¡£
ÎÒ²»ÖªµÀÔõôÄÜʵÏÖ£¬Ð»Ð»£¡
ÓÃPictureBoxʵÏÖ°É,ÐèÒª¶Ô×ø±êµ¥Î»» ......
Ôõôµã»÷form2Éϵİ´Å¥ ¿ÉÒÔ½áÊøform1ÉÏÕýÔÚ½øÐеÄÑ»·
form1ÀïÃæÌí¼ÓÒ»¸ö±äÁ¿£º
Public bEnd As Boolean
Ñ»·´úÂëÌí¼Ó£º
bEnd = False
Do
...
If ......