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
Ïà¹ØÎÊ´ð£º
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A> ......