Dim cn As ADODB.Connection
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider = SQLOLEDB;Data Source = 192.168.1.10;Initial Catalog = AIS20110520152804;User ID =sa;Password =kingpro-87661168;"
sql = " create table #a" & _
"(" & _
"f1 decimal(18,2)," & _
"f2 nvarchar(50)," & _
"f3 nvarchar(50)," & _
"f4 nvarchar(50)," & _
"f5 nvarchar(50)," & _
"f6 nvarchar(50)," & _
"f7 nvarchar(50)," & _
"f8 nvarchar(50)," & _
"f9 nvarchar(50)" & _
")"
cn.Execute sql
cn.Close
執行后，去資料庫測驗，提示物件名 #A 無效？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/119394.html
標籤：VBA
上一篇：VB自帶打包閃退
下一篇：關于模擬按鍵