VFP 愛用者社區

tyy · 註冊時間: 2004-06-24 文章: 4 第 1 樓

對不起先前問題有點不清楚
在access中直接以匯出方式想轉成foxpro資料表格
但出現--您企圖建立有一個以上相同欄位名稱的資料表。每個資料表內的欄位名稱必須是唯一的。
檢視未欄位名稱未重複
請問為何如此
可否在程式中直接轉換嗎
類似append type sdf
謝謝

Erwin · 發表於: 星期二五月 24, 2005 8:07 pm 文章主題:

先設成 remove view
再 use 然後 copy to ...

syntech · 發表於: 星期三五月 25, 2005 11:32 am 文章主題:

有欄位名稱超過10個字且前幾個字相同嗎?

tyy · 註冊時間: 2004-06-24 文章: 4 第 4 樓

謝謝..syntech..erwin..兩位指導
但以--remove方式還是不可行...我是4年級4班.老已..
欄位確如--syntech所言--但該acess非我所寫..無法改變
可否再詳細指示---感謝

syntech · 發表於: 星期三六月 01, 2005 9:26 pm 文章主題:

這就累了,

傳統的DBF (DBASE III +) 其欄位名稱只能允許 10 個字,
之前我自己實驗過,的確能以匯出方式直接轉成dbf格式.

這樣的話,
只能使用匯出到資料來源(odbc) 轉成 vfp 的 dbc (資料庫) 格式,
這樣才允許欄位名稱超過10個字.(vfp 的dbf 格式一樣有欄位名稱10個字的限制)

rixw83 · 註冊時間: 2004-07-12 文章: 12 第 6 樓

oConnection = CreateObject("Adodb.Connection")

XCNSTR = "Data Source=Users.mdb;Jet OLEDB:Database Password="

With oConnection
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = XCNSTR
.Open
EndWith

rs = CreateObject("Adodb.Recordset")

With rs
.CursorType = 1
.LockType = 3
.CursorLocation = 3
EndWith

rs.Open("TableName", oConnection, , , adCmdTable)

Then Use Recordset.Fields(I).Name To Do What You Can
Razz