vb 操作access数据库

2008-12-26 05:32:13 296 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ArcGIS Pro 3.0 加载天地图WMTS服务，解决偏移问题的保姆级教程（附最新Key申请流程）本文详细介绍了在ArcGIS Pro 3.0中精准加载天地图WMTS服务的全流程，包括最新Key申请流程、解决地图偏移问题的关键配置步骤以及常见问题排查方法。通过设置`esri`参数和统一坐标参考，确保地理数据与天地图底图精确匹配，提升GIS空间分析的准确性。阅读详情

有一个vb操作数据库的例子，想改成操作access2000以上版本的，数据库不怎么熟悉，不会改了，
大家给看看吧，谢了！该例用的是data控件和dbgrid控件，想改成使用DAO3.6对象或者ADO的都可以，实现
相同点功能。
Option Explicit
Dim db As Database '一个DAO对象

Private Sub Command1_Click() '选择一个数据库
With CommonDialog1
.Filter = "数据库文件(*.mdb)|*.mdb"
.ShowOpen
End With
Text1.Text = CommonDialog1.FileName
displaytable
End Sub

Private Sub Form_Load() '初始化界面
Dim dbname As String
Adodc1.Visible = False
DataGrid1.Visible = False
Set DataGrid1.DataSource = Adodc1
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "19.mdb"
Text1.Text = dbname
displaytable

End Sub

Private Sub List1_Click() '显示选择的表中的数据
Dim table_name As String
Dim sql As String
table_name = List1.List(List1.ListIndex)
sql = "SELECT * FROM " & table_name
Adodc1.Caption = table_name
Adodc1.RecordSource = sql
Adodc1.Refresh
Adodc1.Visible = True
DataGrid1.Visible = True
End Sub
Private Sub displaytable() '显示选择的数据库中的表名
Dim td As TableDef
Set db = OpenDatabase(Text1.Text)
List1.Clear
For Each td In db.TableDefs
If td.Attributes = 0 Then '仅仅显示用户表，不显示系统表
List1.AddItem td.Name
End If
Next td
db.Close
Adodc1.DatabaseName = Text1.Text
End Sub

...全文