将程序中得到一个新的数组数据存到数据库的一个新的表格中
Dim db As New ADODB.Connection
Private Sub Command1_Click()
Dim socs() As String, rs() As Integer, temp1 As String, temp2 As String, j As Integer
temp2 = ""
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=students;Data Source=PC-NAME"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * from soc", db, adOpenStatic, adLockOptimistic
ReDim socs(adoPrimaryRS.RecordCount)
ReDim rs(adoPrimaryRS.RecordCount)
adoPrimaryRS.MoveFirst
i = 0
Do While Not adoPrimaryRS.EOF
temp2 = ""
socs(i) = adoPrimaryRS(1)
rs(i) = adoPrimaryRS(3)
temp1 = "3-" + socs(i) + ",r=" + Trim(Str(rs(i)))
temp2 = temp2 & temp1
If rs(i) < 3 Then
Print i + 1; temp2
End If
temp2 = temp2 + Chr(10) + Chr(13) '换行功能
i = i + 1
adoPrimaryRS.MoveNext
Loop
adoPrimaryRS.Close
'以下我想把上面temp1得到的数据存到一个新的表格中（这是我的问题所在）
For j = 0 To i
adoPrimaryRS.Open "insert into zh (zhonglei,zuhe) VALUES (1,'temp1')", db, adOpenStatic, adLockOptimistic 'zh是我的一个空的数据库表格
Next j
End Sub
'我遇到的问题是：我去数据库中查询zh这个表格的信息，表格中出现的是1和temp1.跟不上不是我想要存的数据，希望高手能够帮忙解决。简单点讲我就是想将程序中得到的一个新的数据存到数据库中的一个表格中。
[解决办法]
1，没看出你的temp1是数组
2，
adoPrimaryRS.Open "insert into zh (zhonglei,zuhe) VALUES (1,'" & temp1 & "')", db, adOpenStatic,
