查询与连接

fengyetianshi 2003-12-12 04:16:32
我是用DATA控件与MSFLEXGRID控件连接的,怎样来查询呢,并且怎样用MSFlexGrid控件来显示所查询的记录呢?
...全文
12 10 打赏 收藏 举报
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
taosihai1only 2003-12-14
rs.open "select * from table1 where id>'5'",cn
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


  • 打赏
  • 举报
回复
yoki 2003-12-13
这个不是三言两语所能说清的,建议你下载一个ado的帮助去看吧
  • 打赏
  • 举报
回复
fengyetianshi 2003-12-12
ADO对象我没用过,请问怎样来用?
  • 打赏
  • 举报
回复
lion_wing 2003-12-12
ADO比较好
  • 打赏
  • 举报
回复
SuperZhou 2003-12-12
推荐用ADO对象
设置网格的DataSource属性为记录集就可以了
  • 打赏
  • 举报
回复
SoHo_Andy 2003-12-12
使用ADO记录集对象就行查询,将查询结果重新绑定到datagrid
代码如 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
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1198

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-12-12 04:16
社区公告
暂无公告