Sql server 我想用vb.net在sql server上创建一个表,其中的值在datagridview中,但更新不';行不通
我正在尝试从datagridview在我的sql server上创建一个表 这是我的密码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
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上的不同站点复制了代码,所以我不太了解它,但当我想更新更改时,更新部分会起作用(另一个按钮)