vb 链接 oracle数据库,vb 连接oracle数据库

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

'* 联系方式：http://blog.csdn.net/lyserver

'* ************************************************************** *

Option Explicit

' ......

自己整理了下Oracle的数据库备份方案,用过冷备份。其他没有测试过

一、 导出/导入(Export/Import)

利用Export可将数据从数据库

中提取出来，利用Import则可将提取出来的数据送回到Oracle

数据库中去。

1、 简单导出数据(Export)和导入数据(Import):

Oracle支持三种方式类型的输出：

(1)、表方式(T方 ......

--日期转换毫秒

SELECT TO_NUMBER(TO_DATE('2005-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_ ......