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="
Ïà¹ØÎĵµ£º
ÔÚVB Öе÷Óö¯Ì¬Á¬½Ó¿â
2001-11-08· · ··yesky
1 2 3 4 5 6 7 8 ÏÂÒ»Ò³
¡¡¡¡×÷ΪһÖÖ¼òµ¥Ò×ÓõÄWindows¿ª·¢»·¾³£¬Visual Basic´ÓÒ»ÍÆ³ö¾ÍÊܵ½Á˹ã´ó±à³ÌÈËÔ±µÄ»¶Ó¡£Ëüʹ ³ÌÐòÔ±²»±ØÔÙÖ±½ÓÃæ¶Ô·×·±¸´ÔÓµÄWindowsÏûÏ¢£¬¶ø¿ÉÒÔ½«¾«Á¦Ö÷Òª¼¯ÖÐÔÚ³ÌÐò¹¦ÄܵÄʵÏÖÉÏ£¬´ó´óÌá¸ßÁ˱ ......
¾Ý˵vb6ÖÐ,×Ö ·û´®ÒÔÒÔUNICODE·½Ê½´æ´¢£¬ËùÒÔ
Private Type UDT
lngM1 As Long
lngM2 As Long
strM3 As String * 18
strM4 As String * 8
lngM5 As Long
End Type
Private Sub Command4_Click()
Dim tmp As UDT
With tmp
.lngM1 = 1
.lngM2 = 2
' .str ......
²¿·ÖÂÛ̳ÐÂÊÖÃÇû¾¯Ìè×Ô¼ºÂÛ̳Êý¾Ý¿â´æÔÚµÄΣÏÕ£¬ËùÒÔ»¹ÊÇ ¾ö¶¨ÒÔDvbbs7.0ΪÀý£¬½éÉÜÒ»ÏÂÈçºÎ±£»¤ºÃÄãµÄAccessÊý¾Ý¿â ¡£Ïл°ÐÝ˵£¬ÇëÍùÏ¿´£º
1¡¢¸øÄãµÄAccessÊý¾Ý¿â¼ÓÉÏÃÜÂë±£»¤£¨ÆäʵAccessÊý¾Ý¿â µÄÃÜÂë±£»¤·Ç³£´àÈõ£¬ÕâÀֻÊǸøËû¶à¼ÓÉÏÒ»°ÑËø¶øÒÑ£©¡£
a.´ò¿ªMicroSoft AccessÈí¼þ£¬ÊÇÓöÀÕ¼·½Ê½´ò¿ªÄãµÄDVÂÛ Ì³Êý¾ ......
½ñÌìÔÚÓÃC#´´½¨AccessÊý¾Ý¿âµÄʱºòÓöµ½ÁËÒ»¸ö×Ö¶ÎÀàÐ͵ÄÎÊÌ⣬ÒòΪ³ÌÐò´´½¨Êý¾Ý¿â±íÕâ¸öÔÚSqlServerÉϱȽϳ£¼û£¬ÔÚ°Ù¶ÈÖÐÕÒÁ˺ܾ㬰ÑÏà¹ØµÄÊôÐԳ¼ÏÂÀ´°É£¬ÒÔ¹©ÒÔºóʹÓá£
1¡¢¶¯Ì¬´´½¨AccessÊý¾Ý¿â£º±¾È˾õµÃÓÃADOXµÄ·½Ê½¼òµ¥ÊǼòµ¥£¬µ«ÊÇ»¹ÊÇÐèÒªÒ»¸öDLL×齨·½¿ÉÒÔʵÏÖÊý¾Ý¿âµÄ´´½¨£¬ËùÒÔÄÇÎÒÃǾͻ»¸ö˼·°É£¬ÎªÊ²Ã´²»¿ ......