ÈõÈõµÄÎʾä 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 //Õâ¾äÕâ
Ïà¹ØÎÊ´ð£º
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖظ´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖظ´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ÇëÎʸ÷λ´óʦ£¬ÎÒÏÖÔÚÐèÒª½«XMLµÄÊý¾ÝʵʱµÄ´æÈëµ½Êý¾Ý¿âÖУ¬ÎÒÊÇÓÃasp±àµÄ³ÌÐò£¬´óÁ¿ÃÇ°ïæ·ÖÎö һϣ¡£¡£¡
ÏÂÃæÊÇÎÒµÄXMLÎļþ´úÂë
XML code:
<?xml version="1.0" encoding="utf-8"? ......