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

vb连接access数据库代码详细解释，以及后面的参数都帮我解释下吧，满意的给分

补充：我要的代码是用ADODB那个连接的，不是控件
		

答案：
用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控件再添其他内容。
第一步：建立一个标准EXE工程，并且在菜单--工程加添一个类模块和一个计时器(DataEnvironment1，可以在部件--设计器里找到)
第二步：在工程----引用----找到microsoft activex date objects 2.5 library并且在其前面勾选
第三步：点中设计器DataEnvironment1右键"查看对象"会弹出其相关属性，connection1右键---属性
  选中microsoft jet 4.0 ole db provider 继续“下一步(N)”,弹出“数据链接属性”选中“连接”选项卡，
   指定下列设置以连接到access数据：
  1.选择或输入数据库名称
   路径：自己选择access数据的路径...
   2.输入登录数据库的信息：
    用户名称：常规下默认为:admin
    密码：默认为空
   最后测试连接
测试连接成功后，把它的数据源connectionsource的路径复制过来。这时可以开始编写连接访问数据的代码了
把代码写在类模块里，代码如下：
Option Explicit '全局强制声明变量
Dim ADOLJ As Connection '定义一个连接对象的变量
Dim strACCESS As String '定义一个字符串变量(你可以理解为把access数据库的路径放在变量中方便调用，让字符串变量帮我们记住路径。)
Public Sub main()
strACCESS = "把刚才复制的路径粘贴在这里即可"
 Set ADOLJ = New Connection '定义一个新的连接对象
 ADOLJ.Open strACCESS  '用对象变量打开数据数据库(前面已提过了数据路径已经放在变量straccess中了)
 MsgBox "连接ACCESS 2003 成功", vbOKOnly, "提示"
 Form1.Show 1 '这里form1是主界面,可以理解为当正常连接到数据库的话那么就是显示主界面(具体是那个窗体作为主界面楼主可以自由选择)
 End Sub
为了节省篇幅，还有比较详细的步骤(比如相关的截图)我已省略掉，如果楼主还不能明白的话，那么可以参考我相关的回答 http://wenwen.zzzyk.com/z/q212566234.htm
最后切记要把sub main设为启动对象！
 
 
 
 
'使用方法，在打开窗体时用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.Recordset
Public 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 Sub
Public 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 Select
End 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

上一个：VB怎么读写INI文件
下一个：VB 问题 高人进 急用