简单问题：马上节贴

Question

如何在DataGrid中显示数据：使用ADO连接，但是不使用ADO控件
初学，无资料，谢谢大家！

Answer 1

在VC中可以用DataGrid1.SetRefDataSource( (LPUNKNOWN) pRst );但是，VB刚学的，不知道怎么用？

Answer 2

Private Sub Form_Load()
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                             IIf(Len(App.Path) > 3, App.Path & "\", App.Path) & "\test.mdb;Persist Security Info=False"
  Adodc1.CommandType = adCmdText
  Adodc1.RecordSource = "Select * from table1"
  Set DataGrid1.DataSource = Adodc1
End Sub

Answer 3

rs.open strSql,cn,1,3set datagrid1.datasource=rs

Answer 4

错了，你说不用控件的，应该是
Dim mconn As New ADODB.Connection
Dim mrst As New ADODB.Recordset
Private Sub Form_Load()
  mconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                             IIf(Len(App.Path) > 3, App.Path & "\", App.Path) & "\test.mdb;Persist Security Info=False"
  
  mrst.Open "Select * from table1", mconn, adOpenKeyset, adLockOptimistic
  Set DataGrid1.DataSource = mrst
End Sub

Answer 5

引用ado,新建连接，打开记录集
set datagrid1.datasource=rs

Answer 6

定义一个记录集，把它赋给DataGrid1.DataSource就行了
   
   

Answer 7

提醒一下，如果你的记录集mrst以adOpenDynamic方式打开，会出现错误，因为这种方式不支持book

Answer 8

'直接与ACCESS连接Dim Conn As New ADODB.Connection        '定义连接
Dim Reset As New ADODB.Recordset    '定义记录集
Dim SQLstr As String                '定义返回记录集的SQL语句变量
Dim i As Integer'-------------------------------------------------------------------------------------
Conn.Open "DBQ="& app.path &\test.mdb" & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'-------------------------------------------------------------------------------------SQLstr = "select * from xx"
Reset.CursorType = adOpenStatic
Reset.CursorLocation = adUseClient'返回记录集
Reset.Open SQLstr, Conn, , , adCmdText
set datagrid1.datasource=Reset

Answer 9

谢谢了，如果我想定时刷新DataGrid，是在定时器函数中用DataGrid1.Refresh()吗？

Answer 10

Dim dbAs New ADODB.Connection       
Dim rb As New ADODB.Recordset  
..
..
..
.
...
set datagrid1.datasource=db
datagrid1.datamember=rb

Answer 11

Private Sub Command1_Click()
    Dim oCn as ADODB.Connection
    Dim oRS as ADODB.Recordset
    
    oCn.CursorLocation = adUseClient
    Set oCn = New ADODB.Connection
    oCn.Open "Provider=SQLOLEDB.1;Data Source=ServerName;Initial Catalog=DataBaseName;User ID=UserID;Password=PWD;"
    Set oRS = New ADODB.Recordset
    oRS.Open "Select * From MyTable",oCn
    Set DataGrid.DataSource = oRS
End Sub

Answer 12

Private Sub Command1_Click()
Dim rsADO As New ADODB.Recordset
Dim cnADO As New ADODB.Connection
rsADO.CursorLocation = adUseClient   
Set cnADO = New ADODB.ConnectionOn Error GoTo ErrorA
IbmcnADO.Open "provider=Microsoft OLE DB Provider for Oracle;DATA SOURCE=oradb1;USER ID=usermq1;PASSWORD=8710009;Persist security info=true;"
ErrorA:
''MsgBox (Err.Description)
MsgBox ("数据库连接错误")
Resume NextSet rsADO = New ADODB.Recordset   
On Error GoTo ErrorB
rsADO.Open "select * from cp01",cnADO,adOpenKeyset,adLockOptimistic
ErrorB:
MsgBox ("记录集错误!")
Resume Next
Set DataGrid1.DataSource = IbmrsADO两种错误都有，不知道错在哪里呀？
改为 Provider=Oracle Provider for OLE DB 还是有错误？

Answer 13

Set DataGrid1.DataSource = rsADO