RDO通过ODBC访问Sql Server 2000
代码:
Dim Rst As rdoResultset
SQL = "select * from clientinfo "
Set Rst = Cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
With infoRst
.AddNew
!clientname = Trim(Txtname.Text) '
!NativePlace = Trim(Txtaddress.Text) '
!cardid = Trim(TxtcardId.Text) '
.Update '这里出错!!!
End With
出错信息:
实时错误:40002
01000:[Microsoft] [ODBC SQL Server Driver] [SQL Server]语句已终止
郁闷啊!!!
代码:
Dim Rst As rdoResultset
SQL = "select * from clientinfo "
Set Rst = Cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
With infoRst
.AddNew
!clientname = Trim(Txtname.Text) '
!NativePlace = Trim(Txtaddress.Text) '
!cardid = Trim(TxtcardId.Text) '
.Update '这里出错!!!
End With
出错信息:
实时错误:40002
01000:[Microsoft] [ODBC SQL Server Driver] [SQL Server]语句已终止
郁闷啊!!!
Dim Rst As rdoResultset --> Dim Rst As NEW rdoResultset
数据类型不可能不对
Dim Rst as Rdoresultset 是这样的