如何把数据用编程方式把记录几ado的recordset 绑定到 mshflexgrid 上 给出代码

zhang5180 2004-09-16 02:26:46
...全文
81 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
RUKYO 2004-09-17
  • 打赏
  • 举报
回复
'工程->引用Microsoft ActiveX Data Objects 2.x Library
Option Explicit
Public mCnnString As String '连接字符串
Dim mRst As New ADODB.Recordset

Private Sub Command1_Click()
Dim mCon As New ADODB.Connection
mCon.Open mCnnString
mRst.CursorLocation = adUseClient
mRst.Open "Select * From Table1", mCnnString, adOpenStatic, adLockOptimistic, adCmdText
Set MSHFlexGrid1.DataSource = mRst
End Sub

Private Sub Form_Load()
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
End Sub

Private Sub Form_Terminate()
If mRst.State = adStateOpen Then
mRst.Close
Set mRst = Nothing
End If
End Sub
lxcc 2004-09-16
  • 打赏
  • 举报
回复
strSql="SELECT Field1 AS 中文名称,... FROM YourTable WHERE 条件" '中文名称是可以把表头直接设为中文,而不需要再单独设置
rs.open strSql,cn,1,3 'rs是Recordset,cn是Connection

Set mshflexgrid.DataSource=rs '帮定,但是msflexgrid(没有h)不能帮定ADO数据
zhujiechang 2004-09-16
  • 打赏
  • 举报
回复
夸张.
不用数据绑定,mshflexgrid支持自由数据模式,用TextMatrix(row,col)属性即可完成表格内容的填充.

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧