求助高手关于数据库连接的详细方法~我用的数据库是ACCESS的，编程就是用VB的~~我想问下连接数据库的详细方法，就比如第一步怎么样怎么样，第二步怎么样怎么样等等~~~
我做的是学生成绩管理系统中的学生情况，现在论文要我写数据库与VB的连接，我不知道怎么用详细的方法写出连接，麻烦高手帮帮忙~~谢谢~~
追问：= =有点看不懂~~好长.....有没有点没这么多代码的解释啊~~我的"学生情况"只是我的"学生成绩管理系统"里的其中一个功能,因为我的论文是小组分工的,所以我只需要这功能连接数据库的方法就够了~~然后就是我那个系统的用户名和密码都为admin~~然后就是这个系统是我同学帮我做的，具体的不太懂~~~
= =||不好意思，麻烦了
答案：'//编写程序前，首先在工程中引用“Microsoft ActiveX Data Objects 2.1 Library”
'//
'//为了方便编程，我们自定义一个Access数据库连接函数AccessObject，
'//
'//
'__AccessObject原型
'{
Private Function AccessObject(ByRef Recordset As Object, ByRef Connection As Object, ByVal AccessPath As String, Optional ByVal Password As String) As Long
If Password <> "" Then '//判断是否带密码连接（如果：否）
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & AccessPath & ";" & _
"Jet OLEDB:Database password='" & Password & "';"
'//"Persist Security Info=False"
Else
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & AccessPath & ";"
'//"Persist Security Info=False"
End If
End Function
'}
'
'__调用AccessConect连接数据库
'{
Dim Rst As New ADODB.Recordset '//用于提出打开表的镜像
Dim Cnn As New ADODB.Connection '//用于连接数据库
'
Call AccessObject(Rst, Cnn, "数据库路径", "数据库密码") '//得到数据连接信息
Cnn.Open '//打开数据库
'//打开数据表 {
'Rst.Open "select 列名 from 表名 where 行定义=?", Cnn, adOpenStatic, adLockPessimistic
'
'例如：我们要打开数据库中的表(Table)中“帐号1”的密码，其结构图如下：
'//
'// 表(testTable)的结构
'// ------------------------
'//| 自动编号 | 帐号 | 密码
'//| 1 | id1 | pa1
'//| 2 | id2 | pa2
'//|
'//我们这样写（列名可以用 * 代表任意值，读取的时候在Fields中赋值）
'
Rst.Open "select * from testTable where 帐号='id1'", Cnn, adOpenStatic, adLockPessimistic
Msgbox Rst.Fields("密码")
Rst.Close
'}
Cnn.Close
'}不知道你是不是福建的……这次福建的高职单招专业测试就是学生管理系统…我打算做一套教程…目前做了一半了…你有兴趣我可以发给你
上一个：VB中模块与窗体有何区别与联系。
下一个：VB写俄罗斯方块！VB 高手进。
