smoothwood(I try my best) 你的代码很精彩哦,确实就是我想要的东西,我后来改用数据设计器做数据源设计
Dim dadInsert As New SqlDataAdapter
Dim cmdInsert As New SqlCommand( "Insert into TempCategories(CategoryName,Description) Values(@CategoryName,@Description) ", conn)
dadInsert.InsertCommand = cmdInsert
cmdInsert.Parameters.Add( "@CategoryName ", SqlDbType.NVarChar, 15, "CategoryName ")
cmdInsert.Parameters.Add( "@Description ", SqlDbType.NText, 16, "Description ")
这段代码也可以省下了。太好了,谢谢!!!!
我给你编了一个例子:你在Northwind数据库中建一个TempCategories表
————————————————————————
Dim dst As New DataSet
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim conn As New SqlConnection("Server=localhost;user id=sa;password=ycm119;database=Northwind;")
Dim dad As New SqlDataAdapter("Select * from Categories", conn)
Dim dvw As DataView
dad.Fill(dst, "Categories")
dvw = dst.Tables("Categories").DefaultView
dvw.RowFilter = "CategoryName like '%C%'"
DataGrid1.DataSource = dvw
DataGrid1.DataBind()
Dim dsttemp As New DataSet
Dim dtbl As New DataTable
Dim drow As DataRow
Dim drows() As DataRow
Dim ary() As Object
dtbl = dst.Tables("Categories").Clone
drows = dst.Tables("Categories").Select("CategoryName like '%C%'")
For icount As Integer = 0 To drows.Length - 1
drow = dtbl.NewRow
ary = drows(icount).ItemArray
drow.ItemArray = ary
dtbl.Rows.Add(drow)
Next
dtbl.TableName = "temp"
dsttemp.Tables.Add(dtbl)
Dim dadInsert As New SqlDataAdapter
Dim cmdInsert As New SqlCommand("Insert into TempCategories(CategoryName,Description) Values(@CategoryName,@Description)", conn)
dadInsert.InsertCommand = cmdInsert
cmdInsert.Parameters.Add("@CategoryName", SqlDbType.NVarChar, 15, "CategoryName")
cmdInsert.Parameters.Add("@Description", SqlDbType.NText, 16, "Description")
dadInsert.Update(dsttemp, "temp")