VFP 愛用者社區

[Ruey]

來源:動感游標 mihu
http://www.vfp.cn/forum_view.asp?forum_id=2&view_id=2032

一個CursorAdapter+Access的小示例
CLEAR ALL
SQLDISCONNECT(0)

SET MULTILOCKS ON
lcString ="Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\\TestData\\mytttt.mdb;Uid=mike;Pwd=admin"
lnHandle = SQLSTRINGCONNECT(lcString)
IF lnHandle > 0
PUBLIC lo AS Character

lo = NEWOBJECT("CursorAdapter")
lo.DatasourceType = "ODBC"
lo.DataSource = lnHandle
lo.Alias = "cnee"
lo.Tables = "cnee"
lo.SelectCmd = "SELECT code,cnee1,cnee2,cnee3,cnee4,cnee5,cnee6 FROM cnee"
lo.UpdateNameList = "code cnee.code,cnee1 cnee.cnee1,cnee2 cnee.cnee2,cnee3 cnee.cnee3,cnee4 cnee.cnee4,cnee5 cnee.cnee5,cnee6 cnee.cnee6"
lo.UpdatablefieldList = "code,cnee1,cnee2,cnee3,cnee4,cnee5,cnee6"
lo.BufferModeOverride = 5
lo.KeyFieldList = "code"
lo.UpdateType = 1
lo.WhereType = 1
lo.SendUpdates = .T.
IF lo.CursorFill()
SELECT cnee
GO top
REPLACE code WITH "dddd"
IF TABLEUPDATE(1,.t.)
lo.cursorrefresh()
brow
ENDIF
ENDIF
ENDIF
前兩天測試了一下Access做後台數據庫，前台生成可更新CA，結果完全成功，速度也令人滿意。
這樣試驗下來，看來foxer可以考慮放棄DBC了。
用Access數據庫要比DBC安全和穩定許多。

=================================
用spt取個只讀的表
CLEAR ALL
SQLDISCONNECT(0)

SET MULTILOCKS ON
lcString ="Driver={Microsoft Access Driver (*.mdb)};Dbq=gssgl.mdb;Uid=mike;Pwd=GSSYWGLXT"
lnHandle = SQLSTRINGCONNECT(lcString)
IF lnHandle > 0
lnResult = SQLEXEC(lnHandle,"SELECT * FROM YourTable","temp")
IF lnResult > 0
SELECT TEMP
BROW
ELSE
MESSAGEBOX("讀文件失敗",16,"錯誤")
ENDIF
ELSE
MESSAGEBOX("建立連接失敗",16,"錯誤")
ENDIF