1,217
社区成员
发帖
与我相关
我的任务
分享查询与连接
我是用DATA控件与MSFLEXGRID控件连接的,怎样来查询呢,并且怎样用MSFlexGrid控件来显示所查询的记录呢？
...全文
请发表友善的回复…
发表回复
taosihai1only 2003-12-14
- 打赏
- 举报
rs.open "select * from table1 where id>'5'",cn
set msflexgrid.datasource=rs
set msflexgrid.datasource=rs
XMLWeb 2003-12-13
- 打赏
- 举报
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
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
yoki 2003-12-13
- 打赏
- 举报
这个不是三言两语所能说清的，建议你下载一个ado的帮助去看吧
fengyetianshi 2003-12-12
- 打赏
- 举报
ADO对象我没用过，请问怎样来用?
lion_wing 2003-12-12
- 打赏
- 举报
ADO比较好
SuperZhou 2003-12-12
- 打赏
- 举报
推荐用ADO对象
设置网格的DataSource属性为记录集就可以了
设置网格的DataSource属性为记录集就可以了
SoHo_Andy 2003-12-12
- 打赏
- 举报
使用ADO记录集对象就行查询，将查询结果重新绑定到datagrid
代码如 yoki(小马哥) 所写
代码如 yoki(小马哥) 所写
螺丝刀2000 2003-12-12
- 打赏
- 举报
up
饮水需思源 2003-12-12
- 打赏
- 举报
改用ADO控件吧，好像DATA不支持mfhflexgrid
yoki 2003-12-12
- 打赏
- 举报
rs.open "select * from table1 where id>3",cn
set msflexgrid.datasource=rs
set msflexgrid.datasource=rs
