作者grawgraw (咕噜)
看板Visual_Basic
标题[VB6 ] "读取档案"的问题
时间Wed Nov 7 10:55:15 2007
本来在"另存新档"时，将要存入的档案输入档案名，而後按"另存新档"。接着我可以"读
取档案"载入我之前所存取的资料。
问题:在表单中"读取档案"时是需要输入档案名，也就是使用者需要知道在access资料库
的资料表有哪些档案现在欲将此程式修改成在"读取档案"时，不用输入档案名，
而是可以利用"选取"的方式将档案名输入即按下"读取档案"时，会跳出一个框框告知
目前access资料库里有哪些档案，是可以选取载入的。或者是希望可以有个comboBox
可以选取要读取的档案。
以下是"读取档案"的程式码
===========================================程式码============================
Private Sub Command2_Click()
Dim intII As Integer
sTableName = InputBox("请输入资料表名称", "输入视窗")
If Trim(sTableName) = "" Then MsgBox "错误资料表名称", vbCritical, "错误": Exit Sub
sSQL = "select * from " & sTableName
If Rs.State = 1 Then Rs.Close
Rs.Open sSQL, sCon, 3, 3, 1
While Not Rs.EOF
Text1(intII) = Rs!拆解收益
Text2(intII) = Rs!拆解成本
Text3(intII) = Rs!拆解利润
intII = intII + 1
Rs.MoveNext
Wend
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.74.6