没有access,能否用vb编个程序打开一个mdb文件中的一个表,就像用access打开那样,完整地把表展现出来,而不是用控件之类一个记录一个记录的显示.
解决方案 »
- 向数据库中添加数据
- 如何将我机器上的一个SQL SERVER 2000数据库备份文件,在其它机器上还原成SQL SERVER 2000数据库,如何操作恢复过程
- 连接数据库超时?
- 一个奇怪的图像灰度问题,高手请进,急啊!!!!!!!
- 程序中用到下载的控件,生成的exe文件在能在其他机器上正常运行吗?
- 请问DataGrid控件中返回具体某行某列的值该怎样编写代码实现啊????????????
- 很简单,在线等待!
- 请问怎样可以得到DCOM98??
- 唉,那里有VS.NET Beta2中文版买啊?!
- 使用了第三方控件的vb程序如何打包?
- ActiveDll中窗口模块怎么访问类模块中的属性?
- 怎样使用返回值的函数?vb初学请帮忙,必给分!
微软的网站和www.dapha.net有下载
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = Rs
我用ADO连接:
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Option ExplicitDim WithEvents adoRS As Recordset
Dim db As Connection
'提数据事件
Set db = New Connection
db.CursorLocation = adUseClient
db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
' ##########################################
'打开密码是1234的Access2000数据库db1.mdb
'不需要密码,就把Jet OLEDB:Database Password=1234;这段去掉 Set adoRS = New Recordset
adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
'赋值给 DataGrid 表
Set DataGrid1.DataSource = adoRS
'表刷新
DataGrid1.Refresh
'添加事件和保存
adoRS.AddNew
'保存
adoRS![字段a] = text1.Text
adoRS![字段b] = text2.Text
adoRS.UpdateBatch adAffectAll'删除
adoRS.Delete
'重新赋值给表
adoRS.Requery
Set DataGrid1.DataSource = adoRS
DataGrid1.Refresh '其他相关操作:
'上一条
If Not adoRS.BOF Then adoRS.MovePrevious
If adoRS.BOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveFirst
End If
'下一条
If Not adoRS.EOF Then adoRS.MoveNext '下一条
If adoRS.EOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveLast
End If
'第一条
If Not adoRS.BOF Then adoRS.MoveFirst
'最末
If Not adoRS.EOF Then adoRS.MoveLast