VB+SQL SERVER使用ADO时的问题,高手请进
DeD 2001-05-15 12:46:00 代码如下
public sub test()
Dim strSQL As String
Dim cn As ADODB.Connection
On Error GoTo HERROR
'打开连接
strSQL = "create table #Tmp" & vbCrLf _
& "(ItemID int not null ," & vbCrLf _
& "BegQty decimal(28,10) not null default(0))" & vbCrLf
strSQL = strSQL & "insert into #Tmp(ItemID,BegQty)" & vbCrLf
strSQL = strSQL & " select ItemID,BegQty from tableA" & vbCrLf
strSQL = strSQL & " select * from #Tmp" & vbCrLf
strSQL = strSQL & "drop table #Tmp" & vbCrLf
cn.Execute strSQL
'此处我就出现问题,当向临时表#Tmp 插入纪录时 BegQty 的值存在NULL我用SQL
'Query Analyzer执行可以出现错误但是此处我用错误陷阱不能捕获错误
'我的错误捕获设置为 Break IN Class Module
'当然我可以通过访问cn.Errors对象来查看有没有出错,希望知道
'ADO 的Connection 对象有没有一个属性设置可以捕获此类错误
cn.close
set cn=nothing
exit sub
HERROR:
set cn=nothing
end sub