ado 是否能于 MSFlexGrid1 连接

[lndlwwh830]

ado 可以与 datagrid连接
用set datagrid1.datasource=recordset

可是我用同样的方法与 MSFlexGrid1 却连接不上
它有解吗|？？-------------------------------

-----------------------------------------
我门用data控件是可以写 sql
data1.databasename="c:\d.mdb"

data1.recordsource="select * from tt"

我门以写这样的查询

我门可以写 添加，删出语句吗？？？

[qingming81]

MSFlexGrid1.recordsource = recordset

[chenkangli]

ado不能直接与msflexgrid相连

[ecivilian]

用MsHflexgrid ,这个肯定可以，而且好用。

[qingming81]

用ADODB查出的记录集，可以用同样的方法连接上

[qingming81]

用ADODB查出的记录集，可以用同样的方法连接上

[zmrok]

用ado对象是不能与MsHflexgrid 直接连接的,可以用代码

[of123]

MSFlexGrid1不支持ADO，也不支持运行时绑定。只能用DAO。

可以在设计时将MSFlexGrid1的datasource属性设置为Data1。

data1.databasename="c:\d.mdb"

data1.recordsource="select * from tt"

data2.recordset.delete '删除当前记录

data1.recordset.addnew
data1.recordset.fields("字段1") ＝ "......"
......
data1.recordset.update

[lndlwwh830]

那么MSFlexGrid1是不能与ado 通过代码连接的吗？？？data2.recordset.delete '删除当前记录

[zmrok]

Dim cnn1 As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Dim sql As String

Private Sub MSFlexGrid1_Click()'//////////////点击MSFlexGrid1
Dim i As Integer
i = Val(MSFlexGrid1.MouseRow)
If i < 1 Then
i = 1
End If
Text4.Text = MSFlexGrid1.TextMatrix(i, 0)'/////////显示记录的id
Text1.Text = MSFlexGrid1.TextMatrix(i, 1)
Combo1.Text = MSFlexGrid1.TextMatrix(i, 2)
Command5.Enabled = True
Command6.Enabled = True'删除按纽变亮
Command5.SetFocus
Command4.Enabled = False
End Sub
'//////////////删除代码
If vbNo = (MsgBox("当前操作将不可逆！是否真的要删除？", vbYesNo + vbQuestion, "警告！")) Then
Exit Sub
Else
cnn1.Open
sql = "delete from 操作员档案 where id =" + Text4.Text
Set myrs = cnn1.Execute(sql)
If MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
Else
For i = MSFlexGrid1.Row + 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 0
ll1 = MSFlexGrid1
MSFlexGrid1.Col = 1
ll2 = MSFlexGrid1
MSFlexGrid1.Col = 2
ll3 = MSFlexGrid1
MSFlexGrid1.Row = i - 1
MSFlexGrid1.Col = 0
MSFlexGrid1 = ll1
MSFlexGrid1.Col = 1
MSFlexGrid1 = ll2
MSFlexGrid1.Col = 2
MSFlexGrid1 = ll3
Next
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1

End If
cnn1.close
end if

[还想懒够]

非得这么费劲干嘛，将mshflexgrid换成mshflexgrid不就完事了么？这两个控件的所有属性方法都一样。

还有，如果非要强行连接，那也没有什么问题，用代码控制就行了，用一堆的变量或数组变量存放ado读出来的记录，然后再写入控件，好像麻烦了一点儿啊。

[lndlwwh830]

我说的只是如何让ado 再代码下与mshflexgrid 连接
datagrid的连接方式是

dim re as recordset
set datagrid1.datasource=re

那么mshflexgrid
的连接是怎么连接


废话少说

[vv1vv]

msHflexgrid 可以与ADO连接
msflexgrid 则不可以

[cuijiajian]

MSflexgrid不可以直接与ADO连接

[baiyga]

当然可以啊!!

而且数据连结起来很方便的!!!