[½»Á÷] VB.net½«Excelµ¼Èëµ½Accessµ«datagridviewÉϲ»ÄÜÏÔʾ¸üкóµÄÊý¾Ý£¿

Private Sub Êý¾Ýµ¼ÈëToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Êý¾Ýµ¼ÈëToolStripMenuItem.Click         Dim dresult As DialogResult = Me.openFileDialog1.ShowDialog()         If dresult = System.Windows.Forms.DialogResult.OK Then             Dim filepath As String = openFileDialog1.FileName             If filepath = "" Then                 MessageBox.Show("ÇëÑ¡ÔñÒªµ¼ÈëµÄExcelÎĵµ£¡", "ϵͳÌáʾ", MessageBoxButtons.OK, MessageBoxIcon.Information)                 Return             Else                 Dim ds As New DataSet()                 'È¡µÃÊý¾Ý¼¯                 'µ÷ÓÃÏÂÃæµÄº¯Êý                 ds = xsldata(filepath)                 'dataGridView2.DataSource = ds.Tables[0];                 Dim errorcount As Integer = 0 '¼Ç¼´íÎóÐÅÏ¢ÌõÊý                 Dim updatecount As Integer = 0 '¸üÐÂÐÅÏ¢ÌõÊý                 Dim insertcount As Integer = 0 '¼Ç¼²åÈë³É¹¦ÌõÊý                 Dim mess As String = ""                 Dim i As Integer                 For i = 0 To (ds.Tables(0).Rows.Count) - 1                     Dim mc As String = ds.Tables(0).Rows(i).Item(0).ToString  '¶ÁȡÿһÐеĵÚÒ»ÁÐÊý¾Ý                     Dim kbc As Double = CType(ds.Tables(0).Rows(i).Item(1), Double)                     Dim hsc As Double = CType(ds.Tables(0).Rows(i).Item(2), Double)                     Dim shtc As Double = CType(ds.Tables(0).Rows(i).Item(3), Double)                     Dim ysc As Double = CType(ds.Tables(0).Rows(i).Item(4), Double)                     Dim djc As Double = CType(ds.Tables(0).Rows(i).Item(5), Double)                     Dim stc As Double = CType(ds.Tables(0).Rows(i).Item(6), Double)                     Dim dzc As Double = CType(ds.Tables(0).Rows(i).Item(7), Double)                     Dim hhc As Double = CType(ds.Tables(0).Rows(i).Item(8), Double)                     Dim dhc As Double = CType(ds.Tables(0).Rows(i).Item(9), Double)                     Dim zjc As Double = CType(ds.Tables(0).Rows(i).Item(10), Double)                     Dim yx As Double = CType(ds.Tables(0).Rows(i).Item(11), Double)                     Dim bgzl As Double = CType(ds.Tables(0).Rows(i).Item(12), Double)                     Dim gjzs As Double = CType(ds.Tables(0).Rows(i).Item(13), Double)                     Dim kxb As Double = CType(ds.Tables(0).Rows(i).Item(14).ToString, Double)                     Dim yxzs As Double = CType(ds.Tables(0).Rows(i).Item(15).ToString, Double)                     Dim Str As String = "insert into zuankong(Ãû³Æ,¿Õ°×²ã,º¬Ë®²ã,É°ÍÁ²ã,ÑÒʯ²ã,¶Ñ»ý²ã,ËÀÍÁ²ã,µØÖʲã,»ð»¯²ã,µØºË²ã,Öмä²ã,ÑÒÐÔ,±È¹áÈë×èÁ¦,±ê¹á»÷Êý,¿×϶±È,ÒºÐÔÖ¸Êý) Values ('" + mc + "','" & Trim(kbc) & "','" & Trim(hsc) & "','" & Trim(shtc) & "','" & Trim(ysc) & "','" & Trim(djc) & "','" & Trim(stc) & "','" & Trim(dzc) & "','" & Trim(hhc) & "','" & Trim(dhc) & "','" & Trim(zjc) & "','" & Trim(yx) & "','" & Trim(bgzl) & "','" & Trim(gjzs) & "','" & Trim(kxb) & "','" & Trim(yxzs) & "') "                 Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection                     conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & System.Windows.Forms.Application.StartupPath & "\zkshujuku.mdb;"                     Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand                     conn.Open() '´ò¿ªÁ¬½Ó                     cmd.Connection = conn                     Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(Str, conn)                     da.Fill(ZkshujukuDataSet, "zuankong"                     DataGridView1.DataSource = ZkshujukuDataSet.Tables(0) '¸ü»»datagridview1µÄÊý¾ÝÔ´                     DataGridView1.Refresh()                 Next                    End If         End If     End Sub     Private Function xsldata(ByVal filepath As String) As DataSet         Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath + ";Extended Properties='Excel 8.0;IMEX=1'"         Dim Conn As New System.Data.OleDb.OleDbConnection(strCon)         Dim strCom As String = "SELECT * FROM [Sheet1$]"         Conn.Open()         Dim myCommand As New System.Data.OleDb.OleDbDataAdapter(strCom, Conn)         Dim ds As New DataSet()         myCommand.Fill(ds, "[Sheet1$]"         Conn.Close()         Return ds     End Function 'xsldata ÉÏÃæ¿ÉÒÔʵÏÖExcelµ¼Èëµ½Access¹¦ÄÜ£¬µ«ÊÇÔÚDataGridView¿Ø¼þÉϲ»ÄÜÏÔʾ¸üкóµÄÊý¾Ý»¹ÊǸüÐÂÇ°µÄ£¿²ËÄñ¸Õ½Ó´¥Õâ¸ö£¬²»ÊǺܶ®£¬Ï£Íû¸ßÊÖÖ¸µãÃÔ½ò£¡

»Ø¸´´ËÂ¥