Dim da As New OleDb.OleDbDataAdapter(‘’輸入2/3/4其中的答案)
成都創(chuàng)新互聯(lián)公司堅信:善待客戶,將會成為終身客戶。我們能堅持多年,是因?yàn)槲覀円恢笨芍档眯刨?。我們從不忽悠初訪客戶,我們用心做好本職工作,不忘初心,方得始終。10余年網(wǎng)站建設(shè)經(jīng)驗(yàn)成都創(chuàng)新互聯(lián)公司是成都老牌網(wǎng)站營銷服務(wù)商,為您提供網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)站設(shè)計、H5網(wǎng)站設(shè)計、網(wǎng)站制作、高端網(wǎng)站設(shè)計、成都微信小程序服務(wù),給眾多知名企業(yè)提供過好品質(zhì)的建站服務(wù)。
Dim ds As New DataSet
da.Fill(ds, "Table1")
Dim dt As DataTable
dt = ds.Tables("Table1")
//2. Cmd.CommandText = "select 序號 from 賬號 where 姓名='小李'"
//3. Cmd.CommandText = "select 序號 from 賬號 where 姓名='小張'"
//4. Cmd.CommandText = "insert into 賬號(姓名,年齡,性別,序號) values('張三','22','男','4')"
DataGridView1.DataSource = dt '建立datagridview來顯示資料
myCn.Close()
如果樓主熟悉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)閉連接
給你寫個例子,不明白,再問?。?/p>
'引入OLEDB命令空間
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定義一個OLEDB連接并實(shí)例化它
Dim con As New OleDbConnection
'定義一個OLEDB命令并實(shí)例化他
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
你問的是vb.net讀取數(shù)據(jù)庫時假死不顯示進(jìn)度條怎么辦吧,在循環(huán)代碼中加一句DoEvents語句。
根據(jù)微軟公司的資料得知,這是一種bug,只要在循環(huán)代碼中加一句DoEvents語句即可。
VB.Net是一種簡單,現(xiàn)代,面向?qū)ο蟮挠嬎銠C(jī)編程語言,由微軟開發(fā)。
網(wǎng)站欄目:vb.net讀取數(shù)據(jù)庫 vb 讀取數(shù)據(jù)庫
標(biāo)題路徑:http://www.muchs.cn/article22/dohcpjc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供手機(jī)網(wǎng)站建設(shè)、服務(wù)器托管、微信公眾號、Google、網(wǎng)站設(shè)計、動態(tài)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)