① EXCEL VBA 用sql COMMAND對象創建表 錯誤
不要用ADOX.catalog
直接用ADODB.Connection試試
② 關於使用VBA連接SQL資料庫獲取數據時創建臨時表的問題
跟調用存儲過程的時候是相同的解決方案。
在語句前面加上
SET
NOCOUNT
ON
因為
往臨時表插入數據的時候會產生
影響行數
這種消息
SET
NOCOUNT
ON
能屏蔽這類信息。
③ 如何在VBA代碼中構造動態SQL語句
在VBA代碼中構造SQL語句之所以看上去很復雜，主要是因為在查詢對象的設計中
使用SQL語句時，我們只需要遵循SQL的語法規則即可。但在VBA中構造不光要遵循SQL的語法規則，還必須要遵循VBA的語法規則。於是就會多出來好
些如連接符（&）、雙引號（"）等符號，很多初學者就是被這些符號搞暈了。下面就簡單講一下如何通過拆分法來理解VBA中動態SQL語句的構造。
在查詢的時候雖然我們可以將查詢條件綁定到窗體控制項，如下面的示例：
Select
*
FROM
訂單表
Where客戶名稱
=Forms!客戶查詢窗體!客戶名稱輸入框但這樣只能適用於比較簡單的查詢，隨著條件復雜度的增加，SQL語句的構造難度也會直線上升，更重要的是這樣
的SQL語句很難理解，就算最終做出來了，一旦過了一段時間需要修改的話，就非常麻煩。
於是在VBA中使用變數構造動態的
SQL語句就成了一種理想的選擇。我們來看一個例子，比如我們要通過在窗體上的三個文本框（txt客戶名稱、txt開始日期、txt結束日期）內輸入相應
的條件值，來構造一個查詢訂單表中指定客戶在某個時間段內銷售記錄的SQL語句，在VBA中的代碼如下：
strSQL="
Select
*
FROM
訂單表
Where
客戶名稱='www.gzlij.com"
&
Me.txt客戶名稱
&
"'
AND
銷售日期
Between
#"
&
Me.txt開始日期
&
"#
And
#"
&
Me.txt結束日期
&
"#"
上面的的語句該如何理解呢？這里通過替換法來進行拆分，我們先假設文本框的值分別是：
txt開始日期=2010-5-1
txt結束日期=2010-5-31
txt客戶名稱=東南實業
根據上面的條件，我們需要得到的SQL語句應該是：
Select
*
FROM
訂單表
Where
客戶名稱="東南實業"
AND
銷售日期
Between
#2010-5-1#
And
#2010-5-31#
這里的由於要在VBA中構造，而雙引號（"）是VBA中的字元串界定符，所以我們需要把它改成單引號（'）來符合VBA的語法規則，那麼SQL語句就成了：
Select
*
FROM
訂單表
Where
客戶名稱='東南實業'
AND
銷售日期
Between
#2010-5-1#
And
#2010-5-31#
（當然我們也可以根據VBA的語法來用兩個雙引號，這樣VBA編譯器就會把這兩個連續的雙引號識別為一個雙引號字元，而不是字元串界定符，不過這樣相對來說更加復雜和麻煩一些，還有一些其它原因這里就不細說了。）
我們再把裡面的條件值換回變數，由於條件需要用變數代替，所以我們這里把上面的SQL語句拆分成如下的多個片段：
Select
*
FROM
訂單表
Where
客戶名稱='東南實業'
AND
銷售日期
Between
#2010-5-1#
And
#2010-5-31#
然後把其中的條件值換成變數，就成了：
Select
*
FROM
訂單表
Where
客戶名稱='Me.txt客戶名稱'
AND
銷售日期
Between
#Me.txt開始日期#
And
#Me.txt結束日期#
接下來再把其中不是變數的片段兩頭加上雙引號，使其符合VBA中的字元串語法：
"Select
*
FROM
訂單表
Where
客戶名稱='"Me.txt客戶名稱"'
AND
銷售日期
Between
#"Me.txt開始日期"#
And
#"Me.txt結束日期"#"
最後我們再用連接符（&）把這些拆分處理後得到的片段連接組合成一個字元串（注意，使用連接符組合多個字元串或變數時，連接符兩邊要有空格），就得到了我們需要的VBA中的動態SQL語句的寫法：
"Select
*
FROM
訂單表
Where
客戶名稱='"
&
Me.txt客戶名稱
&
"'
AND
銷售日期
Between
#"
&
Me.txt開始日期
&
"#
And
#"
&
Me.txt結束日期
&
"#"
④ 怎麼用VBA與SQL做成本計算表
一種方法是：先從主生產計劃或銷售計劃中把產品明細取出來，再通過BOM表分解出原材料。像包裝材料可以編入BOM表，人工成本需要單獨編制工序表，通過物料表進行聯系。
另一種方法是：像燃料和動力成本和製造費用明細可能無法隨產品單進行統計，只能統計流水記錄，算出成本之後再分攤。
⑤ Vba+Sql匯總多工作簿多工作表
Sub 多工作簿工作表匯總()
Dim Cnn As Object, Rst As Object, Rs As Object, FilePath$, FullName$, FullPath$, Sql$, Sht_Name$, i&
Set Cnn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
FilePath = ThisWorkbook.Path
FullName = Dir(FilePath & "\*.xls*")
Do While FullName <> ""
If FullName <> ThisWorkbook.Name Then
FullPath = FilePath & "\" & FullName
Cnn.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties=Excel 12.0;Data Source=" & FullPath
Set Rst = Cnn.OpenSchema(20)
Do Until Rst.EOF
Sht_Name = Rst("TABLE_NAME").Value
If Sql = "" Then
Sql = "select * from [" & FullPath & "].[" & Sht_Name & "]"
Else
Sql = Sql & " Union all select * from [" & FullPath & "].[" & Sht_Name & "]"
End If
Rst.MoveNext
Loop
Rst.Close
Cnn.Close
End If
FullName = Dir
Loop
Cnn.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
Set Rs = Cnn.Execute(Sql)
For i = 0 To Rs.Fields.Count - 1
Cells(1, i + 1).Value = Rs.Fields(i).Name
Next i
[a2].CopyFromRecordset Rs
Cnn.Close
Set Rs = Nothing
Set Rst = Nothing
Set Cnn = Nothing
End Sub
⑥ vba編程sql表頭空行出錯
1、首先在SQL語句下面寫一句輸入語句，在運行一下出錯的程序。
2、其次把立即窗體里的SQL代碼復制一下新增一個查詢，在SQL視圖下把代碼復制進去。
3、最後在代碼里把對應的錯誤改正一下，即可更改vba編程sql表頭空行出錯。
⑦ 求助，EXCEL通過VBA操作SQL資料庫
Sub 按鈕1_Click()
Dim i As Integer, j As Integer, sht As Worksheet 'i,j為整數變數；sht 為excel工作表對象變數，指向某一工作表
'Dim cn As New ADODB.Connection '定義數據鏈接對象 ，保存連接資料庫信息；請先添加ADO引用
'Dim rs As New ADODB.Recordset '定義記錄集對象，保存數據表
『工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
'下面兩句就不需要增加引用ADO
Set cn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
Dim strCn As String, strSQL As String '字元串變數
Dim strCond As String
strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定義資料庫鏈接字元串
'下面的語句將讀取數據表數據，並將它保存到excel工作表中：工作表為一張兩維表，記錄集也是一張兩維表
strSQL = "select CUSTOMER_NAME from VSC_BI_CUSTOMER " '定義SQL查詢命令字元串
cn.Open strCn '與資料庫建立連接，如果成功，返回連接對象cn
rs.Open strSQL, cn '執行strSQL所含的SQL命令，結果保存在rs記錄集對象中
i = 2
Set sht = ThisWorkbook.Worksheets("Test") '把sht指向當前工作簿的Test工作表
Do While Not rs.EOF '當數據指針未移到記錄集末尾時，循環下列操作
sht.Cells(i, 1) = rs("CUSTOMER_NAME") '把當前記錄的欄位1的值保存到sheet1工作表的第i行第1列
rs.MoveNext '把指針移向下一條記錄
i = i + 1 'i加1，准備把下一記錄相關欄位的值保存到工作表的下一行
Loop '循環
rs.Close '關閉記錄集，至此，程序將把某數據表的欄位1保存在excel工作表sheet1的第1列，行數等於數據表的記錄數
cn.Close '關閉資料庫鏈接,釋放資源
End Sub
⑧ VBA SQL寫入語句,從一個表格寫入令一個表格
讀取和寫入操作方式一樣，唯一不同的是sql語句，讀取用select，讀取用insert，以讀取為例子，錄入如下代碼：
'sql完整例子Sub testSql()
'定義連接對象 Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset '定義連接字元串 Dim conStr As String Dim sqlstr As String '連接字元串-以下是連接MSSQL資料庫 conStr = "Provider=sqloledb; " _ & "Server=192.168.1.121; " _ & "Database=DATABASENAME;Uid=admin;Pwd=admin;" cnn.Open conStr sqlstr = "SELECT * from tablename" rs.Open sqlstr, cnn Range("a2").CopyFromRecordset rs rs.Close cnn.Close
End Sub
⑨ 用vba如何使用sql
一、界面設計
各控制項名稱屬性分別為：label1 、text1 、label2、text2、commandok、cmdcancel
代碼設計如下：
'首先添加一個模塊，寫上以下通用聲明和Sub main()：
Public conn As ADODB.Connection '通用（聲明）
Sub main()
Set conn = New ADODB.Connection '通用（main）
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1" '連接資料庫代碼
conn.Open
frmLogin.Show '首先顯示登錄界面。也可以在工程屬性中設置啟動對象為Sub main()或者frmlogin窗體
End Sub
'在Frmlogin 代碼窗口，為cmdok控制項寫以下代碼：
Private Sub cmdok_Click()
If text1.Text = "" Then
MsgBox "用戶名不能為空！", vbOKOnly + vbInformation, "友情提示"
text1.SetFocus
Exit Sub '若用戶名文本框內為空，則出現提示框
End If
If text2.Text = "" Then
MsgBox "密碼不能為空！", vbOKOnly + vbInformation, "友情提示"
text2.SetFocus
Exit Sub '若輸入密碼文本框為空，也出現提示框
End If
Dim strSQl As String
strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "
'書寫SQL代碼，查詢User1表中是否存在窗體中用戶輸入的信息。
Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If .State = adStateOpen Then .Close
.Open strSQl
If .EOF Then
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已連續三次輸入錯誤，系統將自動關閉", vbOKOnly + vbCritical, "警告"
Unload Me '若用戶連續輸入3次錯誤密碼，則系統關閉
Else
MsgBox "對不起，用戶名不存在或密碼錯誤 ！", vbOKOnly + vbQuestion, "警告"
text1.SetFocus
text1.Text = ""
text2.Text = ""
End If
Else
Unload Me '若登錄成功，則隱藏當前窗體
Form2.Show '然後顯示Form窗體
End If
End With
End Sub
Private Sub cmdCancel_Click()
End '若單擊Cmdcel按鈕，則結束應用程序
End Sub
運行中存在的問題：
代碼中有Dim conn As adodb.connection，運行時顯示"用戶定義類型未定義"
解決方法：點擊「工程」--「引用」找到「Microsoft ActiveX Data Object 2.6」
然後就就可以正常運行了。
⑩ 如何用VBA把這個表格 新增到SQL SERVER資料庫里的員工總表了，只要這9行的
大約後面再添上以下語句，注意WHERE開始是條件可以不要，7列欄位名按我格式一個個填上去
cn.Open strCn
strSQL = "Select 表名.姓名,表名.性別 from 表名 where 表名.條件列名=條件"
rs.Open strSQL, cn, 1, 3
Sheet1.Range("A1", "Z65000").Clear
Sheet1.Range("A1").CopyFromRecordset rs
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing