查询与连接

[fengyetianshi]

我是用DATA控件与MSFLEXGRID控件连接的,怎样来查询呢,并且怎样用MSFlexGrid控件来显示所查询的记录呢？

[yoki]

rs.open "select * from table1 where id>3",cn
set msflexgrid.datasource=rs

• 打赏
• 举报

回复 赞

[饮水需思源]

改用ADO控件吧，好像DATA不支持mfhflexgrid

• 打赏
• 举报

回复 赞

[螺丝刀2000]

up

• 打赏
• 举报

回复 赞

[SoHo_Andy]

使用ADO记录集对象就行查询，将查询结果重新绑定到datagrid
代码如 yoki(小马哥) 所写

• 打赏
• 举报

回复 赞

[SuperZhou]

推荐用ADO对象
设置网格的DataSource属性为记录集就可以了

• 打赏
• 举报

回复 赞

[lion_wing]

ADO比较好

• 打赏
• 举报

回复 赞

[fengyetianshi]

ADO对象我没用过，请问怎样来用?

• 打赏
• 举报

回复 赞

[yoki]

这个不是三言两语所能说清的，建议你下载一个ado的帮助去看吧

• 打赏
• 举报

回复 赞

[XMLWeb]

Public Sub Pr_EPD_DBConn()
On Error GoTo Err
Set conn = New adodb.Connection
Set cmd = New adodb.Command
Set Rs = New adodb.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=zxg;Persist Security Info=True;User ID=zxg;Initial Catalog=yourdatabasename;Data Source=dataservername"
conn.CursorLocation = adUseClient
conn.CommandTimeout = 30
' conn.Mode = adModeReadWrite
conn.Open
Exit Sub
Err:
msg = "数据库联接失败，请与系统管理员联系！"
MsgBox msg, vbCritical, title
End Sub
Private Function BlnParent_Code_Query() As Boolean
Call Pr_EPD_DBConn ' open database
With cmd
.ActiveConnection = conn
.CommandType = adCmdText
.CommandText = "select * from tablename"
.Execute
End With
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Open cmd
If Not .EOF Then
Set DataGrid2.DataSource = Rs
End If
End With
End Function
private sub command1_click()
BlnParent_Code_Query

end sub

• 打赏
• 举报

回复 赞

[taosihai1only]

rs.open "select * from table1 where id>'5'",cn
set msflexgrid.datasource=rs

• 打赏
• 举报

回复 赞