给你ado连接的例子
Dim recTest As New ADODB.Recordset
'conTest是数据库连接
recTest.Open "select * from table", conTest, adOpenDynamic, adLockBatchOptimistic
Set dategrid1.DataSource = recTest
Dim recTest As New ADODB.Recordset
'conTest是数据库连接
recTest.Open "select * from table", conTest, adOpenDynamic, adLockBatchOptimistic
Set dategrid1.DataSource = recTest
解决方案 »
- VB在报表中显示 某窗体控件的值 (例:文本框text、日期控件dtpicker等)
- 代码错误在哪里?
- 牌的判断问题```
- vb如何用代码定义一个窗体对象y和一个文本框对象tb,并将文本框对象tb添加到y窗体对象中
- 运行没有问题,但是dbf表是中的数据没有变化
- 序列图片保存成flash动画的问题
- 关于VB做COM的相关问题。
- 怎么利用win2000的信使服务制作一个局域网发送消息的软件?
- 找API电子书!俺的前天不小心删了,限制1MB以内
- 请问从DAO出的Recordset为什么不能赋给MSHFlexGrid的DataSource属性??
- 为什么我用DATAGRID控件编译的时候提示DATASOURCE属性无效?
- 请教怎样写函数
Dim mRs As New ADODB.Recordset
mConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\abc.mdb;"
mConn.CursorLocation = adUseClient '这一句容易忽略
mConn.Open
mRs.Open "select * from table1", mConn
Set DataGrid1.DataSource = mRs