Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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="


Ïà¹ØÎĵµ£º

¹úÍâÖ÷»úACCESS´íÎó80004005

Microsoft JET Database Engine error '80004005'
Selected collating sequence not supported by the operating system.
ÊÇÒòΪ¹úÍâµÄÖ÷»ú²»Ö§³ÖMDBÎļþĬÈϵĺºÓïÆ´ÒôÅÅÐò·½Ê½
Ö»Òª°ÑÅÅÐò¸ÄΪ³£¹æ,ÈçÏÂͼ:
È»ºóÒÀ´Îµã»÷ ¹¤¾ß -> Êý¾Ý¿â³£Óù¤¾ß -> ѹËõºÍÐÞ¸´Êý¾Ý¿â
Ó¦¸Ã¾Í¿ÉÒÔÕý³£Ê¹ÓÃÁË.
ÉÏÎÄÀ´Ô´ÓÚ KinJ ......

EXCEL´ÓACCESSÖÐȡֵ

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 coding

1.ÓÃVB6ÅжÏÎļþ´æÔÚÃî·¨
ÔÚ±à³Ìʱ¾­³£»áÓõ½ÅжÏÎļþÊÇ·ñ´æÔÚ£¬±ÈÈç¶ÔÎļþ×ö¶Áд²Ù×÷ǰ£¬»òÊÇÅжÏÃÜÔ¿ÎļþÊÇ·ñ´æÔڵȡ£Åжϵķ½·¨Óкܶ࣬ÓÐЩ·½·¨ËäºÜʵÓ㬵«Óе㷱Ëö¡£Æäʵ»¹¿ÉÒÔÓиü¼òµ¥µÄ·½·¨£¬¾ÍÊÇʹÓÃVB 6.0ÌṩµÄFileSystemObject¶ÔÏó¡£
¡¡¡¡FileSystemObject¶ÔÏó²»ÊÇVBÄÚÖöÔÏó£¬Ê¹ÓÃǰ±ØÐëÊ×ÏÈÑ¡Ôñ[¹¤³Ì]&rar ......

AccessÊý¾Ý¿â°²È«ÉèÖü¼ÇÉ

²¿·ÖÂÛ̳ÐÂÊÖÃÇû¾¯Ìè×Ô¼ºÂÛ̳Êý¾Ý¿â´æÔÚµÄΣÏÕ£¬ËùÒÔ»¹ÊÇ ¾ö¶¨ÒÔDvbbs7.0ΪÀý£¬½éÉÜÒ»ÏÂÈçºÎ±£»¤ºÃÄãµÄAccessÊý¾Ý¿â ¡£Ïл°ÐÝ˵£¬ÇëÍùÏ¿´£º
1¡¢¸øÄãµÄAccessÊý¾Ý¿â¼ÓÉÏÃÜÂë±£»¤£¨ÆäʵAccessÊý¾Ý¿â µÄÃÜÂë±£»¤·Ç³£´àÈõ£¬ÕâÀֻÊǸøËû¶à¼ÓÉÏÒ»°ÑËø¶øÒÑ£©¡£
a.´ò¿ªMicroSoft AccessÈí¼þ£¬ÊÇÓöÀÕ¼·½Ê½´ò¿ªÄãµÄDVÂÛ Ì³Êý¾ ......

VBÔËÐÐDOSÃüÁîÉú³ÉÎı¾Îļþ²¢´ò¿ª´¦ÀíµÄÎÊÌâ

ÎÒÓÃVBÖ´ÐÐDOSÃüÁÉú³ÉÎı¾ÎļþËæ¼´´ò¿ª
µ«ÊÇÓÉÓÚÎı¾ÎļþÉú³ÉÐèÒªÒ»¶Îʱ¼ä£¬
»¹Î´µÈÎļþÉú³ÉÍê±ÏVB¾Í´ò¿ªÁËÕâ¸öÎļþ
ÇëÎÊÈçºÎÈóÌÐòµÈ´ýDOSÃüÁîÖ´ÐÐÍê±ÏÔÙ´ò¿ªÕâ¸öÎı¾Îļþ°¡
×îºÃ»¹ÄܼÓÉÏÒ»¸öµÈ´ýµÄ½ø¶ÈÌõÏÔʾÎı¾ÎļþµÄÉú³É¹ý³Ì
´úÂëÈçÏ£º
Shell "cmd  /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ