写了个ecxel导入到datagridview,然后保存到sql表里的程序,现在能成功导入到sql里,但是总会出个报错框!代码如下:
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Form1
Dim cn As OleDbConnection
Dim cn2 As SqlConnection
Dim cm As OleDbCommand
Dim cm2 As SqlCommand
Dim da As OleDbDataAdapter
Dim da2 As SqlDataAdapter
Dim ds As DataSet
Private Sub 导入EXCEL_Click(sender As Object, e As EventArgs) Handles 导入EXCEL.Click
OpenFileDialog1.Filter = "xlsx|*.xlsx"
OpenFileDialog1.ShowDialog()
excel路径.Text = OpenFileDialog1.FileName
cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel路径.Text + ";Extended Properties='Excel 12.0;HDR=False;IMEX=1'")
da = New OleDbDataAdapter("select * from [Sheet1$]", cn)
ds = New DataSet()
da.Fill(ds, "DT")
DataGridView1.DataSource = ds.Tables("DT")
End Sub
Private Sub 保存到sql_Click(sender As Object, e As EventArgs) Handles 保存到sql.Click
cn2 = New SqlConnection("Data Source=192.168.1.110;Initial Catalog=UFDATA_999_2015;Integrated Security=False;User ID=sa;Password=***;")
cm2 = New SqlCommand("INSERT INTO zzztest (name,age) VALUES (@name,@age)", cn2)
For i As Integer = 0 To DataGridView1.Rows.Count - 1
cn2.Open()
cm2.Parameters.Add(New SqlParameter("@name", DataGridView1.Rows(i).Cells("姓名").Value))
cm2.Parameters.Add(New SqlParameter("@age", DataGridView1.Rows(i).Cells("年龄").Value))
cm2.ExecuteNonQuery()
cn2.Close()
cm2.Parameters.Clear()
Next
MessageBox.Show("已成功导入" & DataGridView1.Rows.Count - 1 & "条数据", "导入提示")
End Sub
End Class
点继续后是可以保存到sql数据库里的,但是会出这个框框!怎么改下呢?