SQL问题求助大神

larer

fenghuaxue 发表于 2024-12-18 11:20
直接通过其他客户端软件连接数据库，运行这个sql看下。

刚试了在DBEAVER中试了这个是没有问题的,可以正常更新,但是在VBA中就不行,提示语法错误.

larer

zpy2 发表于 2024-12-18 11:49
可能vba客户端不支持吧

begin;...commit;这种 的应该是服务器端解释执行的,VBA通过ado提交SQL语句给服务器,返回的错误要么是ADO要么是服务器,估计还是哪个地方没有配置好

fenghuaxue

larer 发表于 2024-12-18 12:11
刚试了在DBEAVER中试了这个是没有问题的,可以正常更新,但是在VBA中就不行,提示语法错误.

把begin; commit;去掉呢，单个命令就是原子性的，不用加。

larer

fenghuaxue 发表于 2024-12-18 13:16
把begin; commit;去掉呢，单个命令就是原子性的，不用加。

单个命令是没问题可以执行的,但是在录入界面中的数据,包含了insert,update,delete等多项操作,希望一次性执行完毕,要么全部成功,要么一个也不执行,所以才在开始和最后加了begin 与commit

fenghuaxue

larer 发表于 2024-12-18 15:21
单个命令是没问题可以执行的,但是在录入界面中的数据,包含了insert,update,delete等多项操作,希望一次性 ...

那就一条一条执行，先用";"号拼起来；执行的时候用";"拆开，一条一条跑，我就这么干过。

fenghuaxue

fenghuaxue 发表于 2024-12-18 15:27
那就一条一条执行，先用";"号拼起来；执行的时候用";"拆开，一条一条跑，我就这么干过。

vba这么弱，既然你这些写跑不了，那就是不支持事务。

fenghuaxue

不对，这里有一个使用事务的案例，AI给的，你可以参考下：

1. Sub ExecuteMySQLTransaction()
   
2.     Dim conn As Object
   
3.     Dim cmd As Object
   
4.     Dim connString As String
   
5. 
   
6.     ' 创建连接和命令对象
   
7.     Set conn = CreateObject("ADODB.Connection")
   
8.     Set cmd = CreateObject("ADODB.Command")
   
9. 
   
10.     ' 连接字符串
    
11.     connString = "Driver={MySQL ODBC 8.0 Driver};Server=your_server;Database=your_database;User=your_username;Password=your_password;Option=3;"
    
12.    
    
13.     ' 打开连接
    
14.     conn.Open connString
    
15. 
    
16.     ' 开始事务
    
17.     conn.BeginTrans
    
18. 
    
19.     On Error GoTo ErrorHandler
    
20. 
    
21.     ' 设置命令对象
    
22.     With cmd
    
23.         .ActiveConnection = conn
    
24.         
    
25.         ' 第一个 SQL 操作
    
26.         .CommandText = "UPDATE `parament` SET `值` = '350' WHERE `参数名` = '欠费预警金额';"
    
27.         .Execute
    
28.         
    
29.         ' 第二个 SQL 操作
    
30.         .CommandText = "INSERT INTO `parament` (`参数名`, `值`) VALUES ('新参数', '100');"
    
31.         .Execute
    
32.         
    
33.         ' 提交事务
    
34.         conn.CommitTrans
    
35.     End With
    
36. 
    
37.     ' 关闭连接
    
38.     conn.Close
    
39.     Set cmd = Nothing
    
40.     Set conn = Nothing
    
41. 
    
42.     MsgBox "事务成功完成！"
    
43.     Exit Sub
    
44. 
    
45. ErrorHandler:
    
46.     ' 回滚事务
    
47.     conn.RollbackTrans
    
48.     MsgBox "发生错误: " & Err.Description
    
49.     If Not conn Is Nothing Then conn.Close
    
50.     Set cmd = Nothing
    
51.     Set conn = Nothing
    
52. End Sub
    

复制代码

WANT-T

应该是说法错误，vba里的SQL语句本质上是字符串，大概率是字符串里的单引号没有处理好！

larer

WANT-T 发表于 2024-12-18 16:24
应该是说法错误，vba里的SQL语句本质上是字符串，大概率是字符串里的单引号没有处理好！

真让人头疼

larer

fenghuaxue 发表于 2024-12-18 15:56
不对，这里有一个使用事务的案例，AI给的，你可以参考下：

你代码里的方法看起来还不错,晚点尝试一下