问题描述
大家好。
我使用以下方法将我的NotePad文本(csv文件)导出到我的DatagridView:
Private Sub BT_Import_Click(sender As System.Object,e As System.EventArgs)处理BT_Import.Click
如果OpenFileDialog1.ShowDialog = Windows.Forms。 DialogResult.OK然后
尝试
DG_Import.Rows.Clear()
Dim FileImported As New System.IO.StreamReader(OpenFileDialog1.FileName)
Dim itemSeparate As Char
Dim columnHeaderStyle As New DataGridViewCellStyle()
DG_Import.ColumnCount = 10
columnHeaderStyle.Font = New Font(" Arial",8,FontStyle.Bold)
DG_Import.ColumnHeadersDefaultCellStyle = columnHeaderStyle
DG_Import.Columns(0).Name =" Local Work"
DG_Import.Columns(1).Name =" Status"
DG_Import.Columns(2).Name ="姓氏"
DG_Import.Columns(3).Name =" First Name"
DG_Import.Columns(4).Name =" New ID"
DG_Import.Columns(5).Name =" ID"
DG_Import.Columns(6).Name =" Function"
DG_Import.Columns(7).Name =" Hire Date"
DG_Import.Columns(8).Name =" Rehire Date"
DG_Import.Columns(9).Name ="终止日期"
itemSeparate =","
而FileImported.Peek()<> -1
DG_Import.Rows.Add(FileImported.ReadLine()。Split(itemSeparate))
End
DG_Import.Rows.RemoveAt(0)
DG_Import .Rows.RemoveAt(0)
Catch ex As Exception
MsgBox(" Import File Error",MsgBoxStyle.Critical," Erro")
End Try
结束如果
结束子
如何将此datagridview信息导出到表SQL Server
我在我的datagridview和表中有相同的列名称。
是否有人认为这样,不是:
Dim StrConn =" password =" &安培; dbPWD& " ;; Persist Security Info = True; User ID =" &安培; dbUserName& ";初始目录=" &安培; dbName& ";数据来源=" &安培; dbAddress& ""
Dim SQLConn As New SqlConnection(StrConn)
Dim SQLcmd As New Data.SqlClient.SqlCommand
尝试
SQLConn.Open( )
SQLcmd.Connection = SQLConn
SQLcmd.CommandText =" Isert into TB_Employees(LocalWordSQL,StatusSQL,LastNameSQL,FirstNameSQL,NewIDSQL,IDSQL,FuncSQL,HireDateSQL,RehireDateSQL,TerminationDateSQL)值(& DG_Import.Columns(0).Name&",'"& DG_Import.Columns(1).Name&"','"& DG_Import.Columns(2).Name&"' ,'"& DG_Import.Columns(3).Name&"','"& DG_Import.Columns(4).Name&"','"& DG_Import.Columns(5) .Name&"','"& DG_Import.Columns(6).Name&"','"& DG_Import.Columns(7).Name&"','"& ; DG_Import.Columns(8).Name&"','"& DG_Import.Columns(9).Name& "")"
SQLcmd.Connection = SQLConn
SQLcmd.Parameters.Add(" @ DG_Import.Columns(0).Name",SqlDbType.VarChar)
SQLcmd.Parameters.Add(" @ DG_Import.Columns(1).Name",SqlDbType.VarChar)
SQLcmd.Parameters.Add(" @ DG_Import.Columns(2).Name",SqlDbType。 VarChar)
SQLcmd.Parameters.Add(" @ DG_Import.Columns(3).Name",SqlDbType.VarChar)
SQLcmd.Parameters.Add(" @ DG_Import.Columns(4).Name" ;,SqlDbType.VarChar)
SQLcmd.Parameters.Add(" @ DG_Import.Columns(5).Name",SqlDbType.VarChar)
SQLcmd.Parameters.Add(" @ DG_Import.Columns( 6).Name",SqlDbType.VarChar)
SQLcmd.Parameters.Add(" @ DG_Import.Columns(7).Name",SqlDbType.VarChar)
SQLcmd.Parameters.Add(" @ DG_Import.Columns(8).Name",SqlDbType.VarChar)
SQLcmd.Parameters.Add(" @DG_Import .Columns(9).Name",SqlDbType.VarChar)
For i As Integer = 0 To DG_Import.Rows.Count - 1
SQLcmd.Parameters (0).Value = DG_Import.Rows(i).Cells(0).Value
SQLcmd.Parameters(1).Value = DG_Import.Rows(i).Cells(1).Value
SQLcmd .Parameters(2).Value = DG_Import.Rows(i).Cells(2).Value
SQLcmd.Parameters(3).Value = DG_Import.Rows(i).Cells(3).Value
SQLcmd.Parameters(4).Value = DG_Import.Rows(i).Cells(4).Value
SQLcmd.Parameters(5).Value = DG_Import.Rows(i).Cells(5).Value
SQLcmd.Parameters(6).Value = DG_Import.Rows(i).Cells(6).Value
SQLcmd.Parameters(7).Value = DG_Import.Rows(i).Cells(7)。值
SQLcmd.Parameters(8).Value = DG_Import.Rows(i).Cells(8).Value
SQLcmd.Parameters(9).Value = DG_Import.Rows(i).Cells(9 ).Value
SQLcmd.ExecuteNonQuery ()
下一个
Catch ex As SqlException
MsgBox(ex.ErrorCode& vbCrLf& ex.Message,MsgBoxStyle.Critical + vbOKOnly,"ADP Time [Error]")
End Try
End Sub
表名:TB_Employees
列表名: LocalWorkSQL,StatusSQL,LastNameSQL,FirstNameSQL,NewIDSQL,IDSQL,FuncSQL,HireDateSQL,RehireDateSQL,TerminationDateSQL
非常感谢。
Hello guys.
I exported my NotePad text (csv file) to my DatagridView using this:
Private Sub BT_Import_Click(sender As System.Object, e As System.EventArgs) Handles BT_Import.Click If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Try DG_Import.Rows.Clear() Dim FileImported As New System.IO.StreamReader(OpenFileDialog1.FileName) Dim itemSeparate As Char Dim columnHeaderStyle As New DataGridViewCellStyle() DG_Import.ColumnCount = 10 columnHeaderStyle.Font = New Font("Arial", 8, FontStyle.Bold) DG_Import.ColumnHeadersDefaultCellStyle = columnHeaderStyle DG_Import.Columns(0).Name = "Local Work" DG_Import.Columns(1).Name = "Status" DG_Import.Columns(2).Name = "Last Name" DG_Import.Columns(3).Name = "First Name" DG_Import.Columns(4).Name = "New ID" DG_Import.Columns(5).Name = "ID" DG_Import.Columns(6).Name = "Function" DG_Import.Columns(7).Name = "Hire Date" DG_Import.Columns(8).Name = "Rehire Date" DG_Import.Columns(9).Name = "Termination Date" itemSeparate = "," While FileImported.Peek() <> -1 DG_Import.Rows.Add(FileImported.ReadLine().Split(itemSeparate)) End While DG_Import.Rows.RemoveAt(0) DG_Import.Rows.RemoveAt(0) Catch ex As Exception MsgBox("Import File Error", MsgBoxStyle.Critical, "Erro") End Try End If End Sub
How can I export this datagridview information to table SQL Server
I have the same columns name in my datagridview and Table.
Is some think like this, isn't:
Dim StrConn = "password=" & dbPWD & ";Persist Security Info=True;User ID=" & dbUserName & ";Initial Catalog=" & dbName & ";Data Source=" & dbAddress & "" Dim SQLConn As New SqlConnection(StrConn) Dim SQLcmd As New Data.SqlClient.SqlCommand Try SQLConn.Open() SQLcmd.Connection = SQLConn SQLcmd.CommandText = "Isert Into TB_Employees (LocalWordSQL, StatusSQL, LastNameSQL, FirstNameSQL, NewIDSQL, IDSQL, FuncSQL, HireDateSQL, RehireDateSQL, TerminationDateSQL) Values (" & DG_Import.Columns(0).Name & ", '" & DG_Import.Columns(1).Name & "', '" & DG_Import.Columns(2).Name & "', '" & DG_Import.Columns(3).Name & "', '" & DG_Import.Columns(4).Name & "', '" & DG_Import.Columns(5).Name & "', '" & DG_Import.Columns(6).Name & "', '" & DG_Import.Columns(7).Name & "', '" & DG_Import.Columns(8).Name & "', '" & DG_Import.Columns(9).Name & "')" SQLcmd.Connection = SQLConn SQLcmd.Parameters.Add("@DG_Import.Columns(0).Name", SqlDbType.VarChar) SQLcmd.Parameters.Add("@DG_Import.Columns(1).Name", SqlDbType.VarChar) SQLcmd.Parameters.Add("@DG_Import.Columns(2).Name", SqlDbType.VarChar) SQLcmd.Parameters.Add("@DG_Import.Columns(3).Name", SqlDbType.VarChar) SQLcmd.Parameters.Add("@DG_Import.Columns(4).Name", SqlDbType.VarChar) SQLcmd.Parameters.Add("@DG_Import.Columns(5).Name", SqlDbType.VarChar) SQLcmd.Parameters.Add("@DG_Import.Columns(6).Name", SqlDbType.VarChar) SQLcmd.Parameters.Add("@DG_Import.Columns(7).Name", SqlDbType.VarChar) SQLcmd.Parameters.Add("@DG_Import.Columns(8).Name", SqlDbType.VarChar) SQLcmd.Parameters.Add("@DG_Import.Columns(9).Name", SqlDbType.VarChar) For i As Integer = 0 To DG_Import.Rows.Count - 1 SQLcmd.Parameters(0).Value = DG_Import.Rows(i).Cells(0).Value SQLcmd.Parameters(1).Value = DG_Import.Rows(i).Cells(1).Value SQLcmd.Parameters(2).Value = DG_Import.Rows(i).Cells(2).Value SQLcmd.Parameters(3).Value = DG_Import.Rows(i).Cells(3).Value SQLcmd.Parameters(4).Value = DG_Import.Rows(i).Cells(4).Value SQLcmd.Parameters(5).Value = DG_Import.Rows(i).Cells(5).Value SQLcmd.Parameters(6).Value = DG_Import.Rows(i).Cells(6).Value SQLcmd.Parameters(7).Value = DG_Import.Rows(i).Cells(7).Value SQLcmd.Parameters(8).Value = DG_Import.Rows(i).Cells(8).Value SQLcmd.Parameters(9).Value = DG_Import.Rows(i).Cells(9).Value SQLcmd.ExecuteNonQuery() Next Catch ex As SqlException MsgBox(ex.ErrorCode & vbCrLf & ex.Message, MsgBoxStyle.Critical + vbOKOnly, "ADP Time [Error]") End Try End Sub
Table Name : TB_Employees
columns table names: LocalWorkSQL, StatusSQL, LastNameSQL, FirstNameSQL, NewIDSQL, IDSQL, FuncSQL, HireDateSQL,RehireDateSQL,TerminationDateSQL
Thank You very much.
这篇关于如何将DataGridView导出到表SQL Server的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!