Dim dt As DataTable = New DataTable Dim dr As DataRow dt.Columns.Add(New DataColumn("name1")) dt.Columns.Add(New DataColumn("name2")) Dim j As Integer For j = 0 To 10 dr = dt.NewRow() dr(0) = "name" + j.ToString dr(1) = j dt.Rows.Add(dr) Next Dim Conn As SqlConnection = New SqlConnection("server=LINGAN-RS;User ID=sa;Password=sa;database=ATMM;Connection Reset=FALSE;Connect Timeout=5") Conn.Open() Dim cmd1 As SqlCommand = New SqlCommand("delete from test", Conn) cmd1.ExecuteNonQuery() Dim MyAdapter As SqlDataAdapter = New SqlDataAdapter Dim cmd As SqlCommand = New SqlCommand("Insert Into test(name1,name2) values (@name1,@name2)", Conn) cmd.Parameters.Add("@name1", System.Type.GetType("String")) cmd.Parameters.Item("@name1").SourceColumn = dt.Columns("name1").ColumnName cmd.Parameters.Add("@name2", System.Type.GetType("Int32")) cmd.Parameters.Item("@name2").SourceColumn = dt.Columns("name2").ColumnName MyAdapter.InsertCommand = cmd MyAdapter.Update(dt) Conn.Close()
我自已生成了一个DataSet,在DataSet中生成了一个表,在表中表程序生成了几列,但这几列和数据库中的一个表的结构一样
我想把DataSet中的这个表的数据插入到数据库中的那个表里
它是用pb的
由于pb支持数据窗口
所以 可以直接修改数据库
不过要一张一张表的修改
是根据表的主键修改的……~……~
不知道。net要怎么实现
始终关注
dt.Columns.Add(New DataColumn("name2")) Dim j As Integer For j = 0 To 10 dr = dt.NewRow() dr(0) = "name" + j.ToString
dr(1) = j dt.Rows.Add(dr) Next Dim Conn As SqlConnection = New SqlConnection("server=LINGAN-RS;User ID=sa;Password=sa;database=ATMM;Connection Reset=FALSE;Connect Timeout=5") Conn.Open()
Dim cmd1 As SqlCommand = New SqlCommand("delete from test", Conn)
cmd1.ExecuteNonQuery() Dim MyAdapter As SqlDataAdapter = New SqlDataAdapter Dim cmd As SqlCommand = New SqlCommand("Insert Into test(name1,name2) values (@name1,@name2)", Conn) cmd.Parameters.Add("@name1", System.Type.GetType("String"))
cmd.Parameters.Item("@name1").SourceColumn = dt.Columns("name1").ColumnName
cmd.Parameters.Add("@name2", System.Type.GetType("Int32"))
cmd.Parameters.Item("@name2").SourceColumn = dt.Columns("name2").ColumnName
MyAdapter.InsertCommand = cmd
MyAdapter.Update(dt) Conn.Close()