我想知道如何不利用AdoDC，而直接把ADO对象和DataGrid相连接

[yeyanbo]

我想知道如何不利用AdoDC，而直接把ADO对象和DataGrid相连接

[handsomge]

Set DateGrid.DataSource=Recordset

[palmkey]

Set DataGrid.DataSource=Recordset
datagrid.refresh

[yeyanbo]

能给个初始化的代码吗？

[frandyyue]

dim cn as new adodb.connection
dim rs as new adodb.recordset
con.open "DSN=databasename;UID=sa;"
rs.open cn,"select * from tablename",1,1
Set DataGrid.DataSource=Recordset

[frandyyue]

dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "DSN=databasename;UID=sa;"
rs.open cn,"select * from tablename",1,1
Set DataGrid.DataSource=rs

[yeyanbo]

不对，我怎么运行不了。

[yeyanbo]

myCon.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;" & "data source=" & App.Path & "\record\qb.mdb"
myCon.Open
Set myRS = myCon.OpenSchema(adSchemaTables)
While Not myRS.EOF
If UCase(myRS!TABLE_TYPE) = "TABLE" Then
TableName = myRS!TABLE_NAME
If TableName <> "xxx" Then ListView1.ListItems.Add , , TableName, 1
End If
myRS.MoveNext
Wend
myRS.Close
myRS.Open myCon, "select * from xxx", 1, 1
Set DataGrid1.DataSource = myRS
上面就是我的错误代码，大伙帮帮忙。

[gundam_king]

好像一个语句错了
myrs.open "select * from xxx", mycon,1,1

[acai_00233]

Dim mycon As New ADODB.Connection
Dim myrs As New ADODB.Recordset

mycon.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;" & "data source=" & App.Path & "\db1.mdb"
mycon.Open
Set myrs = New ADODB.Recordset
''While Not myrs.EOF
'' If UCase(myrs!TABLE_TYPE) = "TABLE" Then
'' TableName = myrs!TABLE_NAME
'' If TableName <> "xxx" Then ListView1.ListItems.Add , , TableName, 1
'' End If
'' myrs.MoveNext
''Wend
'' myrs.Close
myrs.Open "select * from ylbxypk", mycon, 1, 1
Set DataGrid1.DataSource = myrs
DataGrid1.Refresh
我这样运行是通过的！

[Sammi52]

''While Not myrs.EOF
'' If UCase(myrs!TABLE_TYPE) = "TABLE" Then
'' TableName = myrs!TABLE_NAME
'' If TableName <> "xxx" Then ListView1.ListItems.Add , , TableName, 1
'' End If
'' myrs.MoveNext
''Wend
'' myrs.Close
myrs还没有打开，While Not myrs.EOF当然错误