asp.net 中使用sqlcommandbuilder

来源:互联网 发布:烟草允许网络售卖吗 编辑:程序博客网 时间:2024/05/22 10:31
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 TryEnd SubEnd Module

 
原创粉丝点击