英文介绍兴趣爱好:VB编程问题

来源:百度文库 编辑:神马品牌网 时间:2024/05/01 13:03:46
VB6.0报表数据环境中的connection对象的commandtext查询语句用代码怎样写?
我要在报表设计中调用form窗体返回的全局变量值。
高手们帮帮忙啊
谢谢

如果隔时间不长,txt文件不大,txt文件内容不变:

Private index As Long, strLines(1000) As String, n As Long

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True

Open App.Path & "\try.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strLines(n)
n = n + 1
Loop
Close #1

End Sub

Private Sub Timer1_Timer()

Text1 = strLines(index)
index = index + 1
If index = n Then Timer1.Enabled = False

End Sub