① 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