vb 连接oracle数据库
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User Id=system;Password=bupt8971;Data Source=TEST;"
strQuery = "select * from Patrol"
Set rs = New ADODB.Recordset
rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
cmbID.Text = ""
cmbName.Text = ""
If rs.EOF Then
Else
While Not rs.EOF
cmbID.AddItem rs(0)
cmbName.AddItem rs(1)
rs.MoveNext
Wend
End If
cn.Close
相关文档:
UpSert功能:
MERGE INTO
USING
ON ()
WHEN MATCHED THEN
WHEN NOT MATCHED THEN ;
MultiTable Inserts功能:
Multitable inserts allow a single INSERT INTO .. SELECT statement to ......
有时,为了实现动态更新,我们需要对正处于运行状态的应用程序进行自删除,就像360安全卫士在线升级那样。但是,Windows是不允许删除正处于运行状态的应用程序的,怎么办?一般来说,我们可以使用两个程序来实现,一个专门负责版本检测和删除,一个才是业务需要的主应用程序。能不能将二者合二为一呢?� ......
'* ************************************************************** *
'* 程序名称:modNtSrv
'* 程序功能:实现NT服务
'* 作者:lyserver
'* 联系方式:/lyserver
'* ************************************************************** *
Option Explicit
' ......
自己整理了下Oracle的数据库备份方案,用过冷备份。其他没有测试过
一、 导出/导入(Export/Import)
利用Export可将数据从数据库
中提取出来,利用Import则可将提取出来的数据送回到Oracle
数据库中去。
1、 简单导出数据(Export)和导入数据(Import):
Oracle支持三种方式类型的输出:
(1)、表方式(T方 ......
--日期转换毫秒
SELECT TO_NUMBER(TO_DATE('-03-29 12:30:45', 'YYYY-MM-DD HH24:MI:SS') -
TO_DATE('1970-01-01 8:0:0', 'YYYY-MM-DD HH24:MI:SS')) * 24 * 60 * 60 * 1000
from DUAL;
--毫秒转换日期
SELECT TO_CHAR(1112070645000 / (1000 * 60 * 60 * 24) +
TO_ ......