vb连接access数据库代码详细解释

vb连接access数据库代码详细解释

用MICROSOFT jet 4.0 OLE DB Provider引擎连接ACCESS数据库,方法如下:
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中ACCESS数据库选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECt * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。

'使用方法，在打开窗体时用opendb即可，关闭用closedb,数据库文件你修改dbname变量'表操作 打开 openrs 1,"select * from ..." 关闭 closers 1我写了四个表操作变量，1234，你自己看着理解，你要会SQl语句，要不这也没有什么用。'数据库连接：放在一个模块里里面
Public Const DBName = "FoxData.mdb"
Public Const DBpass = ""
Public conn As New ADODB.Connection
Public Rs1 As New ADODB.Recordset
Public Rs2 As New ADODB.Recordset
Public Rs3 As New ADODB.Recordset
Public Rs4 As New ADODB.RecordsetPublic Sub OpenDB()
Dim DBpath As String
DBpath = App.Path + "\" + DBName
conn.Open "provider=Microsoft.Jet.oledb.4.0;data source=" & DBpath & ";Jet OLEDB:Database Password=" & DBpass & ";"
End Sub
'******************************************
'关闭数据库
Public Sub CloseDB()
On Error Resume Next
conn.Close
Set conn = Nothing
End SubPublic Sub OpenRs(ByVal RsNum As Integer, ByVal RsSql As String)
Select Case RsNum
Case 1: Rs1.Open RsSql, conn, adOpenKeyset, adLockPessimistic
Case 2: Rs2.Open RsSql, conn, adOpenKeyset, adLockPessimistic
Case 3: Rs3.Open RsSql, conn, adOpenKeyset, adLockPessimistic
Case 4: Rs4.Open RsSql, conn, adOpenKeyset, adLockPessimistic
End SelectEnd Sub
Public Sub CloseRs(ByVal RsNum As Integer)
Select Case RsNum
Case 1: Rs1.Close: Set Rs1 = Nothing
Case 2: Rs2.Close: Set Rs2 = Nothing
Case 3: Rs3.Close: Set Rs3 = Nothing
Case 4: Rs4.Close: Set Rs4 = Nothing
End Select
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息