页面打开中,请稍候...
www.Gzu521.com
| GZU521.COM学习网 |
|
'打开数据库 public sub openoradb() on error goto toexit oradb_open = false set oradb = new adodb.connection oraconstr = "provider=oraoledb.Oracle.1;password=" %26amp; strorapwd %26amp; ";user id=" %26amp; strorauser %26amp; ";data source=" %26amp; oradbnetname %26amp; ";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 " %26amp; oradbtablename orars.open strorars, oradb, adopenstatic, adlockoptimistic orars.addnew orars.fields("pid") = strorapid orars.fields("pname") = strname").value orars.fields("psex") = strpsex orars.update '关闭数据集 orars.close set orars = nothing |
责任编辑：gzu521
您现在的位置:
