连接access或SqL2000数据库全局变量方法求助

浠朢↘恠明兲

用了EH2003作者的[分享] 连接access或SqL2000数据库全局变量方法(增加示例）
http://club.excelhome.net/thread-894274-1-1.html
请问如果要插入新记录改怎么插入？

1.     Cnn.ExecuteSQL = "Insert Into 售出 " & Sql '插入新记录SQL语句

复制代码

这样不行

1. Public cnn As ADODB.Connection
   
2. Public rst As ADODB.Recordset
   
3. Public msg As String
   
4. Public sql As String         '创建字符串变量
   
5. 
   
6. Public Function ExecuteSQL(sql As String) As ADODB.Recordset
   
7.     On Error GoTo executesql_error
   
8.     Set cnn = New ADODB.Connection
   
9.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\db1.mdb"  '连接access的方法
   
10.     Set rst = New ADODB.Recordset
    
11.     rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
    
12.     Set ExecuteSQL = rst
    
13. executesql_exit:
    
14.     Set rst = Nothing
    
15.     Set cnn = Nothing
    
16.     Exit Function
    
17. executesql_error:
    
18.     msg = "错误原因：" & Err.Description
    
19.     Resume executesql_exit
    
20.     End Function

复制代码

自己测试已解决：

1. Set Rst = ExecuteSQL("Insert Into 售出 " & Sql)

复制代码

SQL语句里EXCEL版本不知道为什么12.0就不行，8.0就可以

浠朢↘恠明兲

求帮忙看看，研究了老半天不知道怎么用

lsdongjh

cnn.Execute strSQL

浠朢↘恠明兲

lsdongjh 发表于 2018-8-17 17:51
cnn.Execute strSQL

不行啊，StrSQL没这个变量

lsdongjh

strSQL 是你的SQL语句！！！

lsdongjh

cnn.Execute  有两种应用方式，取决于你的语句用途
1、如果是按行返回，也就是返回一个记录集：set Rst=cnn.Execute (strSQL)
2、如果不按行返回，也就是一些操作语句，如insert upeate等：cnn.Execute strSQL,
   当然你可以加入一个参数，判断操作是否成功，也就是这个操作影响了几行：cnn.Execute strsql,lngRecordCount

浠朢↘恠明兲

lsdongjh 发表于 2018-8-17 18:04
cnn.Execute  有两种应用方式，取决于你的语句用途
1、如果是按行返回，也就是返回一个记录集：set Rst=cn ...

Cnn.Execute = "Insert Into 售出 " & Sql '插入新记录SQL语句
产数不可选

lsdongjh

好好学习一下SQL语句吧

浠朢↘恠明兲

lsdongjh 发表于 2018-8-17 18:04
cnn.Execute  有两种应用方式，取决于你的语句用途
1、如果是按行返回，也就是返回一个记录集：set Rst=cn ...

我是用了EH2013作者的Function ExecuteSQL全局变量，返回数据Set Rst = ExecuteSQL(Sql)没有问题，就是不知道INSERT怎么用

opiona

6楼说了：改成这样子
'插入新记录SQL语句
strsql= "Insert Into 售出 " & Sql   
cnn.Execute strsql,lngRecordCount
msgbox lngRecordCount
详细的请参考：70楼：http://club.excelhome.net/thread-859194-1-1.html