请教VB中DataGrid控件连接Ado对象怎么做

[lixuanzhe]

我在窗口中应用一个DataGrid控件想与Ado对象连接！！请哪位大虾告知本人
本人在线等！！

[lixuanzhe]

Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mjdb;Data Source=MYPC"
con.Open str
rs.Open "select * from [fmrjob]", con
Set DataGrid1.DataSource = rs
End Sub
这段代码不好用！！提示--实时错误'7004'
行集合不能作为标签

[hbzza]

我有MSFLEXGRID的 虽然比datagrid烦 但是比他好控制
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset


Private Sub Form_Load()
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=."
rs.Open "select au_id,phone,city,state from authors", con, adOpenStatic, adLockOptimistic

showtitle

showdata
End Sub

Sub showtitle()
Dim i As Integer

With MSFlexGrid1
.Cols = 5
.TextMatrix(0, 1) = "作者编号"
.TextMatrix(0, 2) = "作者电话"
.TextMatrix(0, 3) = "作者城市"
.TextMatrix(0, 4) = "作者国家"

'固定表头
.FixedRows = 1

'设置各列的对齐方式
For i = 0 To 3
.ColAlignment(i) = 0
Next i

'设置单元大小
.ColWidth(0) = 300
.ColWidth(1) = 2000
.ColWidth(2) = 2000
.ColWidth(3) = 1500
.ColWidth(4) = 1500


End With
End Sub

Sub showdata()
With MSFlexGrid1
.Rows = 1

Do While Not rs.EOF
.Rows = .Rows + 1
For i = 1 To rs.Fields.Count
.TextMatrix(.Rows - 1, i) = rs.Fields(i - 1)
Next i
rs.MoveNext
Loop

End With
End Sub

[lixuanzhe]

MSFLEXGRID不是只读的嘛！！DataGrid不是可以更改嘛！！按要求！！不可以用的！！先谢了

[luckystone168]

需要ADODC控件支持,在此控件中把SQL写入自定义属性中,然后在DATAGIRD中在dataresource选择ADODC控件就可以拉