vba生成sql

1. Excel 请问如何在VBA中执行sql语句

sub test()

Dim Conn As New ADODB.Connection
Dim strConn As String
Dim strSQL As String
Dim rs As New ADODB.Recordset

strConn = "Provider=sqloledb;Server=192.168.1.111;Database=db2014;Uid=用户名;Pwd=密码;"
Conn.Open strConn

Max_row = Range("A1").CurrentRegion.Rows.Count

for i=1 to Max_row
strSQL = "select name from sales2014 where id='" & range("A" & i).value & "'"
Conn.Execute strSQL
rs.Open strSQL, Conn, 1, 1
range("B" & i).value= rs(0)
rs.Close
Set rs = Nothing
next i

'关闭数据库
Conn.Close
end sub

2. 如何在VBA中应用ACCESS自动生成的SQL代码

Docmd.RunSQL "SQL语句"
具体可查看RunSQL方法帮助

3. 如何在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结束日期 & "#"

4. 在WPS的VBA中怎么使用SQL语句

方法步骤如下：

1.在网上搜索并下载“wps的vba模块”。

2.下载解压完成之后，双击”vba6chs“即可安装：

5. 我想根据xls中的列的值通过VBA代码生成insert语句（.sql）,高手指点下，谢谢

我们就从向数据库添加数据的INSERT INTO开始。

前面几篇 SQL语言教程 中介绍SQL的文章后，我们已可以创建，修改与删除一个数据库，今天介绍的INSERT INTO，我们就可以向上面创建的数据库中添加数据。INSERT INTO添加数据基本有两种方法：一种是一次性输入一笔数据，另一种是一次性输入多笔数据。粗举模因为后者还要用到SQL语句中最核心，最重要，最常用，也是最难全懂的Select语句，因此在这一篇文章中，我们先介绍第一种，语法如下：

INSERT INTO 表格名 (列名1, 列名2, ...) VALUES (数值1, 数值2, ...)

上面的语法就是向表格名中指定的表格里添加一行新的数据，在列名1，列名2……中添加对应的值，需要说明的一点是，不一定表格中的每一个列名都指定值，如果没有指定，该列的值就是设定数据库时默认的值。如果列的数值没有，而设定数据库时该列设定的是必填字段，而程序会提示出错。

按照惯岩缓例，我们还是给出一段程序来让我们更了解上面说的内容：

Sub 向销存表数据库录入数据()
'*******************************************
'时间：2008-10-9
'作者：bengdeng
'功能：在程序文件同一目录下进销存表数据库中录入数据
'注意：要在工具/引用中引用microsoft activex date objects x.x
' 其中x.x为版本号，可能会因为你安装的office的版本不同而不同，本例引用了2.5版
'发布：http://www.excelba.com
'*******************************************
Dim conn As ADODB.Connection
Dim WN As String
Dim TableName As String
Dim sSql As String
WN = "进销存表.mdb"
TableName = "明细表"

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\" & WN
conn.Open
If conn.State = adStateOpen Then
sSql = "INSERT INTO " & TableName & " (物品名称, 结余日期,结余数量,进仓数量,出仓数量)" & _
"VALUES ('铅笔',#" & Date & "#,0,0,0)"
conn.Execute sSql
MsgBox "成功在答做“" & TableName & "”中增加了一条记录！", , "http://excelba.com"
conn.Close
End If
Set conn = Nothing
End Sub

上面的程序有两点特别说明一下：一个是字符串可以用单引号来特别确认，这个在字符串与SQL的一些保留关键词一样时，特别需要注意；另一个是日期数值的表示方式为——#日期#，否则不正确。同样，我们也给出一段操作Excel的代码：

Sub 向销存表文件录入数据()
'*******************************************
'时间：2008-10-9
'作者：bengdeng
'功能：在程序文件同一目录下进销存表文件中录入数据
'注意：要在工具/引用中引用microsoft activex date objects x.x
' 其中x.x为版本号，可能会因为你安装的office的版本不同而不同，本例引用了2.5版
'发布：http://www.excelba.com
'*******************************************
Dim conn As ADODB.Connection
Dim WN As String
Dim TableName As String
Dim sSql As String
WN = "进销存表.xls"
TableName = "明细表"

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source=" & ThisWorkbook.Path & "\" & WN
conn.Open
If conn.State = adStateOpen Then
sSql = "INSERT INTO [" & TableName & "$] (物品名称, 结余日期,结余数量,进仓数量,出仓数量)" & _
"VALUES ('一笔',#" & Date & "#,0,0,0)"
conn.Execute sSql
MsgBox "成功在“" & TableName & "”中增加了一条记录！", , "http://excelba.com"
conn.Close
End If
Set conn = Nothing
End Sub

最后大家自己动一下复制上面的代码，在VBA里操作一下，就能更好的理解了。希望通过这些文章，能让你开始对SQL的应用感兴趣，并应用到工作与生活中。

如果没有看到CREATE TABLE - 创建数据表的语句文章的朋友请到http://www.excelba.com/Art/Html/293.html 中利用里面的代码生成这篇文章需要的文件，然后再运行一下这两段代码吧。

转载请注明:本文来自:Excel吧 (www.excelba.com) 详细出处参考：http://www.excelba.com/Art/Html/299.html

6. Access VBA中如何使用 SQL 语句。

提问里是一段打开ADO记录集对象的代码，并不完整且含有错误。下面提供一个完整一点的代码供参考：

PrivateSubCommand111_Click()
DimsqlAsString
'声明ADO记录集对象
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset'实例化记录集对象
'拼写SQL语句并赋值到变量
sql="SELECTDGZY.usenameFROMDGZYWHERE(((DGZY.usename)Like'张三'));"
'打开记录集
rs.Opensql,CurrentProject.Connection,adOpenKeyset,adLockOptimistic
'利用记录集对象进行所需的有关操作，代码略
EndSub

7. 用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”

然后就就可以正常运行了。

8. 求助，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