连接access或SqL2000数据库全局变量方法(增加示例）

gszsg

怎样跟踪监视一下rst呢，有个“运行时错误，类型不匹配”，是不是数据库里有空值？

gszsg

确实有空值，加不到下拉菜单

gszsg

SQL = "Select  * from 材料信息  where 材料类别 LIKE '%" & textbox1.Text & "%'"
Set rst = ExecuteSQL(sql)
我这样改了以后，运行时update 和incert 语句有时实现不了并不报错，这是什么原因，比如update很多数据，有的成功了有个别没有成功，再运行一遍程序又都成功了。

xmniuge

{:soso_e179:}{:soso_e163:}

fzkoko

谢谢分享。

songzi2000

不是很理解楼主的意思，太深奥了

EH2003

songzi2000 发表于 2014-12-17 17:09
不是很理解楼主的意思，太深奥了

每次连接数据库时是不是都要这一句：
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\data\data.mdb"  '连接access的方法
   SQL = "Select  * from 材料信息  where 材料类别 LIKE '%" & textbox1.Text & "%'"
    rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic, adCmdText
使用完成后在释放连接。
现在我们就是要通过建立ExecuteSQL函数，达到精简代码的目的，同时也实现了只要修改一句代码就可以将客户端升级到SQL版。只要将以上代码改为：
SQL = "Select  * from 材料信息  where 材料类别 LIKE '%" & textbox1.Text & "%'"
Set rst = ExecuteSQL(sql)

nuation

不错，看看学些，谢谢分享

浠朢↘恠明兲

1. Sub Temp1()
   
2. Dim i
   
3. Sql = "SELECT * FROM 售出"
   
4. Set Rst = ExecuteSQL(Sql)
   
5. 
   
6.     For i = 0 To Rst.Fields.Count - 1
   
7.         Cells(9, i + 12) = Rst.Fields(i).Name
   
8.     Next
   
9.     Sheet2.[L10].CopyFromRecordset Rst
   
10. 
    
11. End Sub
    

复制代码

试了一下，对象变量或with块变量未设置报错，为什么？

浠朢↘恠明兲

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

插入新记录该怎么用？