读书人

实时异常94

发布时间: 2012-02-12 17:16:34 作者: rapoo

实时错误94
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim oter1() As String
Dim oter2() As String
Dim i As Integer
Dim cardcode() As String
Dim cardname() As String

Set con = New Connection
con.CursorLocation = adUseClient
con.Open "driver={SQL SERVER};server=server;pwd=760522;uid=sa;database=sbo_gymy_2007 "

sql = "select descript,territryID from oter "

Set rs = New Recordset

Set rs = con.Execute(sql)
'给combo1赋值
i = 0
While Not rs.EOF

Combo1.AddItem (rs(0))
rs.MoveNext
i = i + 1
Wend
sql = " "
Set rs = Nothing
sql = "select cardname,cardcode from ocrd "
Set rs = con.Execute(sql)

'给combo2赋值
While Not rs.EOF

Combo2.AddItem (rs(0))-----> 实时错误94,无效使用 null
rs.MoveNext
Wend

'rs.Close
Set rs = Nothing

con.Close

[解决办法]
rs(0)是NULL值?

读书人网 >VB

热点推荐