VB.NET連接ACCESS數(shù)據(jù)庫，讀取查詢并顯示

給你寫個例子，不明白，再問?。?/p>

三都ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應用場景，ssl證書未來市場廣闊！成為創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書合作）期待與您的合作！

'引入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

'完成后關閉dr.con等釋放資源

dr.Close()

con.Close()

End Sub

End Class

vb.net讀取Access數(shù)據(jù)庫的方法

建立數(shù)據(jù)集，綁定到窗口。不會的話，把要用的表從數(shù)據(jù)集拖到窗口，再刪除就行了

提取方法

數(shù)據(jù)及名稱.表格名稱.rows（2）.item(3).tostring 就是了

VB.net 數(shù)據(jù)庫

改成下面這樣：

Dim cmdtext As String = "Update 用戶信息表 Set 密碼='" txt密碼new.Text "',用戶='" txt用戶名.Text "' Where ID=" Int(Val(UserID))

關于vb.net 數(shù)據(jù)庫查詢

'各項查詢條件為空的時候用 1=1來代替

'例如：

tmpSelIDStr=Trim(txtSelectId.Text)

if tmpSelIDStr="" then

tmpSelIDStr=" 1=1 "

Else

tmpSelIDStr=" 員工編號='" tmpSelIDStr "'"

End If

'同理其它的都這么處理

'最后合并起來

sqlstr="select ..... from .... where " tmpSelIDStr " and " tmp ....

'不知道這樣回答你是否可以理解

VB.Net連接Access數(shù)據(jù)庫

使用向?qū)гO置數(shù)據(jù)庫連接的好處是省去寫代碼的過程，弊端是不易更改連接

使用代碼連接的好處是需要編寫代碼，但容易更改和維護

如：數(shù)據(jù)庫的位置變化，直接更改代碼顯然容易一些

代碼：

imports System.data.oledb /*引用命名空間*/

dim cnstr = "provider=microsoft.jet.oledb.4.0,data source=Access數(shù)據(jù)庫文件位置" /*定義連接字符串*/

dim cn as oledbconnection = new oledbconnection(cnstr) /*定義連接*/

cn.open() /*打開連接*/

sqlstr="select... from... 或其他sql"

dim cmd as sqlcommand=new sqlcommand()

cmd.commandtext=sqlstr

cmd.connection=cn

/*以上是建立執(zhí)行語句*/

cmd.executenonquery() 不返回結(jié)果

cmd.executescalar() 返回單個結(jié)果

cmd.executereader() 返回結(jié)果集

/*以上是執(zhí)行sql語句的方法*/

cn.close() /*關閉連接*/

你要做用戶驗證的話，先根據(jù)用戶名查詢對應的密碼，再判斷用戶輸入的密碼和查詢結(jié)果是不是相同就可以了

用cmd.executescalar() 這個方法

vb.net 怎么操作數(shù)據(jù)庫

如果樓主熟悉VB6，可以直接在項目中添加ADODB的Com引用，這樣你就可以像VB6那樣操作數(shù)據(jù)庫了！

另外

.NET Framework中連接數(shù)據(jù)庫要用到ADO.NET。如果要操作Access數(shù)據(jù)庫，要用到System.Data.OleDb命名空間下的許多類。

比如按樓主所說，“我想在textbox1中顯示表一中【一些數(shù)據(jù)】字段下的第一個內(nèi)容”：

'首先導入命名空間

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() '關閉OleDbDataReader

conn.Close() '關閉連接