vb编程oracle怎么插入数据表

❶ VB 怎么不用控件操作数据库

比如里面一张表test,有3个字段a,b,c,内容如下:
序号 a b c
11 2 3
24 5 6
37 8 9

1.修改a=1的记录b的值为10:db.Execute("update test set b=10 where a=1")
2.删除回a=7的记录:db.Execute("delete from test where a=7")
3.添加一答条新记录(a=11,b=12,c=13):db.Execute("insert into test values(11,12,13)")

❷ 请教vb如何连接oracle数据库

办法
添加部件：Microsoft ado data control 6.0
在窗体上添加一个adodc控件，然后设置adodc控件的属性，选“使内用连接字符串”项边上的容“生成”然后选Oracle驱动，并设好其它条件(要连的库、用户、密码等)，生成的字符串拷出来,赋值给ADODB.connectionsting就可以了，然后就可以删除adodc控件了。

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

❹ VB 连接Oracle

VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。

1）建立数据工程，在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。

❺ 鍦╒B6.0涓濡備綍杩炴帴Oracle鏁版嵁搴撹〃锛岃锋暀澶х墰浠浜

鑰侀棶棰樹簡锛岄殢渚夸笂缃戝氨鎵惧緱鍒帮紝
浠ヤ笅渚涘弬鑰,杞鑷猚cid銆

棣栧厛瑕佸畨瑁匫RACLE瀹㈡埛绔鎴栨湇鍔″櫒绔,寤哄ソDB浠ュ強SERVICE,杩炴帴鎴愬姛鍚庡氨鍙浠ュ紑濮嬩簡,浠ヤ笅鏄疺B璁块棶ORACLE鐨勪唬鐮:

Option Explicit
'浠ヤ笅鏄涓浜涘彉閲忎互鍙婂弬鏁扮殑瀹氫箟
'DB鐨勫悕绉
Public Const strdbname = "DBNAME"
'鐢ㄦ埛鍚
Public Const strusr = "BLUESKY35"
'瀵嗙爜
Public Const strpwd = "PASSWORD"
'OraSession
Public OraSession As Object
'OraDatabase
Public OraDB As OraDatabase
'OraDynaset
Public OraDyn As OraDynaset

'杩炴帴ORACLE鐨勫嚱鏁
'杩炴帴鎴愬姛:true 杩炴帴澶辫触:false
Public Function f_connect() As Boolean

On Error GoTo ierr
f_connect = False
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDB = OraSession.OpenDatabase(strdbname, strusr & "/" & strpwd, 0&)
f_connect = True
Exit Function

ierr:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
f_connect = False
End Function

'閫氳繃浼犲叆SQL璇鍙ヤ粠鏁版嵁搴撶殑琛ㄩ噷鍙栧緱璁板綍
Public Function f_select(strsql As String) As OraDynaset
On Error GoTo ierr
Set OraDyn = OraDB.CreateDynaset(strsql, ORADYN_READONLY)
Set f_select = OraDyn
Exit Function

ierr:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
Set f_select = Nothing
End Function

'鎵ц屾洿鏂拌鍙,杩斿洖鍙楁湰娆℃洿鏂板奖鍝嶇殑璁板綍鏁
Public Function f_execute(strsql As String) As Boolean
On Error GoTo ierr
f_execute = False
OraDB.BeginTrans
f_execute = OraDB.ExecuteSQL(strsql)
Exit Function

ierr:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
OraDB.Rollback
End Function

'鏂寮杩炴帴
'鏂寮鎴愬姛:true 鏂寮澶辫触:false
Public Function f_disconnect() As Boolean
On Error GoTo ierr
f_disconnect = False
If Not OraDyn Is Nothing Then
OraDyn.Close
End If
Set OraSession = Nothing
OraDB.Close
Set OraDB = Nothing
f_disconnect = True
Exit Function

ierr:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
f_disconnect = False
End Function

灏嗕互涓婁唬鐮佹斁鍏ユā鍧,鐩存帴璋冪敤鍗冲彲.