Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/sql-server/21.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Sql server 我想用vb.net在sql server上创建一个表,其中的值在datagridview中,但更新不';行不通_Sql Server_Vb.net_Excel_Datagridview - Fatal编程技术网

Sql server 我想用vb.net在sql server上创建一个表,其中的值在datagridview中,但更新不';行不通

Sql server 我想用vb.net在sql server上创建一个表,其中的值在datagridview中,但更新不';行不通,sql-server,vb.net,excel,datagridview,Sql Server,Vb.net,Excel,Datagridview,我正在尝试从datagridview在我的sql server上创建一个表 这是我的密码 Form2.ShowDialog() Dim grid = DirectCast(Me.TabControl1.SelectedTab.Controls(0), DataGridView) Static Dim header As New ArrayList Dim sql As String Dim values As String = "" connection

我正在尝试从datagridview在我的sql server上创建一个表 这是我的密码

Form2.ShowDialog()
    Dim grid = DirectCast(Me.TabControl1.SelectedTab.Controls(0), DataGridView)
    Static Dim header As New ArrayList
    Dim sql As String
    Dim values As String = ""
    connection = New SqlConnection("Data Source=ABDELOUAHED;Initial Catalog=table_creances;integrated security=true")
    For Each column As DataGridViewColumn In grid.Columns
        column.HeaderText = column.HeaderText.Replace(" ", "_")
        column.HeaderText = column.HeaderText.Replace("é", "e")
        column.HeaderText = column.HeaderText.Replace("'", "")
        header.Add(column.HeaderText)
    Next
    sql = "CREATE TABLE " & Form2.TextBox1.Text & "(" & header(0) & " int PRIMARY KEY NOT NULL," & header(1) & " int," & header(2) & " int," & header(3) & " real," & header(4) & " real," & header(5) & " date," & header(6) & " date," & header(7) & " real," & header(8) & " int)"
    Try
        Dim Mycommand As SqlCommand = New SqlCommand(sql, connection)
        Mycommand.Connection.Open()
        Mycommand.ExecuteNonQuery()
        Mycommand.Connection.Close()
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
Try
        cmdBuilder = New SqlCommandBuilder(adapter)
        changes = ds.GetChanges()
        If changes IsNot Nothing Then
            adapter.Update(changes)
        End If
        MsgBox("Changes Done")
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
表已创建,但不包含任何值,更新部分不起作用
非常感谢您提供的任何帮助

您尚未展示如何构建
适配器
ds
,因此很难说,但我敢打赌数据集行都处于未更改的状态。
changes
是否有行?我是vb.net新手,我从internet上的不同站点复制了代码,所以我不太了解它,但当我想更新更改时,更新部分会起作用(另一个按钮)