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
......
1.ÓÃVB6ÅжÏÎļþ´æÔÚÃî·¨
ÔÚ±à³Ìʱ¾³£»áÓõ½ÅжÏÎļþÊÇ·ñ´æÔÚ£¬±ÈÈç¶ÔÎļþ×ö¶Áд²Ù×÷ǰ£¬»òÊÇÅжÏÃÜÔ¿ÎļþÊÇ·ñ´æÔڵȡ£Åжϵķ½·¨Óкܶ࣬ÓÐЩ·½·¨ËäºÜʵÓ㬵«Óе㷱Ëö¡£Æäʵ»¹¿ÉÒÔÓиü¼òµ¥µÄ·½·¨£¬¾ÍÊÇʹÓÃVB 6.0ÌṩµÄFileSystemObject¶ÔÏó¡£
¡¡¡¡FileSystemObject¶ÔÏó²»ÊÇVBÄÚÖöÔÏó£¬Ê¹ÓÃǰ±ØÐëÊ×ÏÈÑ¡Ôñ[¹¤³Ì]&rar ......
²¿·ÖÂÛ̳ÐÂÊÖÃÇû¾¯Ìè×Ô¼ºÂÛ̳Êý¾Ý¿â´æÔÚµÄΣÏÕ£¬ËùÒÔ»¹ÊÇ ¾ö¶¨ÒÔDvbbs7.0ΪÀý£¬½éÉÜÒ»ÏÂÈçºÎ±£»¤ºÃÄãµÄAccessÊý¾Ý¿â ¡£Ïл°ÐÝ˵£¬ÇëÍùÏ¿´£º
1¡¢¸øÄãµÄAccessÊý¾Ý¿â¼ÓÉÏÃÜÂë±£»¤£¨ÆäʵAccessÊý¾Ý¿â µÄÃÜÂë±£»¤·Ç³£´àÈõ£¬ÕâÀֻÊǸøËû¶à¼ÓÉÏÒ»°ÑËø¶øÒÑ£©¡£
a.´ò¿ªMicroSoft AccessÈí¼þ£¬ÊÇÓöÀÕ¼·½Ê½´ò¿ªÄãµÄDVÂÛ Ì³Êý¾ ......
ÎÒÓÃVBÖ´ÐÐDOSÃüÁÉú³ÉÎı¾ÎļþËæ¼´´ò¿ª
µ«ÊÇÓÉÓÚÎı¾ÎļþÉú³ÉÐèÒªÒ»¶Îʱ¼ä£¬
»¹Î´µÈÎļþÉú³ÉÍê±ÏVB¾Í´ò¿ªÁËÕâ¸öÎļþ
ÇëÎÊÈçºÎÈóÌÐòµÈ´ýDOSÃüÁîÖ´ÐÐÍê±ÏÔÙ´ò¿ªÕâ¸öÎı¾Îļþ°¡
×îºÃ»¹ÄܼÓÉÏÒ»¸öµÈ´ýµÄ½ø¶ÈÌõÏÔʾÎı¾ÎļþµÄÉú³É¹ý³Ì
´úÂëÈçÏ£º
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......