VB取EXCEL值放入DATAGRID中，怎么样把DATAGRID的数据放到数据库的某张表中---在线等

Question

把EXCEL的数据放入了DATAGRID中，怎么样把DATAGRID的数据保存到数据库的某个表中。
在线等。

Answer 1

DATAGRID不灵活，改用msflexgrid吧

Answer 2

msflexgrid中怎么来实现呢，急

Answer 3

用adodc+DATAGRID数据绑定即可完成
给你段代码做示例
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("编号") = dmin + 1
    Adodc1.Recordset.Fields("账号") = Val(sh.Cells(1, 2))
    Adodc1.Recordset.Fields("金额") = Val(sh.Cells(1, 3))
    Adodc1.Recordset.Update
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.MoveLast
    Adodc1.Refresh
    DataGrid1.Refresh

Answer 4

Private Sub Command1_Click()
        Dim iiRow As Integer
        Dim iiCol As Integer
        Dim tempSql As String
        Dim DcolCount As Integer
        Dim DrowCount As Integer
        Dim Fld() As String
        DcolCount = DataGrid1.Columns.Count - 1
        DrowCount = 100 '你导入到datagrid中EXCEL记录的行数
        ReDim Fld(DcolCount)
        iiRow = 0: iiCol = 0
        Adodc2.Refresh
        Do While iiRow < DrowCount
            Adodc2.Recordset.AddNew
            Do While iiCol <= DcolCount
                DataGrid1.Row = iiRow
                
                Adodc2.Recordset.Fields(iiCol).Value = Format(DataGrid1.Columns(iiCol).Value)
                iiCol = iiCol + 1
                
                DoEvents
            Loop
            Adodc2.Recordset.Update
            
            Adodc2.Refresh
            
            iiCol = 0
            tmpCol = 0
            tempSql = ""
            iiRow = iiRow + 1
            DoEvents
        Loop
        
End Sub

Answer 5

没什么不灵活。你把 Excel 作为 Jet Engine 的外部数据库连接；用记录集对象查询其中的数据，可以直接挂接到 DataGrid 上。另外，导入到例如 Access 数据库表时，用 Connection 对象的 Execute 方法，就可以执行类似 Insert Into Access_Table IN 'your_Access_Path&Filename.mdb' From [your_Excel_sheet$] Where ...这样的语句。

Answer 6

 做个循环就可以了。下面的代码是把datagrid中的数据倒入到密码为11的access数据库。代码如下：
    Dim Res As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Res.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
           & App.Path & "\hushiAgu.mdb;Persist Security Info=False;Jet OLEDB:Database Password=11"
   Rs.MoveFirst
   Do While Not frmMain.Rs.EOF
   Res.Execute  "Insert Into table.name (编号，账号，金额)values ('" & Rs("编号") & "','" & Rs("账号") & "','" & Rs("金额") & "')"                                                                  
   Rs.MoveNext
   Loop