VB.NET都不這么使用了

成都創新互聯專注于康巴什網站建設服務及定制,我們擁有豐富的企業做網站經驗。 熱誠為您提供康巴什營銷型網站建設,康巴什網站制作、康巴什網頁設計、康巴什網站官網定制、微信平臺小程序開發服務,打造康巴什網絡公司原創品牌,更為您提供康巴什網站排名全網營銷落地服務。
使用
Dim?reader?As?OleDbDataReader?=?command.ExecuteReader()
While?reader.Read()
Console.WriteLine(reader.GetString("rhkjd"))????????
End?While
reader.Close()
之類的System.Data.OleDb
另外,確保你的數據庫這有rhkjd字段
這里以OERACLE數據庫為例 :
Provider=MSDAORA;data source =主機名:1521/ORCL;User ID=system;Password=ORACLE;Unicode=True
Dim myConn As Data.OleDb.OleDbConnection
myConn = New System.Data.OleDb.OleDbConnection()
myConn.ConnectionString = strCon
myConn.Open()
給你寫個例子,不明白,再問!!
'引入OLEDB命令空間
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定義一個OLEDB連接并實例化它
Dim con As New OleDbConnection
'定義一個OLEDB命令并實例化他
Dim cmd As New OleDbCommand
'定義一個OLEDBReader方法來讀取數據庫
Dim dr As OleDbDataReader
'初始化con的連接屬性,使用OLEDB模式,數據源為:你指定下路徑,我的是在D盤
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'打開OLEDB數據連接
con.Open()
'初始化OLEDB命令的連接屬性為con,這個需要你理解下
cmd.Connection = con
'初始化OLEDB命令的語句 就是查詢 什么字段從什么表 條件是ID等于你在t1中輸入的內容
cmd.CommandText = "select keyss from table1 where ID=" t1.Text ""
'執行OLEDB命令以ExecuteReader()方式,并返回一個OLEDBReader,賦值給dr
dr = cmd.ExecuteReader()
'判斷下dr中是否有數據。如果有就把第一個值賦值給t2的值
If dr.Read() Then
t2.Text = dr(0)
End If
'完成后關閉dr.con等釋放資源
dr.Close()
con.Close()
End Sub
End Class
下面是逐個顯示第一條記錄的各個字段值,通過實例,你應該可以操作想要的信息數據了:
'如果表里的記錄數大于0
If ds1.Tables("kucun").Rows.Count 0 Then
'依照數據表的字段值循環
For i = 0 To ds1.Tables("kucun").Columns.Count - 1
'顯示第一條記錄的第i個字段名和字段值
MsgBox(ds1.Tables("kucun").Columns(i).ColumnName ":" ds1.Tables("kucun").Rows(0)(i))
Next
End If
如果樓主熟悉VB6,可以直接在項目中添加ADODB的Com引用,這樣你就可以像VB6那樣操作數據庫了!
另外
.NET
Framework中連接數據庫要用到ADO.NET。如果要操作Access數據庫,要用到System.Data.OleDb命名空間下的許多類。
比如按樓主所說,“我想在textbox1中顯示表一中【一些數據】字段下的第一個內容”:
'首先導入命名空間
Imports
System.Data
Imports
System.Data.OleDb
'然后在某一個事件處理程序中寫:
Dim
conn
As
New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=數據庫.accdb;Jet
OLEDB:Database
Password=MyDbPassword")
Dim
command
As
New
OleDbCommand("Select
*
From
數據表",
conn)
conn.Open()
'打開數據庫連接
Dim
reader
As
OleDbDataReader
=
command.ExecuteReader()
'執行SQL語句,返回OleDbDataReader
對象
Do
While
reader.Read()
'讀取一條數據
textbox1.Text
+=
reader("一些數據")
VbCrLf
Loop
reader.Close()
'關閉OleDbDataReader
conn.Close()
'關閉連接
網站標題:vb.net讀取數據庫 vb訪問excel數據庫
分享網址:http://www.yijiale78.com/article16/doddpgg.html
成都網站建設公司_創新互聯,為您提供域名注冊、標簽優化、網站建設、網站策劃、手機網站建設、網站內鏈
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯