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 環境下有什麼特別要安裝的元件嗎?
謝謝啦
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()