关于MSFLEXGRID

YESORNO001 2003-10-20 01:28:11
请问如何将RECORDSET的记录全部写到MSFLEXFRID里
将recordset的内容一条条的完全显示出来就可以了
另外,怎么样可以把recordset的内容一行行的读入文本文件
一条记录占一行
...全文
26 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
callzjy2 2003-11-01
  • 打赏
  • 举报
回复
MSHFlexGrid就不用编程了:)
leo4587 2003-10-21
  • 打赏
  • 举报
回复
這是我常用的方法,希望能幫你解決問題。

Public conn As New ADODB.Connection
Public rs1 As New ADODB.Recordset
Public g_sql As String

if rs1.state=1 then rs1.close
g_sql="select * from table_name"
rs1.open g_sql,conn,3,1
with msflexgrid
for i=1 to rs1.recordcount
.textmatrix(i,0)=iif(isnull(rs1("字段1")),"",rs1("字段1")
.textmatrix(i,1)=iif(isnull(rs1("字段2")),"",rs1("字段2")
.
.
.
.textmatrix(i,n)=iif(isnull(rs1("字段n+1")),"",rs1("字段n+1")
rs1.movenext
.rows=.rows+1
next i
end with
kinlin 2003-10-21
  • 打赏
  • 举报
回复
set Me.MSHFlexGrid1.DataSource = adors
rambolee 2003-10-21
  • 打赏
  • 举报
回复
.Rows = 2
Do While Not mrc.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 1) = mrc.Fields!mer_sale
.TextMatrix(.Rows - 1, 2) = mrc.Fields!mc
.TextMatrix(.Rows - 1, 3) = mrc.Fields!sumcount
csum = csum + mrc.Fields!sumcount
.TextMatrix(.Rows - 1, 4) = mrc.Fields!sumprice
psum = psum + mrc.Fields!sumprice
.TextMatrix(.Rows - 1, 5) = mrc.Fields!sumFee_back
fbsum = fbsum + mrc.Fields!sumFee_back
.TextMatrix(.Rows - 1, 7) = mrc.Fields!sumFee
fsum = fsum + mrc.Fields!sumFee
.TextMatrix(.Rows - 1, 6) = mrc.Fields!sumFee - mrc.Fields!sumFee_back
fksum = fksum + mrc.Fields!sumFee - mrc.Fields!sumFee_back
mrc.MoveNext
Loop
mousepet 2003-10-21
  • 打赏
  • 举报
回复
用绑定就可以了
自己循环写到文件里,每列中间加分隔
Lucky527 2003-10-21
  • 打赏
  • 举报
回复
同意 trite(追風少年)
arikejiang 2003-10-20
  • 打赏
  • 举报
回复
我也同意
leo4587 2003-10-20
  • 打赏
  • 举报
回复
同意trite(追風少年)的。
kinlin 2003-10-20
  • 打赏
  • 举报
回复
为什么不用MSHFlexGrid呢?
Dim adors As New ADODB.Recordset
set Me.MSHFlexGrid1.DataSource = adors
sdhdy 2003-10-20
  • 打赏
  • 举报
回复
楼上的说的没错!
trite 2003-10-20
  • 打赏
  • 举报
回复
SQL="select * from table"

Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic

with msflexgrid1
do while not rst.EOF

.rows=.rows+1
.textmatrix(.rows-1,0)=rst.fields(0)
.textmatrix(.rows-1,1)=rst.fields(1)
' .........(有几个字段就显示写几个)

rst.movenext
loop
end with
YESORNO001 2003-10-20
  • 打赏
  • 举报
回复
呵呵,能具体一点吗?!
射天狼 2003-10-20
  • 打赏
  • 举报
回复
循环加就行了!

1,216

社区成员

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

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