
2个回答
展开全部
我的就是全部。。自己试试。。
工程--部件--选中
microsoft ado data control 6.0
microsoft datagrid control 6.0
将这2个控件添加到窗体 代码如下
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=z:\db1.mdb"'自行修改数据库路径
Adodc1.RecordSource = "select * from 表1" '修改表名
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
工程--部件--选中
microsoft ado data control 6.0
microsoft datagrid control 6.0
将这2个控件添加到窗体 代码如下
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=z:\db1.mdb"'自行修改数据库路径
Adodc1.RecordSource = "select * from 表1" '修改表名
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
展开全部
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库地址;Persist Security Info=False"
conn.Open
sql="select id from 表A"
rs.open sql,conn,1,1
do while not rs.eof
print rs("字段名称")
rs.movenext
loop
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库地址;Persist Security Info=False"
conn.Open
sql="select id from 表A"
rs.open sql,conn,1,1
do while not rs.eof
print rs("字段名称")
rs.movenext
loop
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询