'開啟資料庫
public sub openoradb()
on error goto toexit
oradb_open = false
set oradb = new adodb.connection
oraconstr = "provider=oraoledb.oracle.1;password=" & strorapwd & ";user id=" & strorauser & ";data source=" & oradbnetname & ";persist security info=false"
oradb.cursorlocation = aduseserver
oradb.open oraconstr
oradb_open = true
exit sub
toexit:
'msgbox "連線資料庫伺服器錯誤，您可以在網路正常後繼續使用。",vbinformation , "錯誤資訊"
oradb_open = false
end sub
'關閉資料庫
public sub closeoradb()
if oradb_open = true then
if (oradb.state = adstateopen) then
oradb.close
set oradb = nothing
oradb_open = false
end if
end if
end sub
'開啟資料集，寫入資料
set orars = new adodb.recordset
orars.activeconnection = oradb
orars.cursorlocation = aduseserver
orars.locktype = adlockbatchoptimistic
strorars = "select * from " & oradbtablename
orars.open strorars, oradb, adopenstatic, adlockoptimistic
orars.addnew
orars.fields("pid") = strorapid
orars.fields("pname") = strname").value
orars.fields("p***") = strp***
orars.update
'關閉資料集
VB連線oracle資料庫
做個人用小工具，而不是頻繁交易的大專案，下面兩種連線都可以 各自需要相關驅動 注 還有其它連線方式，對比後放棄了。不需要安裝oracle客戶端。環境變數需要配置。public function getconndb as integer on error goto errflag getconndb ...
VB連線遠端Oracle資料庫
1 instantclient basic windows.x64 11.2.0.4.0.zip和instantclient odbc windows.x64 11.2.0.4.0.zip 2.解壓兩個檔案到同乙個資料夾 instantclient 11 2 3.雙擊或者用命令列安裝 odbc in...
VB與資料庫 資料庫連線
話說學生管理系統和機房收費系統都完成了，再回來說資料庫的連線真的好嗎？貌似不太好，但是誰讓自己欠賬了呢 除了還，還能有更好的解決方法嗎？前幾天說 紅皮書 中的七個物件。當時的反應哪七個，腦子完全一片空白，不知所云。所以找出來，再看看吧。vb6.0與sqlserver有源資料庫連線，vb6.0中資料訪...