找回密码
 注册
搜索
热搜: 回贴

asp.net中使用sqlcommandbuilder

2009-12-13 13:11| 发布者: admin| 查看: 67| 评论: 0|原作者: 小寳寳

◆asp.net中使用sqlcommand......


  asp.net 中使用sqlcommandbuilder,用它来产生增加,删除,选择等SQL语句,也比较方便的,下面给出个例子

  Private Sub UseCommandBuilder()
  Dim connectionString As String = _
  "Integrated Security=SSPI;Persist Security Info=False;" + _
  "Initial Catalog=Northwind;Data Source=LAP800"
  Dim connection As SqlConnection = _
  New SqlConnection(connectionString)
  connection.Open()
  Try
  Dim command As SqlCommand = _
  New SqlCommand("SELECT * FROM Customers", connection)
  Dim adapter As SqlDataAdapter = _
  New SqlDataAdapter(command)
  Dim builder As SqlCommandBuilder = _
  New SqlCommandBuilder(adapter)
  ' Show commands
  Console.WriteLine(builder.GetInsertCommand().CommandText)
  Console.WriteLine(builder.GetUpdateCommand().CommandText)
  Console.WriteLine(builder.GetDeleteCommand().CommandText)
  Dim table As DataTable = New DataTable
  adapter.Fill(table)
  'Use Insert
  Dim row As DataRow = table.NewRow
  row("CustomerID") = "PAULK"
  row("CompanyName") = "Pauly's Edibles"
  row("ContactName") = "Paul Kimmel"
  row("ContactTitle") = "The Fat Man"
  table.Rows.Add(row)
  'Use Update
  Dim results() As DataRow = _
  table.Select("CustomerID = 'ALFKI'")
  results(0)("Region") = "DE"
  'Use Delete
  Dim deleteThese() As DataRow = _
  table.Select("CustomerID = 'FARLA'")
  For Each row In deleteThese
  row.Delete()
  Next
  adapter.Update(table)
  table.AcceptChanges()
  Catch ex As Exception
  Debug.WriteLine(ex.Message)
  Throw
  Finally
  connection.Close()
  End Try
  End Sub
  End Module


最新评论

QQ|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )

GMT+8, 2024-9-30 05:31 , Processed in 0.087327 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5

© 2001-2023 Discuz! Team.

返回顶部