怎么让DataGrid用ADODB数据源？

Question

知道用Datagrid中的DataSoure属性可以连接ADODC数据控件，但是如何让DataGrid与ADODB数据对象相连接呢？

Answer 1

用对象的话更好些。Private Rs As New ADODB.Recordset
Private Conn As New ADODB.ConnectionPrivate Sub Form_Load()
 Dim strConn As String
 
 ' 连接数据库的字符串
 ' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
 ' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' 使用客户端数据游标
 Conn.CursorLocation = adUseClient
 ' 打开Access的连接
 Conn.Open strConn
 
 ' 如果RecordSet的状态不是关闭状态,则关闭Recordset
 If Rs.State <> adStateClosed Then Rs.Close
 
 ' Recordser打开表People
 Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic
 
 ' 报告出 一共多少笔数据,测试是否存在数据
 ' MsgBox Rs.RecordCount
 
 ' 绑定进DataGrid
 Set DataGrid1.DataSource = Rs
 
End Sub

Answer 2

这个是用adodb。4、 如何用Adodc动态的进行绑定。
Adodc控件可以在属性叶面对数据库进行连接，但是这样的连接数据库很死，而且弄不好，连接字符就没有了，所以在程序中用代码进行连接的话，方便得多。
在增加与删除其实Adodc控件与Recordset的区别只是把 Recordset更换成Adodc1.Recordset
RecordSet的增加：Rs.AddNew，Adodc的增加：Adodc1.Recordset.AddNew
示范：
'--如何用Adodc控件代码去连接Access
Private Sub Command1_Click()
 Dim strConn As String
 
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' adodc的连接字符串
 Adodc1.ConnectionString = strConn
 
 ' 指定Command对象的形态
 Adodc1.CommandType = adCmdText
 
 ' 设置传回一个资料录集。
 Adodc1.RecordSource = "Select * from People"
 
 ' 将记录集合绑定DataGrid1
 Set DataGrid2.DataSource = Adodc1
End Sub

Answer 3

呵呵，我记得VB中间好像有一个Data Environment绑定的。

Answer 4

Set DataGrid1.DataSource = Rs

Answer 5

private cn as adodb.connection
pritave rs as adodb.recordset
set cn=new adodb.connection
cn.connectionstring =""   '连接字符串
cn.open
set rs=new adodb.recordset
rs.cursorlocation=aduseclient
rs.open "table",cn,adopendynamic,adlockoptimistic,adcmdtable
set datagrid1.datasource=rs

Answer 6

daisy8675(莫依)  大哥用SQL语句得到记录，显示在datagrid中，形式比灵活，我用的是表的形式（即不需SQL查寻数据），形式固定，楼主可以参考这两种方法，daisy8675(莫依) 我写的和daisy8675(莫依)大哥基本上相似，所以就不做注释了

Answer 7

定义完你的ADO
用Set DataGrid1.DataSource = Rs 来绑定
就可以了

Answer 8

//daisy8675(莫依)大哥==========================嘿嘿嘿嘿嘿

Answer 9

Set DataGrid.DataSource = Adodc

Answer 10

Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset 
    cn.CursorLocation = adUseClient
    cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data   Source=数据源"
    cn.ConnectionTimeout = 30
    cn.Openset rs=cn.excute("sql语句")
Set DataGrid.DataSource = rs
datagrid.refresh

Answer 11

恩恩,大家把对的都说了一遍.
可以直接从控件库中拖一个adodc的控件
先改它的connectString属性
然后根据提示可以选择表,sql语句等等