求助 vb 读取问题

Question

怎样mshflexgrid里的数据减1读取到access里

Answer 1

Private Sub CommandButton1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i As Integer
    Dim j As Integer
    
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db\mydb.mdb;Persist Security Info=False"    
    
    cn.BeginTrans
    
    With mshflexgrid
        For i = 1 To .Rows - 1
            strsql = ""
            strsql = strsql & "insert into mytable (" & vbNewLine
            strsql = strsql & "      id " & vbNewLine
            strsql = strsql & "    , num_1 " & vbNewLine
            strsql = strsql & "    , num_2 " & vbNewLine
            strsql = strsql & "    , num_3 " & vbNewLine
            strsql = strsql & "    )" & vbNewLine
            strsql = strsql & "values" & vbNewLine
            strsql = strsql & "    " & i & " " & vbNewLine
            .col = 1
            strsql = strsql & "   ," & Val(.Text) - 1 & vbNewLine
            .col = 1
            strsql = strsql & "   ," & Val(.Text) - 1 & vbNewLine
            .col = 1
            strsql = strsql & "   ," & Val(.Text) - 1 & vbNewLine
            
            strsql = strsql & "    )" & vbNewLine
        
            cn.Execute strsql
            
        Next i
    End With
    
    cn.CommitTrans
    
    cn.Close
    Set cn = Nothing
    
            
    
End Sub

Answer 2

Private Sub CommandButton1_Click() 
    Dim cn As New ADODB.Connection 
    Dim rs As New ADODB.Recordset 
    Dim i As Integer 
    Dim j As Integer 
    
    cn.CursorLocation = adUseClient 
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db\mydb.mdb;Persist Security Info=False"     
    
    cn.BeginTrans 
    
    With mshflexgrid 
        For i = 1 To .Rows - 1 
            strsql = "" 
            strsql = strsql & "insert into mytable (" & vbNewLine   '第一个括号 开始
            strsql = strsql & "      id " & vbNewLine 
            strsql = strsql & "    , num_1 " & vbNewLine 
            strsql = strsql & "    , num_2 " & vbNewLine 
            strsql = strsql & "    , num_3 " & vbNewLine 
            strsql = strsql & "    )" & vbNewLine                   '第一个括号 结束
            strsql = strsql & "values(" & vbNewLine                 '第二个括号 开始
            strsql = strsql & "    " & i & " " & vbNewLine 
            .col = 1 
            strsql = strsql & "  ," & Val(.Text) - 1 & vbNewLine 
            .col = 1 
            strsql = strsql & "  ," & Val(.Text) - 1 & vbNewLine 
            .col = 1 
            strsql = strsql & "  ," & Val(.Text) - 1 & vbNewLine 
            
            strsql = strsql & "    )" & vbNewLine                   '第二个括号 结束
        
            cn.Execute strsql 
            
        Next i 
    End With 
    
    cn.CommitTrans 
    
    cn.Close 
    Set cn = Nothing 
    
            
    
End Sub