在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鏁版嵁搴撶殑鍩烘湰鎿嶄綔锛屽苟鑳藉熷湪瀹為檯寮鍙戜腑搴旂敤杩欎簺鐭ヨ瘑銆