在vb中如何找個資料庫

A. 怎麼在VB中調用SQL資料庫，資料庫已經建好，越詳細越好.

Public Function ConnectString() _
As String

ConnectString = "FileDSN=info.dsn;UID=sa;PWD=23" '連接字元器，改成你自己的
End Function
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset '這里是執行SQL語句，你只需要調用這個方法，把SQL查詢語宏拍悄句蔽渣參數傳進來，最後返回一個Recordset

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
"賀余 query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
'rst.MoveLast 'get RecordCount
Set ExecuteSQL = rst
MsgString = "查詢到" & rst.RecordCount & _
" 條記錄 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查詢錯誤: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
Public Function Testtxt(txt As String) As Boolean
If Trim(txt) = "" Then
Testtxt = False
Else
Testtxt = True
End If
End Function

B. VB6.0中怎樣使用data控制項實現資料庫查找功能

1、使用data控制項的FindFirst方法可以實現資料庫記錄的查找。

2、工具：回vb6。

3、具答體實現方法：

a)在窗體上添加data1、dbgrid1、text1、command1、label1

b)在dbgrid1的DataSource屬性里選擇data1

c)實現代碼如下：

PrivateSubCommand1_Click()
'查找定位記錄
Data1.Recordset.FindFirst"CategoryID="&Text1.Text

DBGrid1.DataSource
EndSub

PrivateSubForm_Load()
Data1.Connect="Access2000;"'設置資料庫類型
Data1.DatabaseName="C:db1.MDB"'連接資料庫
Data1.RecordSource="Categories"'資料庫中的表
Data1.Refresh'打開資料庫

EndSub

4、注意：資料庫可以使用vb6文件夾內的NWIND.MDB

C. 如何用VB建立資料庫

1、首先點擊打開主菜單欄中的「外接程序」選項。

2、然後在彈出來的窗口中點擊打開「可視化數據管理器」，出現下圖中的界面。

3、然後單擊文件中的新建，選擇「microsot aess」，「version 7.0」，彈出保存界面，點擊保存後出現如下界面。

4、然後右鍵單擊properties，選擇「新建表」，輸入表名稱，添加欄位。

5、然後打開類型，選擇欄位類型的大小，回車確定。

6、然後點擊「生成表」選項。

7、然後雙擊「1」或者右鍵單擊選擇打開。

8、然後輸入值後工具欄會變化。

9、然後點擊添加就完成了。

D. VB如何打開MDB資料庫中的一個表

VB中打開資料庫的方法有很多，給你一個用ADO打開資料庫的方法：首先在「工程」中引用"Microsoft Activex Data Objects 2.8 Library"'安裝Offices後就會有的。Dim DB As Connection
Dim rs As Recordset Private Sub Command1_Click()
Set DB = New ADODB.Connection
Set rs = New ADODB.Recordset
DB.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\資料庫名.mdb;jet oledb:database password=123456"
DB.Open
rs.Open "select * from 表名", DB, adOpenStatic, adLockReadOnly
rs.Close注意：1.在「工程」中引用"Microsoft Activex Data Objects 2.8 Library" 2.代碼寫好後先保存，然把准備好的Access資料庫放到代碼保存的文件夾下。 3."select * from 表名"，是打開資料庫中叫做「表名」的一個表中全部數據。 可以用Msgbox rs.Fields(1).Value來調出表中的第一個值

E. vb鏁版嵁搴擄紙鍩虹鐭ヨ瘑錛

VB鏁版嵁搴撴槸VisualBasic錛圴B錛夎璦涓鐢ㄤ簬綆＄悊鏁版嵁鐨勯噸瑕佺粍鎴愰儴鍒嗐傚畠鍏佽稿紑鍙戜漢鍛樺壋寤恆佽誨彇銆佹洿鏂板拰鍒犻櫎鏁版嵁搴撲腑鐨勬暟鎹錛屼粠鑰屼嬌搴旂敤紼嬪簭鑳藉熸洿濂藉湴澶勭悊鏁版嵁銆傛湰鏂囧皢浠嬬粛VB鏁版嵁搴撶殑鍩虹鐭ヨ瘑錛屽寘鎷濡備綍鍒涘緩鏁版嵁搴撱佸備綍榪炴帴鏁版嵁搴撱佸備綍鏌ヨ㈠拰鏇存柊鏁版嵁絳夈

涓銆佸壋寤烘暟鎹搴

鍒涘緩VB鏁版嵁搴撶殑絎涓姝ユ槸鍒涘緩鏁版嵁搴撴枃浠躲俈B鏁版嵁搴撴敮鎸佸氱嶆暟鎹搴撶被鍨嬶紝鍖呮嫭Access銆丼QLServer銆丱racle絳夈傚湪鏈鏂囦腑錛屾垜浠灝嗕互Access鏁版嵁搴撲負渚嬭繘琛岃茶В銆

1.鎵撳紑Access杞浠訛紝閫夋嫨鈥滄柊寤虹┖鐧芥暟鎹搴撯濄

2.杈撳叆鏁版嵁搴撶殑鍚嶇О鍜屼繚瀛樿礬寰勶紝鐒跺悗鐐瑰嚮鈥滃壋寤衡濄

3.鍦ㄢ滃壋寤衡濋〉闈涓錛屽彲浠ラ夋嫨鍒涘緩琛ㄦ牸銆佹煡璇銆佽〃鍗曠瓑瀵硅薄銆傚湪鏈鏂囦腑錛屾垜浠灝嗗壋寤轟竴涓綆鍗曠殑琛ㄦ牸銆

4.鐐瑰嚮鈥滆〃鏍艱捐♀濓紝鍦ㄨ〃鏍間腑娣誨姞瀛楁碉紝騫惰劇疆瀛楁電殑灞炴с備緥濡傦紝鍙浠ユ坊鍔犱竴涓鈥滃撳悕鈥濆瓧孌靛拰涓涓鈥滃勾榫勨濆瓧孌碉紝騫惰劇疆瀹冧滑鐨勬暟鎹綾誨瀷涓衡滄枃鏈鈥濆拰鈥滄暟瀛椻濄

5.淇濆瓨琛ㄦ牸錛岀劧鍚庡叧闂瑼ccess杞浠躲

浜屻佽繛鎺ユ暟鎹搴

榪炴帴VB鏁版嵁搴撻渶瑕佷嬌鐢ˋDO錛圓ctiveXDataObjects錛夊硅薄銆侫DO鏄疺B涓鐢ㄤ簬璁塊棶鏁版嵁鐨勬爣鍑嗗硅薄搴擄紝瀹冩彁渚涗簡涓縐嶉氱敤鐨勬柟寮忔潵榪炴帴鍜岃塊棶鍚勭嶇被鍨嬬殑鏁版嵁婧愩

1.鎵撳紑VB欏圭洰錛岄夋嫨鈥滈」鐩鈥濊彍鍗曚腑鐨勨滃紩鐢ㄢ濄

2.鍦ㄢ滃彲鐢ㄥ紩鐢ㄢ濆垪琛ㄤ腑鍕鵑夆淢icrosoftActiveXDataObjects2.xLibrary鈥濓紝鐒跺悗鐐瑰嚮鈥滅『瀹氣濄

3.鍦╒B浠ｇ爜涓娣誨姞浠ヤ笅浠ｇ爜錛

```

DimcnAsADODB.Connection

Setcn=NewADODB.Connection

cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C: est.mdb"

cn.Open

```

鍏朵腑錛屸渃n鈥濇槸榪炴帴瀵硅薄錛屸淐onnectionString鈥濇槸榪炴帴瀛楃︿覆錛屽畠鎸囧畾浜嗘暟鎹搴撶被鍨嬪拰璺寰勩

4.榪炴帴鎴愬姛鍚庯紝鍙浠ヤ嬌鐢ㄤ互涓嬩唬鐮佹潵鍏抽棴榪炴帴錛

```

cn.Close

Setcn=Nothing

```

涓夈佹煡璇㈡暟鎹

鏌ヨVB鏁版嵁搴撻渶瑕佷嬌鐢ˋDO瀵硅薄涓鐨凴ecordset瀵硅薄銆俁ecordset瀵硅薄鏄疺B涓鐢ㄤ簬瀛樺偍鍜屾搷浣滄暟鎹鐨勫硅薄錛屽畠鍙浠ュ規暟鎹搴撹繘琛屾煡璇銆佹洿鏂般佹彃鍏ュ拰鍒犻櫎絳夋搷浣溿

1.鍦╒B浠ｇ爜涓娣誨姞浠ヤ笅浠ｇ爜錛

```

DimrsAsADODB.Recordset

Setrs=NewADODB.Recordset

rs.Open"SELECT*FROMtable1",cn

```

鍏朵腑錛屸渞s鈥濇槸Recordset瀵硅薄錛屸淥pen鈥濇柟娉曟寚瀹氫簡鏌ヨ㈣鍙ュ拰榪炴帴瀵硅薄銆

2.鏌ヨ㈢粨鏋滃彲浠ラ氳繃浠ヤ笅浠ｇ爜榪涜岃誨彇錛

```

DoWhileNotrs.EOF

Debug.Printrs.Fields("name").Value

Debug.Printrs.Fields("age").Value

rs.MoveNext

Loop

```

鍏朵腑錛屸淓OF鈥濆睘鎬ц〃紺烘槸鍚﹀埌杈句簡鏌ヨ㈢粨鏋滈泦鐨勬湯灝撅紝鈥淔ields鈥濆睘鎬ц〃紺烘煡璇㈢粨鏋滈泦涓鐨勫瓧孌碉紝瀹冧滑鍙浠ラ氳繃鍚嶇О鎴栫儲寮曡繘琛岃塊棶錛屸淢oveNext鈥濇柟娉曠敤浜庣Щ鍔ㄥ埌涓嬩竴鏉¤板綍銆

鍥涖佹洿鏂版暟鎹

鏇存柊VB鏁版嵁搴撻渶瑕佷嬌鐢≧ecordset瀵硅薄涓鐨勨淯pdate鈥濇柟娉曘傝ユ柟娉曠敤浜庢洿鏂拌板綍闆嗕腑鐨勬暟鎹錛屽苟灝嗘洿鏀逛繚瀛樺埌鏁版嵁搴撲腑銆

1.鍦╒B浠ｇ爜涓娣誨姞浠ヤ笅浠ｇ爜錛

```

rs.Fields("age").Value=20

rs.Update

```

鍏朵腑錛屸淔ields鈥濆睘鎬ц〃紺鴻佹洿鏂扮殑瀛楁碉紝瀹冧滑鍙浠ラ氳繃鍚嶇О鎴栫儲寮曡繘琛岃塊棶錛屸淯pdate鈥濇柟娉曠敤浜庝繚瀛樻洿鏀廣

2.鏇存柊鎴愬姛鍚庯紝鍙浠ラ氳繃浠ヤ笅浠ｇ爜榪涜岃誨彇錛

```

rs.MoveFirst

Debug.Printrs.Fields("age").Value

```

鍏朵腑錛屸淢oveFirst鈥濇柟娉曠敤浜庣Щ鍔ㄥ埌鏌ヨ㈢粨鏋滈泦鐨勭涓鏉¤板綍銆

浜斻佸皬緇

鏈鏂囦粙緇嶄簡VB鏁版嵁搴撶殑鍩虹鐭ヨ瘑錛屽寘鎷鍒涘緩鏁版嵁搴撱佽繛鎺ユ暟鎹搴撱佹煡璇㈡暟鎹鍜屾洿鏂版暟鎹絳夈傞氳繃瀛︿範鏈鏂囷紝璇昏呭彲浠ヤ簡瑙VB鏁版嵁搴撶殑鍩烘湰鎿嶄綔錛屽苟鑳藉熷湪瀹為檯寮鍙戜腑搴旂敤榪欎簺鐭ヨ瘑銆