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
Ïà¹ØÎÊ´ð£º
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A> ......