Question

用vb查询sql server 2000数据库将其中中符合查询条件的数据分别给变量

如查询到5行数据记录，第一行的每个字段分别给变量，第二行也是，请问该怎么做，帮帮我把。

Answer 1

Dim VerString1(100) As String
Dim VerString(100) As String
Set adoPrimaryRS1 = New Recordset
adoPrimaryRS1.Open "select 客户简称 from KH_JBZL where 客户类型='销售商' " & OptionStr2 & "", DB, adOpenStatic, adLockOptimistic
If adoPrimaryRS1.RecordCount > 0 Then
adoPrimaryRS1.MoveFirst
For R = 0 To adoPrimaryRS1.RecordCount - 1
VerString1(R)=Trim(IIf(IsNull(adoPrimaryRS1!客户简称), "", adoPrimaryRS1!客户简称))
adoPrimaryRS1.MoveNext
Next R
End If

Answer 2

动态数组：
Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Open .......
rs.Open ........
Dim a(), i As Integer, j As Integer
ReDim a(rs.RecordCount - 1, rs.Fields.Count - 1)
For i = 0 To rs.RecordCount - 1
For j = 0 To rs.Fields.Count - 1
a(i, j) = rs(j)
Next
rs.MoveNext
Next