VB.NET都不這么使用了
成都創(chuàng)新互聯(lián)專注于康巴什網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供康巴什營銷型網(wǎng)站建設(shè),康巴什網(wǎng)站制作、康巴什網(wǎng)頁設(shè)計、康巴什網(wǎng)站官網(wǎng)定制、微信平臺小程序開發(fā)服務(wù),打造康巴什網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供康巴什網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
使用
Dim?reader?As?OleDbDataReader?=?command.ExecuteReader()
While?reader.Read()
Console.WriteLine(reader.GetString("rhkjd"))????????
End?While
reader.Close()
之類的System.Data.OleDb
另外,確保你的數(shù)據(jù)庫這有rhkjd字段
這里以O(shè)ERACLE數(shù)據(jù)庫為例 :
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方法來讀取數(shù)據(jù)庫
Dim dr As OleDbDataReader
'初始化con的連接屬性,使用OLEDB模式,數(shù)據(jù)源為:你指定下路徑,我的是在D盤
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'打開OLEDB數(shù)據(jù)連接
con.Open()
'初始化OLEDB命令的連接屬性為con,這個需要你理解下
cmd.Connection = con
'初始化OLEDB命令的語句 就是查詢 什么字段從什么表 條件是ID等于你在t1中輸入的內(nèi)容
cmd.CommandText = "select keyss from table1 where ID=" t1.Text ""
'執(zhí)行OLEDB命令以ExecuteReader()方式,并返回一個OLEDBReader,賦值給dr
dr = cmd.ExecuteReader()
'判斷下dr中是否有數(shù)據(jù)。如果有就把第一個值賦值給t2的值
If dr.Read() Then
t2.Text = dr(0)
End If
'完成后關(guān)閉dr.con等釋放資源
dr.Close()
con.Close()
End Sub
End Class
下面是逐個顯示第一條記錄的各個字段值,通過實例,你應(yīng)該可以操作想要的信息數(shù)據(jù)了:
'如果表里的記錄數(shù)大于0
If ds1.Tables("kucun").Rows.Count 0 Then
'依照數(shù)據(jù)表的字段值循環(huán)
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那樣操作數(shù)據(jù)庫了!
另外
.NET
Framework中連接數(shù)據(jù)庫要用到ADO.NET。如果要操作Access數(shù)據(jù)庫,要用到System.Data.OleDb命名空間下的許多類。
比如按樓主所說,“我想在textbox1中顯示表一中【一些數(shù)據(jù)】字段下的第一個內(nèi)容”:
'首先導(dǎo)入命名空間
Imports
System.Data
Imports
System.Data.OleDb
'然后在某一個事件處理程序中寫:
Dim
conn
As
New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=數(shù)據(jù)庫.accdb;Jet
OLEDB:Database
Password=MyDbPassword")
Dim
command
As
New
OleDbCommand("Select
*
From
數(shù)據(jù)表",
conn)
conn.Open()
'打開數(shù)據(jù)庫連接
Dim
reader
As
OleDbDataReader
=
command.ExecuteReader()
'執(zhí)行SQL語句,返回OleDbDataReader
對象
Do
While
reader.Read()
'讀取一條數(shù)據(jù)
textbox1.Text
+=
reader("一些數(shù)據(jù)")
VbCrLf
Loop
reader.Close()
'關(guān)閉OleDbDataReader
conn.Close()
'關(guān)閉連接