請教各位大大 我現在需要把MSSQL中的資料,select 出來後 轉成一個DBF檔 請問我該如何處理,轉成文字檔我是試過,但轉DBF我就不會了 有人做過嗎?幫個忙吧~~

簡單..簡單.. 先利用TQuery(當是Query1)元件把資料先select 出來 再用一個TTable元件 with Table1 do begin DatabaseName := 'C:\WINDOWS\TEMP'; //填你要存DBF的路徑 TableType := ttDBase; TableName := 'Load.dbf'; //填你要存的檔案名稱 BatchMove(Query1, batCopy); end; 簡單吧 讓我得分吧．． 謝謝!!

如果你是要整個 table 轉至 dbase 可直接使用 datadump 即可

procedure CreateTempDBF(sql,tblname: string; db:HDBIDB; dbtype: string='DBASE'); var hStmt: hDBIStmt; hQryCur, hNewCur: hDBICur; begin hQryCur := nil; hNewCur := nil; hStmt := nil; try Check(DbiQAlloc(Db, QrylangSQL, hStmt)); Check(DbiQPrepare(hStmt, PChar(sql))); Check(DbiQExec(hStmt, @hQryCur)); // Check(DbiQInstantiateAnswer(hStmt, hQryCur, PChar(TblName), szDBASE, True, @hNewCur)); Check(DbiQInstantiateAnswer(hStmt,hQryCur,PChar(TblName),PChar(dbtype), True,@hNewCur)); finally if hStmt<>nil then Check(DbiQFree(hStmt)); if hNewCur<>nil then Check(DbiCloseCursor(hNewCur)); end; end;

with Table1 do begin DatabaseName := 'C:\WINDOWS\TEMP'; //填你要存DBF的路徑 TableType := ttDBase; TableName := 'Load.dbf'; //填你要存的檔案名稱 BatchMove(Query1, batCopy); end; 好像不行耶～～～～ databaseName 好像不能輸入路徑 會有錯誤訊息 [Error] Unit1.pas(34): Illegal character in input file: ' ' ($A140)

引言: procedure CreateTempDBF(sql,tblname: string; db:HDBIDB; dbtype: string='DBASE'); var hStmt: hDBIStmt; hQryCur, hNewCur: hDBICur; begin hQryCur := nil; hNewCur := nil; hStmt := nil; try Check(DbiQAlloc(Db, QrylangSQL, hStmt)); Check(DbiQPrepare(hStmt, PChar(sql))); Check(DbiQExec(hStmt, @hQryCur)); // Check(DbiQInstantiateAnswer(hStmt, hQryCur, PChar(TblName), szDBASE, True, @hNewCur)); Check(DbiQInstantiateAnswer(hStmt,hQryCur,PChar(TblName),PChar(dbtype), True,@hNewCur)); finally if hStmt<>nil then Check(DbiQFree(hStmt)); if hNewCur<>nil then Check(DbiCloseCursor(hNewCur)); end; end;

不好意思...小弟看不太懂.. 能不能稍微講解一下 因為小弟是要寫成ASP用的COM,實在是沒什麼概念

那就先在BDE建立一個Alisa吧!!! with Table1 do begin DatabaseName := 'LOCAL'; //請先在BDE建立這個Alias TableType := ttDBase; TableName := 'Load.dbf'; //填你要存的檔案名稱 BatchMove(Query1, batCopy); end;

引言: 那就先在BDE建立一個Alisa吧!!! with Table1 do begin DatabaseName := 'LOCAL'; //請先在BDE建立這個Alias TableType := ttDBase; TableName := 'Load.dbf'; //填你要存的檔案名稱 BatchMove(Query1, batCopy); end;

唉~~小弟資質愚鈍,還是弄不出來 [Error] Unit1.pas(41): Incompatible types: 'TBDEDataSet' and 'TDataSource' BatchMove(TBDEDataSet;) ^^^^^^^^^^ TBDEDataSet 和 TDataSet有什麼不一樣?

引言: 那就先在BDE建立一個Alisa吧!!! with Table1 do begin DatabaseName := 'LOCAL'; //請先在BDE建立這個Alias TableType := ttDBase; TableName := 'Load.dbf'; //填你要存的檔案名稱 BatchMove(Query1, batCopy); end;

我大概弄出來了,但我發現DBF似乎要先存在 也就是無法建立一個新的DBF 同時就算我用原本之DBF,也沒辦法下batdelete,batappend 會出現錯誤訊息 "Destination must be indexed" 要怎樣才能把本來DBF中的東西刪掉,並覆蓋呢? 又要如何才能每次產生一個新的DBF檔

引言: 我大概弄出來了,但我發現DBF似乎要先存在 也就是無法建立一個新的DBF 同時就算我用原本之DBF,也沒辦法下batdelete,batappend 會出現錯誤訊息 "Destination must be indexed" 要怎樣才能把本來DBF中的東西刪掉,並覆蓋呢? 又要如何才能每次產生一個新的DBF檔

怎麼會呢~基本上只要有BDE存在~你就可以隨意產生一個新的DBF檔啊~ 提供我的做法~ 1.在FORM上放一個TABLE元件 2.點選TABLE的FieldDefs屬性~並建立好你所需要的欄位~ 3.TABLE的DATABASENAME屬性填入你要存放的路徑~ 4.填入TABLENAME 5.最後再下一道聖旨~Table1.CreateTable; 6.OK~完成~收工~ -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

我都是用Table1(Query1,batCopy)來產生新的dbf檔 至於要刪除dbf檔的資料 建議可以用EmptyTable 不過要先改成獨佔的模式 Exclusive 如果你把程式寄給我 我比較好幫你改 發表人 - dinokuo 於 2002/11/15 09:04:49

引言: 我都是用Table1(Query1,batCopy)來產生新的dbf檔 至於要刪除dbf檔的資料 建議可以用EmptyTable 不過要先改成獨佔的模式 Exclusive 如果你把程式寄給我 我比較好幫你改 發表人 - dinokuo 於 2002/11/15 09:04:49

大至上都弄好了...只是不曉得EmptyTable 及獨佔的模式 Exclusive要去那設定 程式因為有關連到我的MSSQL SERVER怕您那邊不好處理

TTable 有一個property 叫 Exclusive 至於EmptyTable 是一個 method 可以看看Delphi 的Help 寫的很清楚哦.... 值得參考!!!

引言:

引言: 那就先在BDE建立一個Alisa吧!!! with Table1 do begin DatabaseName := 'LOCAL'; //請先在BDE建立這個Alias TableType := ttDBase; TableName := 'Load.dbf'; //填你要存的檔案名稱 BatchMove(Query1, batCopy); end;

我大概弄出來了,但我發現DBF似乎要先存在 也就是無法建立一個新的DBF 同時就算我用原本之DBF,也沒辦法下batdelete,batappend 會出現錯誤訊息 "Destination must be indexed" 要怎樣才能把本來DBF中的東西刪掉,並覆蓋呢? 又要如何才能每次產生一個新的DBF檔

------------------------------------------------ 奇怪你怎麼弄出來的 照他的方法 我一直都出現 Illegal character in input file: ' ' ($A140) (BDE建立這個Alias????) 有啥麼特別要注意的嗎? ---------------------------------------------------

------------------------------------------------ 奇怪你怎麼弄出來的 照他的方法 我一直都出現 Illegal character in input file: ' ' ($A140) (BDE建立這個Alias????) 有啥麼特別要注意的嗎? --------------------------------------------------- 如果直接在程式碼中設定databse 或table 會出現上述錯誤訊息..所以我的作法就是 直接key在TTable的properties中 而不在程式碼中指定 不過我也希望能在程式碼中指定,不然就無法產生不同的table了... 發表人 - gagne 於 2002/11/18 14:04:18