vbasql语句

❶ 用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语句

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

❸ ACCESS中VBA调用SQL语句的问题

ID不要打上单引号：
rsql = "UPDATE 员工表 set 备注 ='" & 员工备注.Value & "' WHERE ID =" & 员工选择框.ListIndex
如果还是不行，就再加上VAL转化一下试试：
rsql = "UPDATE 员工表 set 备注 ='" & 员工备注.Value & "' WHERE ID =" & Val(员工选择框.ListIndex)

❹ 在vba中怎么用sql语句吧excel工作表和数据库表连接查询

摘要 VBA连接SQL SERVER数据库操作Excel。

❺ VBA 调用SQL 的语句

缺少引用。
工具-->引用
然后把 Microsoft ActiveX Data Objects 2.x Library 勾选上。

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

方法步骤如下：

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

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

❼ VBA 怎样调用sql的语句

Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
Dim strCn As String, strSQL As String '字符串变量
Dim i As Integer, j As Integer, sht As Worksheet

strCn = "Provider=SQLOLEDB.1;Password=psw;Persist Security Info=True;User ID=userid;Initial Catalog=hrlink ;Data Source=127.0.0.1"
strSQL = "select * from table"

cn.Open strCn
rs.Open strSQL, cn

❽ VBA SQL语句请教

就5个表，既然用SQL，就不用FOR EACH工作循环了吧，直接写结果，虽然看起来复杂，但是结果简单命令，机器执行也更快：

selectcasesType
case1
sExcel_select="(Select"&sTitle&"From[1序数据$]"&sWhere&")"_
&"unionall(Select"&sTitle&"From[2序数据$]"&sWhere&")"
case2
sExcel_select="(Select"&sTitle&"From[3序数据$]"&sWhere&")"
dselect

❾ 如何在VBA中执行SQL语句

Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
'cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Extended Properties=Excel 8.0;" _
& "Data Source=" & ThisWorkbook.FullName
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Extended Properties=Excel 8.0;" _
& "Data Source=" & ThisWorkbook.FullName
Debug.Print ThisWorkbook.FullName
str1 = ActiveSheet.Range("A2")
'strSql = "Select * FROM [数据库$] Where 商品名称 like '%" & str1 & "%'"

❿ 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