'在菜单:工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library '在窗体的Form_Load事件里面写如下代码: Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim SqlStr As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111" SqlStr = "Select * From 用户表 where 用户名称 Like '" & Text1.Text & "%'" rst.CursorLocation = adUseClient rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集 Set DataGrid1.DataSource = rst '给DataGrid修改数据源Private Sub Command1_Click() Dim cn As New ADODB.Connection'声明一个连接对象 Dim rst As New ADODB.Recordset'声明一个记录集对象 Dim SqlStr As String'声明一个字符串变量 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111" '上面是连接到数据库 SqlStr = "Select * From 用户表" rst.CursorLocation = adUseClient'设置游标位置 rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集 rst.Fields("用户名称").Value = Text1.Text'修改记录集中第一条记录"用户名称"字段的数值 rst.Fields("用户口令").Value = Text2.Text'修改记录集中第一条记录"用户口令"字段的数值 rst.UpdateBatch '提交,就是写到硬盘的数据库文件 rst.Close '关闭记录集 Set rst = Nothing '释放 cn.Close '关闭连接 Set cn = Nothing '释放 End Sub
VB如何与ACCESS数据库连接 方法1 建立一个模块 将工程的启动设置为 SUB MAIN 在模块里写下面代码 Public db As Database Public rs As Recordset Sub main() set db=db.opendatabase("数据库路径") (建议用相对路径--就是把数据库文件和工程文件放在同一目录下--相对路径就是APP.PATH+"数据库名带后缀") 第一启动窗体(如:form1).show end sub 以后在其他窗体中如果要调用数据库只用在窗体中写代码 set rs=openrecordset(<可以是数据库的表--如"student",也可以是查询语句--如"select* form student">) 这时数据库的内容都存在FILE集合里 比方说set rs=openrecordset("select* form student") rs.file(0)就是SQL语句查询结果的第一列 rs.files就是整个结果 使用text1.text=rs.file(0)就可以把文本框于查询结果绑定起来 如果要对数据库进行修这时用以下代码: db.Execute (<SQL语句--如"insert into student(sno,sname) value("","")">) 方法2 工程--部件--选择microsoft data bound grid control 5.0 然后在窗体中添加左边工具栏的 DATA 和DBGRID 控件 选择DBGRID 将属性DATASOURCE 设置为DATA控件的名字(如DATA1) 然后选择DATA 将属性CONNECT设置为ACCESSS 2000 设置DATABASENAME 选择数据库的存放路径 最后设置RECORDSET 为需要连接的表的名字 运行就可以看到 DATAGRID中显示了数据库的信息 方法3 Dim con as ADODB.Connection Set con = New ADODB.Connection con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False" 或者 Dim con as new ADODB.Connection con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False" con.open 不要忘了加引用数据库引擎
Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset 'dingyijlj Dim SqlStr As String
'在窗体的Form_Load事件里面写如下代码:
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = "Select * From 用户表 where 用户名称 Like '" & Text1.Text & "%'"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源Private Sub Command1_Click()
Dim cn As New ADODB.Connection'声明一个连接对象
Dim rst As New ADODB.Recordset'声明一个记录集对象
Dim SqlStr As String'声明一个字符串变量
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
'上面是连接到数据库
SqlStr = "Select * From 用户表"
rst.CursorLocation = adUseClient'设置游标位置
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
rst.Fields("用户名称").Value = Text1.Text'修改记录集中第一条记录"用户名称"字段的数值
rst.Fields("用户口令").Value = Text2.Text'修改记录集中第一条记录"用户口令"字段的数值
rst.UpdateBatch '提交,就是写到硬盘的数据库文件
rst.Close '关闭记录集
Set rst = Nothing '释放
cn.Close '关闭连接
Set cn = Nothing '释放
End Sub
方法1
建立一个模块
将工程的启动设置为 SUB MAIN
在模块里写下面代码
Public db As Database
Public rs As Recordset
Sub main()
set db=db.opendatabase("数据库路径") (建议用相对路径--就是把数据库文件和工程文件放在同一目录下--相对路径就是APP.PATH+"数据库名带后缀")
第一启动窗体(如:form1).show
end sub
以后在其他窗体中如果要调用数据库只用在窗体中写代码
set rs=openrecordset(<可以是数据库的表--如"student",也可以是查询语句--如"select* form student">)
这时数据库的内容都存在FILE集合里
比方说set rs=openrecordset("select* form student")
rs.file(0)就是SQL语句查询结果的第一列
rs.files就是整个结果
使用text1.text=rs.file(0)就可以把文本框于查询结果绑定起来
如果要对数据库进行修这时用以下代码:
db.Execute (<SQL语句--如"insert into student(sno,sname) value("","")">)
方法2
工程--部件--选择microsoft data bound grid control 5.0
然后在窗体中添加左边工具栏的 DATA 和DBGRID 控件
选择DBGRID 将属性DATASOURCE 设置为DATA控件的名字(如DATA1)
然后选择DATA 将属性CONNECT设置为ACCESSS 2000
设置DATABASENAME 选择数据库的存放路径
最后设置RECORDSET 为需要连接的表的名字
运行就可以看到 DATAGRID中显示了数据库的信息
方法3
Dim con as ADODB.Connection
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
或者
Dim con as new ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
con.open
不要忘了加引用数据库引擎
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset 'dingyijlj
Dim SqlStr As String