vb.net檢索數(shù)據(jù),vb查詢數(shù)據(jù)庫(kù)

vb.net 中如何使用SQL語(yǔ)句查詢數(shù)據(jù)庫(kù)

dim

創(chuàng)新互聯(lián)公司自成立以來(lái)，一直致力于為企業(yè)提供從網(wǎng)站策劃、網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、網(wǎng)站制作、電子商務(wù)、網(wǎng)站推廣、網(wǎng)站優(yōu)化到為企業(yè)提供個(gè)性化軟件開(kāi)發(fā)等基于互聯(lián)網(wǎng)的全面整合營(yíng)銷服務(wù)。公司擁有豐富的網(wǎng)站建設(shè)和互聯(lián)網(wǎng)應(yīng)用系統(tǒng)開(kāi)發(fā)管理經(jīng)驗(yàn)、成熟的應(yīng)用系統(tǒng)解決方案、優(yōu)秀的網(wǎng)站開(kāi)發(fā)工程師團(tuán)隊(duì)及專業(yè)的網(wǎng)站設(shè)計(jì)師團(tuán)隊(duì)。

myselectquery

as

string

=

"select

*

from

表1

where

姓名='小強(qiáng)'"

dim

mycommand

as

new

sqlcommand

(myselectquery,

conn)

'建立一個(gè)command控件，conn是你的sqlconnection對(duì)象

conn.open()'打開(kāi)數(shù)據(jù)連接

dim

myreader

as

sqldatareader'定義一個(gè)reader用來(lái)讀數(shù)據(jù)

myreader

=

mycommand.executereader()'運(yùn)行你的查詢，結(jié)果到myreader

if

myreader.read()

then

'如果查到了數(shù)據(jù)

msgbox(myreader.getstring(0))

'顯示第一個(gè)字段

end

if

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

select * from 表 where

(case when 條件 then 1 else 0 end+

case when 條件 then 1 else 0 end+

case when 條件 then 1 else 0 end+

case when 條件 then 1 else 0 end+

case when 條件 then 1 else 0 end) BETWEEN 2 and 5

在vb.net中如何查詢MDB數(shù)據(jù)庫(kù)的數(shù)據(jù)

以下是完整模塊

Imports

System.Data

Imports

System.IO

Imports

System.Data.OleDb

Module

Module1

Public

cn

As

New

OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="

Application.StartupPath

"\mdb數(shù)據(jù)庫(kù)名字.mdb")

'定義連接

Public

DataBaseRST

As

Integer

'用來(lái)返回?cái)?shù)據(jù)庫(kù)執(zhí)行結(jié)果

Public

Function

DataModify(ByVal

str

As

String)

As

Boolean

'進(jìn)行數(shù)據(jù)庫(kù)修改操作

Dim

cmdinsert

As

New

OleDbCommand

Try

cmdinsert.CommandText

=

str

cmdinsert.Connection

=

cn

If

cn.State

=

ConnectionState.Closed

Then

cn.Open()

DataBaseRST

=

cmdinsert.ExecuteNonQuery()

'用來(lái)返回執(zhí)行的結(jié)果

cn.Close()

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

Public

Function

Search(ByVal

str

As

String,

ByVal

DGV

As

DataGridView)

As

Boolean

'查詢

str---查詢命令，DGV---DataGridView，用來(lái)顯示數(shù)據(jù)的控件

Dim

tb

As

New

DataTable

Try

Dim

ap

As

New

OleDb.OleDbDataAdapter(str,

cn)

ap.Fill(tb)

DGV.DataSource

=

tb

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

End

Module

'以下是調(diào)用方法

DataModify("

insert

into

aa

values

('1','2')")'-------這里是數(shù)據(jù)庫(kù)更新操作

Search("select

bb

from

aa",DataGridView1)'-----------這里是數(shù)據(jù)表查詢操作

當(dāng)前名稱：vb.net檢索數(shù)據(jù),vb查詢數(shù)據(jù)庫(kù)
網(wǎng)址分享：http://muchs.cn/article36/hcgppg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供用戶體驗(yàn)、網(wǎng)站維護(hù)、網(wǎng)站策劃、服務(wù)器托管、域名注冊(cè)、軟件開(kāi)發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)

網(wǎng)站托管運(yùn)營(yíng)