ADO.NET對象的構造(1)

來源:互聯網
上載者:User
ado|對象 OleDbDataAdapter 構造



n Public Sub New()
n Public Sub New(ByVal selectCommand As OleDbCommand)

n Public Sub New(ByVal selectCommandText As String,ByVal selectConnection As OleDbConnection)

n Public Sub New(ByVal selectCommandText As String,ByVal selectConnectionString As String)



參數

selectCommand OleDbCommand,它是 SELECT 語句或預存程序,被設定為 OleDbDataAdapter 的 SelectCommand 屬性。
selectCommandText 一個字串,它是 SQL SELECT 語句或將由 OleDbDataAdapter 的 SelectCommand 屬性使用的預存程序。
selectConnection 表示串連的 OleDbConnection。
selectConnectionString 連接字串。


備忘

當建立 OleDbDataAdapter 的執行個體時,下面的讀/寫屬性將設定為以下初始值。

Properties
初始值

MissingMappingAction
MissingMappingAction.Passthrough

MissingSchemaAction
MissingSchemaAction.Add





可以通過單獨調用屬性來更改任何這些屬性的值。



樣本

Public Sub CreateOleDbDataAdapter()

Dim myOleDbConnection As OleDbConnection = New OleDbConnection("Provider=SQLOLEDB;Data Source=localhost;Integrated Security=SSPI;Initial Catalog=northwind")



Dim custDA As OleDbDataAdapter = New OleDbDataAdapter



Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT CustomerID, CompanyName FROM CUSTOMERS", myOleDbConnection)

Dim custDA As OleDbDataAdapter = New OleDbDataAdapter(myOleDbCommand)



Dim mySelectText As String = "SELECT CustomerID, CompanyName FROM CUSTOMERS"

Dim custDA As OleDbDataAdapter = New OleDbDataAdapter(mySelectText, myOleDbConnection)



Dim mySelectText As String = "SELECT CustomerID, CompanyName FROM CUSTOMERS"

Dim myConnString As String = "Provider=SQLOLEDB;Data Source=localhost;Integrated Security=SSPI;Initial Catalog=northwind"

Dim custDA As OleDbDataAdapter = New OleDbDataAdapter(mySelectText, myConnString)



custDA.MissingSchemaAction = MissingSchemaAction.AddWithKey



custDA.SelectCommand = New OleDbCommand("SELECT CustomerID, CompanyName FROM CUSTOMERS", myOleDbConnection)

custDA.InsertCommand = New OleDbCommand("INSERT INTO Customers (CustomerID, CompanyName) VALUES (?, ?)", myOleDbConnection)

custDA.UpdateCommand = New OleDbCommand("UPDATE Customers SET CustomerID = ?, CompanyName = ? WHERE CustomerID = ?", myOleDbConnection)

custDA.DeleteCommand = New OleDbCommand("DELETE FROM Customers WHERE CustomerID = ?", myOleDbConnection)



custDA.InsertCommand.Parameters.Add("@CustomerID", OleDbType.Char, 5, "CustomerID")

custDA.InsertCommand.Parameters.Add("@CompanyName", OleDbType.VarChar, 40, "CompanyName")



custDA.UpdateCommand.Parameters.Add("@CustomerID", OleDbType.Char, 5, "CustomerID")

custDA.UpdateCommand.Parameters.Add("@CompanyName", OleDbType.VarChar, 40, "CompanyName")

custDA.UpdateCommand.Parameters.Add("@oldCustomerID", OleDbType.Char, 5, "CustomerID").SourceVersion = DataRowVersion.Original



custDA.DeleteCommand.Parameters.Add("@CustomerID", OleDbType.Char, 5, "CustomerID").SourceVersion = DataRowVersion.Original

End Sub



(資訊整理來自MSDN)



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。