作者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