ÈõÈõµÄÎʾä VB6.0¸úACCESS 2003ÔõôÁ¬½Ó£¿
µÚÒ»´ÎÓÃVB6+ACCESS2003×ö¸öС¶«Î÷£¬µ«ÒÔADO·½Ê½Á¬½ÓµÄʱºò×ÜÌáʾ ʵʱ´íÎó¡®3704¡¯ ¶ÔÏ󹨱Õʱ ²»ÔÊÐí²Ù×÷
ÎÒ´òÁËSP6µÄ²¹¶¡»¹ÊDz»ÐÐ Õâ¸öÎÊÌâ±ïÁ½ÌìÁË»¹Ã»½â¾öÁË£¬Ï£Íû´ó´ó¸ø¸ö½â¾ö·½·¨ ×îºÃ´ø´úÂë СµÜ°ÝлÁË
//ÕâÊÇpublic moduleÀïÃæµÄ¶«Î÷
Option Explicit
Public dbConn As New ADODB.Connection
Public loginOK As Boolean
Sub Main()
If ConnectToDatabase = False Then
MsgBox "Á¬½ÓÊý¾Ý¿â³ö´í£¡"
End
End If
loginOK = False
If loginOK Then
formDesign.Show
End If
End Sub
' Á¬½Óµ½Êý¾Ý¿â
Function ConnectToDatabase() As Boolean
On Error GoTo ERR_CONN
' ÉèÖ÷þÎñÆ÷Ãû³Æ£¬Êý¾Ý¿âÃû³Æ£¬µÇ¼Ãû(´Ëʱ¼ÙÉèÃÜÂëΪ¿Õ)
dbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\ÎÒµÄÎĵµ\db1.mdb ;Persist Security Info=False"
dbConn.Open
ConnectToDatabase = True
Exit Function
ERR_CONN:
ConnectToDatabase = False
End Function
Dim strSql As String
//...
strSql = "Insert into design (Ðͺţ¬ÈÕÆÚ£¬¿Í»§,..)" //¸Ã¾äÌ«³¤ ¾Íû´ò³öÀ´ÁË
dbConn.Execute strSql //Õâ¾äÕâ
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......