Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÐÞ¸Ä×¢²á±í

ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......

Access²éÕÒÖØ¸´ÎÊÌâ - ÆäËûÊý¾Ý¿â¿ª·¢ / Access

ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......

ÈçºÎ½«XMLÊý¾Ý´æÈëACCESSÊý¾Ý¿â

ÇëÎʸ÷λ´óʦ£¬ÎÒÏÖÔÚÐèÒª½«XMLµÄÊý¾ÝʵʱµÄ´æÈëµ½Êý¾Ý¿âÖУ¬ÎÒÊÇÓÃasp±àµÄ³ÌÐò£¬´óÁ¿Ãǰïæ·ÖÎö һϣ¡£¡£¡
ÏÂÃæÊÇÎÒµÄXMLÎļþ´úÂë
XML code:

<?xml version="1.0" encoding="utf-8"? ......

vb.net ´´½¨accessÊý¾Ý±íʵÏÖÒ»Êý¾Ý¿â¶à¸öÊý¾Ý±í£¿

Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ