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 <hint> INTO <table_name>
USING <table_view_or_query>
ON (<condition>)
WHEN MATCHED THEN <update_clause>
WHEN NOT MATCHED THEN <insert_clause>;
MultiTable Inserts功能：
Multitable inserts allow a single INSERT INTO .. SELECT statement to ......
长久以来，由于不能直接获得VB类成员函数指针，因为无法在VB的类模块中直接使用定时器控件或定时器API，基于俺编写的获得类成员函数指针的函数，俺编写了这个带定时器功能的类，希望给朋友们一些启发。
一、新建一个类，类名称为clsTimer，类代码如下：
Option Explicit
'* ** ......
有时，为了实现动态更新，我们需要对正处于运行状态的应用程序进行自删除，就像360安全卫士在线升级那样。但是，Windows是不允许删除正处于运行状态的应用程序的，怎么办？一般来说，我们可以使用两个程序来实现，一个专门负责版本检测和删除，一个才是业务需要的主应用程序。能不能将二者合二为一呢？� ......
