vb.net中的資料庫連接

來源:互聯網
上載者:User
資料|資料庫|資料庫連接 在項目中選擇左邊“工具盒”中的資料庫適配器,本例子用的是ODBC資料來源,所以選擇OdbcDataAdapter.
選中OdbcDataAdapter,在屬性視窗中選擇SelectCommand,展開,選擇Connection,在下拉框中選擇“建立”,在彈出的視窗中選擇Computer database頁,選中想要得OdbcDataSource.選擇Command Text,點擊旁邊的“省略符號按鈕”,在彈出的視窗中輸入sql語句。如果sql語句中有條件參數,要用“問號?”代替。如:select user,name from table where user = ? .並且需要選擇Parameters,點擊旁邊的“省略符號按鈕”,在彈出的視窗中選擇“增加”,就增加了一個參數。在旁邊的屬性框中修改參數的屬性。OdbcType 為參數對應欄位的類型,SourceColumn為參數對應欄位名。ParameterName為參數名,這裡為PARAM1。

下面進入字碼頁,手工修改代碼。
在配置OdbcDataAdapter的時候,建立串連後,有一個串連控制項產生顯示,名字是OdbcConnection,在資料庫連接的時候先要把它開啟。用語句Me.OdbcConnection1.Open(),用完要關掉,Me.OdbcConnection1.Close()。

資料查詢出來,可以放到一個相當於記錄集的地方,這裡用語句
Dim odr1 As System.Data.Odbc.OdbcDataReader 定義變數odr1來存放。

剛才說了,查詢有參數的話,現在要把從介面上擷取的實際的值傳給參數,用語句
Me.OdbcSelectCommand2.Parameters("PARAM1").Value = Me.TextBox1.Text
注意,這裡是OdbcSelectCommand,而不是OdbcDataAdapter2.SelectCommand。
然後執行下面的語句得到記錄集
odr1 = Me.OdbcDataAdapter2.SelectCommand.ExecuteReader()
判斷記錄集是不是為空白,不為空白就通過odr1("欄位名")讀取記錄集中的資料
If odr1.HasRows Then
While odr1.Read()
name = odr1("name")
user = odr1("user")
End While
odr1.Close()
End If




相關文章

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。