vb點(diǎn)虐 中如何使用SQL語句查詢數(shù)據(jù)庫

dim

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),蛟河企業(yè)網(wǎng)站建設(shè),蛟河品牌網(wǎng)站建設(shè),網(wǎng)站定制,蛟河網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,蛟河網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

myselectquery

as

string

=

"select

*

from

表1

where

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

dim

mycommand

as

new

sqlcommand

(myselectquery,

conn)

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

conn.open()'打開數(shù)悄明據(jù)連接

dim

myreader

as

sqldatareader'定義一個(gè)reader用來讀數(shù)據(jù)啟哪告

myreader

=

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

if

myreader.read()

then

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

msgbox(myreader.getstring(0))

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

end

if

VB.Net連接SQL數(shù)據(jù)庫的語句理解

問題：

1，字符串前面的“_”符號，是VB的語法格式，表示下一行語句是與本行語兆搏孫句連接在一起的同一行語句。主要是考慮屏幕寬度有限，有的語句太長，所以采用此格式；

例如：銀升a = 12 + 18

可以寫成：a = 12 + _

18

2，ConnectString是一個(gè)變量的名稱；

VB.NET允許，在聲明變量的同時(shí)給它賦值

例如：Dim a as integer

a = 12

可以寫成：Dim a as integer = 12

你的例子的使用相當(dāng)于：

dim ConnectString as string

ConnectString = ""Data Source = 。族鏈。。。。。。。?！?/p>

關(guān)于如何操作數(shù)據(jù)庫，這個(gè)真一兩句話說不清楚，最好你找書或者、網(wǎng)上搜索。

vb點(diǎn)虐 怎么操作數(shù)據(jù)庫

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

另外

.NET

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

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

'首先導(dǎo)入命名空間

Imports

System.Data

Imports

System.Data.OleDb

'然后在某一個(gè)事件處理程序中寫：

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)閉連接