如何将DataGridView导出到表SQL Server [英] How Export DataGridView to Table SQL Server

查看：77
本文介绍了如何将DataGridView导出到表SQL Server的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

大家好。


我使用以下方法将我的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


非常感谢。

解决方案

我建议使用命令参数。以下链接中的代码应该有所帮助：


https://stackoverflow.com/questions/16530686/vb-net-insert-datagridview-contents-into-database



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.

解决方案

I would recommend using Command Parameters. The code from the below link should help:

https://stackoverflow.com/questions/16530686/vb-net-insert-datagridview-contents-into-database


这篇关于如何将DataGridView导出到表SQL Server的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！

查看全文
相关文章
其他开发语言最新文章
热门教程
热门工具
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆