UC知道vb连接access数据库
来源：百度知道 编辑：UC知道 时间：2024/05/22 10:39:31
打开数据库的表文件，并把文件内容显示在LIST中
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.mdb)|*.mdb"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
用这个代码打开文件,要怎么怎么知道数据库名
表里有700条数据,怎么依次显示出来
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.mdb)|*.mdb"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
用这个代码打开文件,要怎么怎么知道数据库名
表里有700条数据,怎么依次显示出来
对问题补充的答复
Set Mydb = OpenDatabase(CommonDialog1.filename,True, False)
Set rs = Mydb.OpenRecordset("表名")
If rs.RecordCount = 0 Then
GoTo abc
Else
rs.MoveFirst
for i=0 to rs.recordcount-1
list1.additem rs(...)
next
End If
abc:
参考参考吧！呵呵。当然有些像数据添加还有待加工加工，比如有很多字段就要考虑将各字段连接起来，自己动动手嘛！