怎么用编写代码的方式使DataGrid显示数据

liuwei20000 2003-08-18 09:08:43
用Dim cnn As ADODB.Connection 连接数据库。如果打开一个form时,使其用
DataGrid控件显示一个sql查询结果。怎么用纯代码实现?
...全文
74 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
lihonggen0 2003-08-19
  • 打赏
  • 举报
回复
工程--->引用--->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;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"

CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic


Set DataGrid1.DataSource = Rs
lihonggen0 2003-08-19
  • 打赏
  • 举报
回复

工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"

CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic


Set DataGrid1.DataSource = Rs

free12345 2003-08-18
  • 打赏
  • 举报
回复
你想逐条填数据吗
liuwei20000 2003-08-18
  • 打赏
  • 举报
回复
如果不绑定ado呢,怎么实现?
free12345 2003-08-18
  • 打赏
  • 举报
回复
dim rs as adodb.recordset
rs.open "selet column from table ",cn,adodynamic
set datagrid.datasource=rs

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧