VBA写SQL字符串使用‘没有它被注释掉？
VBA写SQL字符串使用单引号（'）是为了将其作为字符串的一部分而不是注释掉。在SQL语句中，单引号用于表示字符串值。当我们在VBA中构建SQL语句时，如果我们想要将字符串作为查询条件或插入到数据库中，我们需要使用单引号将字符串括起来。
例如，如果我们想要查询名字为"John"的用户，我们可以使用以下代码：
Dim name As String
name = "John"
Dim strSQL As String
strSQL = "SELECT * FROM users WHERE name = '" & name & "';"在上面的代码中，name变量存储了要查询的用户名字，然后我们将其插入到SQL语句中的WHERE子句中。注意到字符串值John被单引号括起来，这样数据库就能正确识别它作为字符串值而不是其他SQL语句的一部分。
同样地，如果我们想要插入一个新用户到数据库中，我们也需要使用单引号将字符串值括起来：
Dim name As String
name = "Alice"
Dim age As Integer
age = 25
Dim strSQL As String
strSQL = "INSERT INTO users (name, age) VALUES ('" & name & "', " & age & ");"在上面的代码中，name变量存储了要插入的用户名字，age变量存储了要插入的年龄。我们使用单引号将name变量括起来，以确保数据库正确地将其识别为字符串值。
需要注意的是，使用单引号将字符串括起来是为了确保SQL语句的正确性和安全性。然而，这也可能导致SQL注入攻击的风险。为了防止SQL注入攻击，我们应该使用参数化查询或其他安全措施来处理用户输入的数据。
关于VBA和SQL字符串的更多信息，您可以参考腾讯云的相关文档和产品：
请注意，以上链接仅为示例，具体的产品选择应根据您的实际需求和情况进行评估。
相关·内容
我正在尝试使用access 2007 vba来计算sql查询结果中的行数。我所拥有的是一个名为AGN的文本框，当用户在其上放置值时，检查该值，然后如果该值已经插入，它将返回MsgBox。我想做的是：
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "SELECT agencies.[agency no] FROM agencies WHERE agencies.[agency no]= " &Me.AGN.Text
浏览 3提问于2014-04-21得票数 0
1回答
VBA中的数据库更新
、、、
Sub uoload_data()
Dim s(40) As Integer
Dim Row As Integer
Dim i As Integer
i = 0
For Row = 7 To 39
s(i) = Sheets("Data").Cells(Row, 5).Value
i = i + 1
Next
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As Stri
浏览 0提问于2015-06-25得票数 0
我想通过vba代码将SQL SERVER中的图像路径字段插入到access表中，但它没有运行并发送运行时错误3075，除了path之外，所有字段都插入成功。
Dim sqlstr As String
Dim sqlstr1 As String
dim strSQL as string
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenDynamic
rs.LockType = adLockReadOnly
rs.
浏览 1提问于2016-11-15得票数 0
我在表单中有以下未绑定的字段：
txtCBDate -格式为"Medium Date“-我的PC的本地化日期设置为："dd/mm/yyyy”txtCBRemarks。
在VBA中，对于cmdSAVE_Click事件，我有以下代码：
Dim myDate as Date
Dim myRemarks as String
myDate = txtCBDate.Value
myRemarks = txtCBRemarks.Value
Sql = insert into CB (CBDate, CBRemarks) values (myDate, myRemarks)
db.Exe
浏览 4提问于2016-02-21得票数 0
我有一个简单的表单与3个字段-一个列表框，显示一个地点列表从表地点，一个文本框与一个日期选择器和一个文本框，允许用户插入事件名称。我需要列表框的值来查看会场表并选择会场id。然后，我想用这个场所id和文本框值date和event name更新事件表。我创建的代码如下所示：
Private Sub cmdCreateEvent_Click()
Dim dteDateHeld As Date
Dim strEventName As String
Dim strVenue As String
Dim strSQL As String
'check
浏览 0提问于2016-05-02得票数 0
我是新手的VB.net和创建一个应用程序，使用户需要登录用户名和密码。
我使用的是SQL Server Compact Edition数据库。
这是我的代码，它完美地工作：
Imports System.Data.SqlClient
Imports System.Data.SqlServerCe
Public Class frm_edit_patient
Dim con As New SqlCeConnection
Try
Dim SQLquery As String
Dim da As SqlCeDataAdapter
Dim
浏览 0提问于2012-09-26得票数 1
回答已采纳
3回答
我正在使用VBA脚本在SQL中更新表，到目前为止，它工作得很好。问题出在处理空值时。因为VBA脚本一直循环到第一列结束，所以工作表中的某些值为null，但在sql中它们被放置为零。
在Excel中：
Name Last name Age
daniel mtz 22
jose mtz 25
John doe
SQL中的最终结果：
Name Last name Age
daniel mtz 22
浏览 1提问于2014-04-04得票数 3
1回答
需要帮助！我无法让下面的脚本工作，即使所有的值都按照预期进行了初始化。我收到运行时错误'3061‘。参数太少。预期为2。当我将相同的insert复制并粘贴到Access SQL中，并将变量替换为值时，查询将起作用。太让人沮丧了。请帮帮我！
Private Sub Clock_In_Click()
Dim dbs As Database
Dim txEmployee_ID As Integer
Dim txEmployee_Name As String
Dim strSQL As String
txEmployee_ID = Employee
浏览 3提问于2015-08-13得票数 0
这可能是一个非常简单的问题，但到目前为止，我很难理解我在网上找到的信息。当我试图在我的VBA中运行SQl时，它会给我strSQl上的类型错配。
我有一个有4列的表tbl_DatabaseUpdateLog
UpdateID (自动编号)
开始(日期/时间)
结束(日期/时间)
期限(日期/时间)
为了一个较小的分析项目，我必须定期从公司数据库中提取信息，我想记录下运行这些查询的频率和时间。每次启动更新时，它都会运行以下命令：
Dim StartUpdate, EndUpdate, LengthUpdate, strSQl As Date
StartUpdate = Time()
浏览 5提问于2016-02-18得票数 2
回答已采纳
我正尝试从另一个表Process Order中获取一条记录，并将其放入一个带有日期(NewTableName)的新表中，但我一直得到“参数太少。预期为1”。我让它工作，并根据No = txtProc或之前的流程传递了一个字段，但无法让它传递我需要的所有字段。
Dim strSQL As String
Dim NewTableName As String
NewTableName = "[Process Order-Oven " & Format(Date, "DD-MM-YYYY") & "]"
strSQL = &#
浏览 0提问于2014-08-05得票数 2
回答已采纳
1回答
将值更新为字符串
、、、
当我在输入中插入字符串时，在更新值时遇到问题。我想要更新的列"Location“是数据库中的一个数据类型: varchar()。我可以插入一个像"3“这样的数字，它会在数据库中更新。但是当我插入一个像"SS14“这样的字符串时，它不会在数据库中更新，我会得到一个错误。我哪里做错了？
<?php
try {
// verify request
if($_SERVER['HTTP_X_REQUESTED_WITH'] != 'XMLHttpRequest') throw new Exception ('N
浏览 1提问于2017-02-09得票数 1
回答已采纳
4回答
我注意到，当我对数据库进行INSERT和SELECT取值时，必须用单引号将字段括起来，如下所示：
mysql_query("INSERT INTO employees (name, age) VALUES ('$name', '$age')");
但是，如果我要更新年龄，我不会使用单引号：
mysql_query("UPDATE employees SET age = age + 1 WHERE name = '$name'");
此外，在将日期添加到SQL数据库时，我似乎也不必用单引号将其括起来：
mysql_q
浏览 1提问于2011-03-13得票数 3
回答已采纳
修复错误后返回，现在是一个新错误。我已经在Access 2007中使用VBA创建了一条SQL语句，并且收到错误消息"Item not found in this collection“字段确实存在于表中并且拼写正确。我甚至将SQL语句复制到一个查询中，并且它起作用了。我假设错误出在代码的这一部分
Dim strCMCID As Long ' (it's a Key field AutoNumber)
strCMCID = Me!CMCID_Txt
和
"WHERE Commitments_Tbl.CMCID = " & strCMCID &
浏览 1提问于2014-02-06得票数 2
回答已采纳
我有一个类，我需要用PHP和MySQL数据库创建一个网站。问题是我无法在我的数据库中插入PHP表单中的数据。在要求用户编写要插入到数据库中的不同值之后，用户被要求编写用户名和密码。使用用户名和密码，我需要找到用户的Id。使用该Id，我需要将网站用户输入的值插入到表PERSONNAGE中，行的IdUser是用户用户名和密码中的值。下面是一个更好地解释我自己的例子：
<form action="backend.php" method="POST">
<fieldset>
<legend>Cr
浏览 0提问于2018-12-18得票数 0
回答已采纳
我正在尝试使用vba来发布到web api。问题是该参数在web api中为空。web api是用asp编写的。我从c#调用了api，它可以工作，但是我不能让它在vba中工作。 下面是对api的vba调用： Sub Test()
Dim http As New MSXML2.XMLHTTP60
http.Open "POST", "http://10.5.72.172:108/api/vbaemail", True
http.SetRequestHeader "Content-type", "appl
浏览 31提问于2021-07-17得票数 0
回答已采纳
我试图在Access 2007 VBA中创建一个参数查询，该查询从用户表单中获取两个输入参数，并根据代码中其他地方编写的公共函数结果返回一个派生字段值。该函数确定计算的“结果”字段的值，该字段由基础表中的4个字段( HomeTeam、AwayTeam、HomeGoals、AwayGoals )的值派生而来。
如果我通过立即窗口调试代码，并将SQL字符串粘贴到Access SQL窗口，查询将完美运行，但不会从VBA运行。产生的错误是：
运行时错误3141. SELECT语句包含一个保留字或一个参数名，该名称拼写错误或丢失，或者标点符号不正确。
我不想在Access中直接运行查询，因为参数季节是一
浏览 1提问于2014-04-05得票数 1
1回答
我试图使用MS中的VBA将当前日期插入到表中。无论我尝试什么，日期都被插入为12/30/1899年。有什么建议来解决这个问题吗？这是我的密码
Dim StrSQL As String
Dim db As Database
Dim InID As Integer
Dim Inputcasedate As String
Dim InputCaseType_Id As Integer
InID = Me.PgmPart_ID
Inputcasedate = Date
InputCaseType_Id = 1
StrSQL = "INSERT INTO CaseNotes (PgmPart
浏览 2提问于2022-03-01得票数 0
我有一个用户列表(作为字符串变量)，并希望使用它作为SQL选择第一个项的代码的条件(每次一个用户)。因此，我将SQL查询作为字符串放在后面的代码中运行。
我试过这个：
strSQL = "SELECT TOP 1 Item.Code FROM Item WHERE Item.User = '"
strSQL = strSQL & strUserName & "' ORDER BY ID DESC"
例如，如果strUserName = "A-user“，我只得到这个SQL字符串，根据"Quick .”：
SELE
浏览 2提问于2016-07-14得票数 1
回答已采纳
1回答
我在VBA中有以下代码：
Dim strSQL As String
strSQL = "UPDATE Workstations SET MID = newvalue WHERE MID = tempvalue"
DoCmd.RunSQL strSQL
newvalue和tempvalue都是全局变量，并且已经设置了值。从语法上讲，这有意义吗？还是我漏掉了引号？
浏览 5提问于2014-03-21得票数 3
回答已采纳
下面的vba代码有点问题：
Sub ADOExcelSQLServer()
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Server_Name = "EXCEL-PC\EXCELDEVELOPER" ' Ent
浏览 2提问于2018-05-10得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
