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

ÈõÈõµÄÎʾä 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 //Õâ¾äÕâ


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

DbgridÁ¬½ÓaccessÍ϶¯¹ö¶¯ÌõËÀ»ú£¿

DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿

ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿

Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£

ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ