vb Á¬½ÓAccess×Ö·û´®¡¢vbÁ¬½ÓDb2µÄ×Ö·û´®
DB2ConnectionString
b2str = "Provider=MSDASQL.1;Password=a$sk6G7;Persist Security Info=True;User ID=DBA;Data Source=ConDB2SFXXK"
AccessConnectonString
accessstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DMSJK.mdb;Jet OLEDB:database password="
Ïà¹ØÎĵµ£º
Microsoft JET Database Engine error '80004005'
Selected collating sequence not supported by the operating system.
ÊÇÒòΪ¹úÍâµÄÖ÷»ú²»Ö§³ÖMDBÎļþĬÈϵĺºÓïÆ´ÒôÅÅÐò·½Ê½
Ö»Òª°ÑÅÅÐò¸ÄΪ³£¹æ,ÈçÏÂͼ:
È»ºóÒÀ´Îµã»÷ ¹¤¾ß -> Êý¾Ý¿â³£Óù¤¾ß -> ѹËõºÍÐÞ¸´Êý¾Ý¿â
Ó¦¸Ã¾Í¿ÉÒÔÕý³£Ê¹ÓÃÁË.
ÉÏÎÄÀ´Ô´ÓÚ KinJ ......
ACCESSÊý¾Ý¿â½çÃæ£º
EXCELµÄ´°Ìå½çÃæ£º
´°ÌåÖеĴúÂ룺
Private Sub ComboBox1_Change()
Dim cn As Object, sql$, arr, i&
Set cn = CreateObject("adodb.connection")
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\ºǫ́.mdb"
Me.ListBox1.Clear
......
VBÈí¼þ¹¤³Ìʦ£º
ְλÃèÊö£º
1¡¢½øÐбàÂë¡¢²âÊÔ£»
2¡¢Ôڹ涨ʱ¼äÄÚÌá½»Ô´´úÂë¡£
¸ÚλҪÇó£º
1¡¢ÊìϤMS SQLÊý¾Ý¿â£»
2¡¢ÊìϤVB 6.0£»
3¡¢ÓÐÒµÎñϵͳ¿ª·¢¾Ñ飻
4¡¢¾ß±¸Á¼ºÃµÄÍŶӺÏ×÷¾«Éñ£¬ÇÚ·Ü¡¢ÉϽø£»
5¡¢´óר»òÕßÒÔÉÏѧÀú£»
6¡¢¾ßÓÐ1Äê»òÕßÒÔÉÏÏà¹Ø¹¤×÷¾Ñé £»
7¡¢ÊìϤC#ÓÅÏÈ¡£
VBÐÂÊÖ¡¢³õ¼¶³ÌÐòÔ±¹«Ë¾Ìṩרà ......
ÎÒÓÃVBÖ´ÐÐDOSÃüÁÉú³ÉÎı¾ÎļþËæ¼´´ò¿ª
µ«ÊÇÓÉÓÚÎı¾ÎļþÉú³ÉÐèÒªÒ»¶Îʱ¼ä£¬
»¹Î´µÈÎļþÉú³ÉÍê±ÏVB¾Í´ò¿ªÁËÕâ¸öÎļþ
ÇëÎÊÈçºÎÈóÌÐòµÈ´ýDOSÃüÁîÖ´ÐÐÍê±ÏÔÙ´ò¿ªÕâ¸öÎı¾Îļþ°¡
×îºÃ»¹ÄܼÓÉÏÒ»¸öµÈ´ýµÄ½ø¶ÈÌõÏÔʾÎı¾ÎļþµÄÉú³É¹ý³Ì
´úÂëÈçÏ£º
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......