Sub Data_Chk(CHKTABLE As String)
On Error GoTo Act
Dim SourceConnMain As DAO.Database
'定義資料庫開啟變數
Dim SourceRS As DAO.Recordset
Dim RelationRS As New ADODB.Recordset
'標準參照資料
Set RelationRS = New ADODB.Recordset
RelationRS.Open "Select * from " & CHKTABLE & " where FORMATCHK<>''", RelationConn, 1, 1
'設定來源資料
SourceFile = SourceText.Text
Set SourceConnMain = OpenDatabase(SourceFile, 0, 0, "dBase IV")
Set SourceRS = SourceConnMain.OpenRecordset(CHKTABLE)
.
.
.
到了開起dbf資料表那邊就怪了 (XP 環境下)
在同一環境中, 要連續開四個 dbf 資料表 (卻認格式用)
但總是在第四個資料表 就掛點
若單獨開也不行
其它三個不論是一起開 或單獨開啟都沒問題
但若到了 W2K 環境下, 四個都可以完成格式確認的工作..
請問... xp 環境下有什麼特別要安裝的元件嗎?
謝謝啦
On Error GoTo Act
Dim SourceConnMain As DAO.Database
'定義資料庫開啟變數
Dim SourceRS As DAO.Recordset
Dim RelationRS As New ADODB.Recordset
'標準參照資料
Set RelationRS = New ADODB.Recordset
RelationRS.Open "Select * from " & CHKTABLE & " where FORMATCHK<>''", RelationConn, 1, 1
'設定來源資料
SourceFile = SourceText.Text
Set SourceConnMain = OpenDatabase(SourceFile, 0, 0, "dBase IV")
Set SourceRS = SourceConnMain.OpenRecordset(CHKTABLE)
.
.
.
到了開起dbf資料表那邊就怪了 (XP 環境下)
在同一環境中, 要連續開四個 dbf 資料表 (卻認格式用)
但總是在第四個資料表 就掛點
若單獨開也不行
其它三個不論是一起開 或單獨開啟都沒問題
但若到了 W2K 環境下, 四個都可以完成格式確認的工作..
請問... xp 環境下有什麼特別要安裝的元件嗎?
謝謝啦
全站熱搜
留言列表