Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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²éѯÊý¾Ý¿âÎÊÌâ

ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

Éæ¼°µ½Ëã·¨£¬goog ......

vb²åÈëÊý¾Ý¿âÖظ´ÖµÎÊÌâ

ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......

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

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

ASP+ACCESSÊä³öÎÊÌâ - Web ¿ª·¢ / ASP

ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......

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

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

<?xml version="1.0" encoding="utf-8"? ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ