每次開程式都去寫入
,(或是再改成判斷有無寫入,感覺會有一些問題)
不走DSN
'寫入 ODBC 資料來源
'1. 走DSN
'2. 無DSN
' 宣告變數
Dim Driver As String
' 使用者資料來源名稱
DSN = "FoxProMcstSource"
' 驅動程式
Driver = "Microsoft FoxPro VFP Driver (*.dbf)"
cnMcst &= IO.Directory.GetCurrentDirectory().ToString + ";"
' 建立DAO.DBEngine 物件 , 透過RegisterDatabase 方法新增一個ODBC 設定
CreateObject("DAO.DBEngine.36").RegisterDatabase(DSN, Driver, True, cnMcst)
'DBEngine.RegisterDatabase ("CSD_PO_PMIS", str_Driver_Name, True, stConnect)
=================================================
沒有留言:
張貼留言