VB·ÃÎʾßÓдò¿ªÃÜÂëºÍ¹¤×÷×éÃÜÂëµÄACCESS
'Dim MyConn As New ADODB.Connection
'MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
'MyConn.Properties("Data Source") = SJK.TEXT
'MyConn.Properties("Jet OLEDB:System database") = GZZ.TEXT
'MyConn.Open UserID:=YHM.TEXT, Password:=MM.TEXT
'MyConn.Open Password:=MM2.TEXT
ÉÏÃæÊÇÎҵĴúÂë.¿ÉÊǵ±ÎÒÓÃÕâ¸ö´úÂëÀ´´ò¿ªÊý¾Ý¿âµÄʱºò Ìáʾ,ÃÜÂëÎÞЧ.Çë´óÅ£°ï°ïæ
ÎÒËùÓеķÖËÍÉÏ....
http://hi.baidu.com/micahel%C2%AC/blog/item/cef53c3ff35852ed55e72328.html
VB code:
If dmDataShapePrivider = 0 Then
strConnect = "Provider=MSDASQL.1"
ElseIf dmDataShapePrivider = 1 Then
strConnect = "Provider=MSDataShape.1;Data Provider=MSDASQL.1"
End If
strConnect = strConnect & _
";Driver={Microsoft Access Driver (*.mdb)}" & _
";DBQ=" & dmDataSource & _
";uid=" & dmUser & _
";pwd=" & dmPWD
ÎÒµÄÌì°¡
MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Integrated Security=SSPI;" _
& "Persist Security Info=False;Use
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
±¨Õâ¸ö´í:
compile Error
sub or function not defined
ºÍÎÒÒýÓÃÕâ¸ö¿âº¯ÊýÓйØÏµÂð£¿
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A> ......