各位,请帮忙我一下,我已经为这个问题失眠了几个晚上,关于批量保存

Question

各位大侠,我是想用VSFLEXGRID,表格是空的,格子编辑好数据后,点保存按钮把这里数据批量一次插入到数据库里,我知道是用循环和事务处理来做,但是我对这个控件的属性和用法不了解,现在我使用editgrid这个控件,是这里一个高人做出来的,主要就是想录入数据后一次批量插入数据库的.无论如何我一定要学会,就算每晚不睡觉也要搞懂这个问题,希望群内的大虾们指导一下,因为人都是从一步步走过来的.所以我诚意虚心地请教大家问题,希望你们肯教导一下

Answer 1

是把表中的数据批量插入，是不是要通过循环，for i = 1 to grid.rows-1
                            

Answer 2

Private Sub Command1_Click()
    Dim i As Integer
    Dim cn As New ADODB.Connection
    
    cn.Open ""
    
    On Error GoTo err
    
    cn.BeginTrans
    
    With EditGrid1
        For i = 1 To .Rows - 1
            strsql = "insert into mytable (f1,f2,f3) values('" & .TextMatrix(i, 1) & "','" & .TextMatrix(i, 2) & "','" & .TextMatrix(i, 5) & "')"
            cn.Execute strsql
        Next i
    End With
    
    cn.CommitTrans
err:
    cn.RollbackTrans
    
End Sub
    

Answer 3

Private Sub Command1_Click()
    Dim i As Integer
    Dim cn As New ADODB.Connection
    
    cn.Open ""
    
    On Error GoTo err
    
    cn.BeginTrans
    
    With EditGrid1
        For i = 1 To .Rows - 1
            strsql = "insert into mytable (f1,f2,f3) values('" & .TextMatrix(i, 1) & "','" & .TextMatrix(i, 2) & "','" & .TextMatrix(i, 5) & "')"
            cn.Execute strsql
        Next i
    End With
    
    cn.CommitTrans
err:
    cn.RollbackTrans
    
End Sub

Answer 4

顺便说句 ，楼主是打dota的吧  几年了