excel读取到dataset然后导入到数据库中，大家帮看看程序有什么问题没有

Question

excel读取到dataset然后导入到数据库中，大家帮看看程序有什么问题没有

Answer 1

Private Sub CreateDataSource()
        Dim mycon As New OleDbConnection
        Dim myadpt As New OleDbDataAdapter
        Dim myds As New DataSet
        mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=C:\Inetpub\wwwroot\excel_test\book1.xls;" + "Extended Properties=Excel 8.0;"
        myadpt.SelectCommand = New OleDbCommand
        myadpt.SelectCommand.CommandText = "select * from [Sheet1$]"
        myadpt.SelectCommand.Connection = mycon
        myadpt.Fill(myds)
        ' mygrid.DataSource = myds.Tables("[Sheet1$]").DefaultView
        ' mygrid.DataBind()
        Dim sqlConn As SqlConnection = New SqlConnection("data source=(local);database=test;uid=sa;pwd=")
        Dim cmd As SqlCommand
        sqlConn.Open()
        Dim i As Integer
        For i = 0 To myds.Tables("[Sheet1$]").Rows.Count  '.Rows.Count
            i = i + 1
            cmd = New SqlCommand '("insert into Excle_test(outlet,month1,outletstate) values('"myds.Tables("[Sheet1$]").Rows[i][outlet] + "' ",sqlConn)
            cmd.CommandText = "insert into Excle_table(outlet,month1,outletstate) values('+myds.Rows[i][outlet]+','+myds.Rows[i][month1]+','+myds.Rows[i][outletstate]+')"
            cmd.ExecuteNonQuery()
        Next
        cmd.Dispose()
        sqlConn.Close()
    End Sub

Answer 2

我帮你定，大家来看看吧，这个是把C#版本的excel变成了VB版本的

Answer 3

不管VB还是C＃，道理都是一样的，中国人说饭，外国人说meal，都一个意思