vba执行sql语句

㈠ 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。

㈢ 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

㈤ 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

一、界面设计

各控件名称属性分别为：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”

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

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

方法步骤如下：

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

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

㈧ VBA 调用SQL 的语句

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

㈨ 如何在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 & "%'"

㈩ VBA可以读取.sql文件来执行里面的多条语句吗

看你在什么环境下面用vba,
一般来说,将文本内容读出来,传递给给vba中设置sql语句的变量即可.
比如excel的例子:
set
rsread
=
new
adodb.recordset
sqlstr
=
你所读到的文本文件内容
rsread.open
sqlstr,
cnn,
adopenkeyset,
adlockoptimistic
rsread.movefirst