DataSet的几个基本操作

最近写程序的时候遇到一个问题，向TEXT类型(SQL SERVER)字段中INSERT内容不能直接用SQL语句，因为其中有换行、特殊字符，所以只能用DataSet。

删除一个已存在的记录

插入一条新记录
 Dim myDataSet As DataSetDim MyConnection As SqlConnectionDim MyDataAdapter As SqlDataAdapterMyConnection = New SqlConnection("……")MyDataAdapter = New SqlDataAdapter("select * from GuestBook", MyConnection)Dim myDataRowsCommandBuilder As SqlCommandBuilder = New SqlCommandBuilder(MyDataAdapter)myDataSet = New DataSetMyDataAdapter.Fill(myDataSet, "GuestBook")Dim MyDataRow As DataRowMyDataRow = myDataSet.Tables("GuestBook").NewRow()MyDataRow("Name") = "Mike"MyDataRow("Sex") = 1MyDataRow("Address") = "New Company Name"myDataSet.Tables("GuestBook").Rows.Add(MyDataRow)MyDataAdapter.Update(myDataSet, "GuestBook")

编辑一条已经存在的记录

 Dim myDataSet As DataSetDim MyConnection As SqlConnectionDim MyDataAdapter As SqlDataAdapterMyConnection = New SqlConnection("…….")MyDataAdapter = New SqlDataAdapter("select * from GuestBook", MyConnection)Dim myDataRowsCommandBuilder As SqlCommandBuilder = New SqlCommandBuilder(MyDataAdapter)myDataSet = New DataSetMyDataAdapter.Fill(myDataSet, "GuestBook")Dim MyDataRow As DataRowMyDataRow = myDataSet.Tables("GuestBook").Rows(0)MyDataRow.BeginEdit()MyDataRow("Name") = "LornWolf"MyDataRow("Sex") = 1MyDataRow("EMail") = "[e-mail]"MyDataRow("Address") = "TianJin"MyDataRow.EndEdit()MyDataAdapter.Update(myDataSet, "GuestBook")

Dim myDataSet As DataSetDim MyConnection As SqlConnectionDim MyDataAdapter As SqlDataAdapterMyConnection = New SqlConnection("……")MyDataAdapter = New SqlDataAdapter("select * from GuestBook", MyConnection)Dim myDataRowsCommandBuilder As SqlCommandBuilder = New SqlCommandBuilder(MyDataAdapter)MyDataAdapter.DeleteCommand = myDataRowsCommandBuilder.GetDeleteCommand()myDataSet = New DataSetMyDataAdapter.Fill(myDataSet, "GuestBook")Dim MyDataRow As DataRowMyDataRow = myDataSet.Tables("GuestBook").Rows(1)MyDataRow.Delete()MyDataAdapter.Update(myDataSet, "GuestBook")// 用上面的方法删除记录时，要求表必须有主键