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

[feixiangtianwaitian]

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

[guoshaoning]

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

[feixiangtianwaitian]

我prlife字段用的是数字类型

[guoshaoning]

啥类型也不能把 i 套到字符串里面去啊！

[feixiangtianwaitian]

报错是类型不匹配啊

[feixiangtianwaitian]

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

[guoshaoning]

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

[king06]

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

[king06]

    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

[king06]

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

[xicunfu]

7楼正解