MyException - 我的异常网
当前位置:我的异常网» VB » 将程序中失去一个新的数组数据存到数据库的一个新的

将程序中失去一个新的数组数据存到数据库的一个新的表格中

www.MyException.Cn  网友分享于:2013-01-07  浏览:1次
将程序中得到一个新的数组数据存到数据库的一个新的表格中
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, 

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有