vb 至少一个参数没有被指定值，希望大家帮帮忙！

Question

Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim i As Integer
For i = 1 To MSHFlexGrid1.Row
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\project.mdb;Persist Security Info=False;"
Set rs = db.Execute("update ht_load set loadval = '" & MSHFlexGrid1.TextMatrix(i, 1) & "'where prlife = i")
rs.Update
Next
rs.Close
db.Close

Answer 1

Set rs = db.Execute("update ht_load set loadval = '" & MSHFlexGrid1.TextMatrix(i, 1) & "'where prlife = '" & i & "')" 

Answer 2

我就是想将mshflexgrid中的一列数保存到数据库中

Answer 3

Set rs = db.Execute("update ht_load set loadval = '" & MSHFlexGrid1.TextMatrix(i, 1) & "'where prlife = " & i

Answer 4

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\project.mdb;Persist Security Info=False;"
For i = 1 To MSHFlexGrid1.Row - 1
db.Execute("update ht_load set loadval = '" & MSHFlexGrid1.TextMatrix(i, 1) & "' where prlife = " & i) 
Next 

Answer 5

    Dim db As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = db
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
    End With
    
    Dim i As Integer
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\project.mdb;Persist Security Info=False;"
    
    rs.Open "select * from ht_load " '不知道你的 MSHFlexGrid1 从数据库读数据是什么样的SQL语句;
                                     '如果那里也是用记录集读入的,这里省掉不要,也不用重新定义rs
    For i = 1 To MSHFlexGrid1.Row - 1
        rs.Fields("loadval").Value = MSHFlexGrid1.TextMatrix(i, 1)
        rs.Update
        rs.MoveNext
    Next
    rs.Close
    db.Close

Answer 6

ELSE:
    With rs
        .ActiveConnection = db
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockBatchOptimistic
    End With
    
    Dim i As Integer
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\project.mdb;Persist Security Info=False;"
    
    rs.Open "select * from ht_load " '不知道你的 MSHFlexGrid1 从数据库读数据是什么样的SQL语句;
                                     '如果那里也是用记录集读入的,这里省掉不要,也不用重新定义rs
    For i = 1 To MSHFlexGrid1.Row - 1
        rs.Fields("loadval").Value = MSHFlexGrid1.TextMatrix(i, 1)
        rs.MoveNext
    Next
    rs.UpdateBatch