㈠ vba sql查询
sql一般用在多条件查询,对数据库读写等。
1. VBA如何建立sql连接
A.在VBA Project 窗口中,“工具—引用—Microsoft ActiveX Data Objects 2.0 Library”,如下图所示
B. VBA语句
Private Sub CommandButton1_Click()
Dim cnn As ADODB.Connection’定义变量
Dim sql$, Stext$, i As Integer
Worksheets(3).Cells.Clear
Stext = IIf(TextBox1.Value = "", "*", TextBox1.Value)
Set cnn = CreateObject("adodb.connection")’生成对象
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName’打开数据库
If TextBox1 = "" Then
sql = "select * from [sheet2$]"’sql语句
Else
sql = "select * from [sheet2$] where 姓名 like '" & TextBox1.Value & "'"
End If
Worksheets(3).[a1].CopyFromRecordset cnn.Execute(sql)’执行sql语句
cnn.Close
Set cnn = Nothing
End Sub
2. sub text()
Dim cnn As ADODB.Connection’定义变量
Dim rs as adodb.recordset
Set cnn = CreateObject("adodb.connection")’生成对象,若定义变量时为Dim cnn As New ADODB.Connection,此句可省略
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName’打开数据库
sql = "select * from [sheet2$] where 姓名 like '" & TextBox1.Value & "'"
rs.open sql,cnn,adOpenKeyset.adLockOptimistic’生成查询记录,为后面出书数据准备
Worksheets(3).[a1].CopyFromRecordset rs
end sub
________________________________________________________________________
以下根据网络整理
2 Select SQL语句
SELECT * FROM table_name WHERE column1 = xxx [AND column2 > yyy] [OR column3 <> zzz]
'*'表示全部的栏位都列出来,如果不全部列出,则可以写字段名称如 学号,姓名……;WHERE 之后是接条件式,把符合条件的资料列出来,table_name如果为工作表名称,书写格式[工作表名$],下同。
SELECT column1,AVG(column2) FROM table_name GROUP BY column1 HAVING AVG(column2) > xxx
说明: 1.GROUP BY: 以column1 为一组计算 column2 的平均值必须和 AVG、SUM等整合性查询的关键字一起使用。2.HAVING : 必须和 GROUP BY 一起使用作为整合性的限制。
复合性的查询:SELECT * FROM table_name1 WHERE EXISTS (SELECT * FROM table_name2 WHERE conditions )
说明:1.WHERE 的 conditions 可以是另外一个的 query。2. 在此是指存在与否。
SELECT column1,columns2,...FROM table_name
说明:把table_name 的特定栏位资料全部列出来
SELECT COUNT (*) FROM table_name WHERE column_name = xxx
说明:查询符合条件的资料共有几笔。
1.计算出总和,所选的栏位必须是可数的数字形态。2.除此以外还有 AVG() 是计算
SELECT SUM(column1) FROM table_name
说明:平均、MAX()、MIN()计算最大最小值的整合
SELECT * FROM table_name1 WHERE column1 BETWEEN xx AND yy
说明:BETWEEN 表示 column1 的值介于 xx 和 yy 之间。
3. update SQL语句
UPDATE table_name SET column1='xxx' WHERE conditoins
说明:1.更改某个栏位设定其值为'xxx'。
2.conditions 是所要符合的条件、若没有 WHERE 则整个 table 的那个栏位都会全部被更改。
4. deletesql语句
删除资料: DELETE FROM table_name WHERE conditions
说明:删除符合条件的资料。
说明:关于WHERE条件后面如果包含有日期的比较,不同数据库有不同的表达式
5.SQL中通配符用
• "%" 表示零个或多个,
• "_"表示任何单一字符
• [charlist] 字符列中的任何单一字符
• [^charlist] [!charlist] 不在字符列中的任何单一字符
• select * from databasename where fieldname like '%XX%'
• SELECT * FROM Persons WHERE City LIKE '[AOF]%'
• 从上面的 "Persons" 表中选取居住的城市以 "A" 或 "O" 或 "F" 开头的人
• SELECT * FROM Persons WHERE City LIKE '[!AOF]%'
• 从上面的 "Persons" 表中选取居住的城市不以 "A" 或 "O" 或 "F" 开头的人
㈡ 用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 语句。
提问里是一段打开ADO记录集对象的代码,并不完整且含有错误。下面提供一个完整一点的代码供参考:
PrivateSubCommand111_Click()
DimsqlAsString
'声明ADO记录集对象
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset'实例化记录集对象
'拼写SQL语句并赋值到变量
sql="SELECTDGZY.usenameFROMDGZYWHERE(((DGZY.usename)Like'张三'));"
'打开记录集
rs.Opensql,CurrentProject.Connection,adOpenKeyset,adLockOptimistic
'利用记录集对象进行所需的有关操作,代码略
EndSub
㈤ 如何在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
㈥ ACCESS中VBA调用SQL语句的问题
ID不要打上单引号:
rsql = "UPDATE 员工表 set 备注 ='" & 员工备注.Value & "' WHERE ID =" & 员工选择框.ListIndex
如果还是不行,就再加上VAL转化一下试试:
rsql = "UPDATE 员工表 set 备注 ='" & 员工备注.Value & "' WHERE ID =" & Val(员工选择框.ListIndex)
㈦ 在WPS的VBA中怎么使用SQL语句
方法步骤如下:
1.在网上搜索并下载“wps的vba模块”。
2.下载解压完成之后,双击”vba6chs“即可安装:
㈧ 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
㈨ excel vba 使用sql语句查询access数据库时,如何知道没有查找到内容
Dim Rs As Recordset
strSQL = "SELECT DISTINCT 发站 FROM [LMSData2016.12$]"
Conn.Open strConn '打开数据库链接
Set Rst = Conn.Execute(strSQL)
If rs.RecordCount > 0 Then '这个就可以判断了,大于0的就是有数
㈩ 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