![]() ![]() ![]() ![]() |
|||||
|
|||||
樓主 俠客風 ![]()
![]() |
Dim dbNewTable As DAO.Database 'DAO物件-新建 Dim strNewTableDriver As String 'Driver字串-新建 Dim sqlNewTable As String 'SQL字串-新建 sqlNewTable = "CREATE TABLE [MonitoringData] " & _ strNewTableDriver = "ODBC;" & _ "Driver={ODBC Driver 13 for SQL Server};" & _ "Server=tcp:chundi.database.windows.net,1433;" & _ "Database=MonitoringData;" & _ "Uid={your_username};" & _ "Pwd={your_password};" & _ "Encrypt=yes;" & _ "TrustServerCertificate=no;" & _ "Connection Timeout=30;" Set wsNewTable = DBEngine.CreateWorkspace("", "Admin", "", dbUseJet) Set dbNewTable = wsNewTable.OpenDatabase("MonitoringData", dbDriverNoPrompt, False, strNewTableDriver) dbNewTable.Execute sqlNewTable =================================================================================================================== Azure的內容: SQL Server = chundi SQL資料庫 = MonitoringData 另外Uid跟Pwd是登入的帳號密碼嗎? 因為一直出現「執行階段錯誤'3151':ODBC--連接'MonitoringData'失敗。」 我已經下載好「ODBC Driver 17」,有還需要再指定「設定引用項目」嗎? 以上是使用Access 2016寫出來的,我不確定這樣是否能執行,因為我是初學者,有請各路大人指點迷津,謝謝!
== 簽名檔 ==
============================================ 你的做法,我會重製;你的想法,我會昇華! ============================================ |