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
Ïà¹ØÎĵµ£º
1.´´½¨Ñ§Éú±í£º
CREATE TABLE student (
xh number primary key,
Name varchar2(10) not null);
2. ´´½¨ÐòÁУº
CREATE SEQUENCE student_seq
START WITH 1
INCREMENT BY 1
NOCACHE;
°´»Ø³ ......
'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºButton.ctl
'* ³ÌÐò¹¦ÄÜ£ºÍ¸Ã÷¸¡¶¯°´Å¤
'* ×÷Õߣºlyserver£¬×îºóÐÞ¸ÄÈÕÆÚ£º2009Äê11ÔÂ
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************ ......
×Ô¼ºÕûÀíÁËÏÂ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_ ......
ORACLEÓαê
Óα꣺ÈÝÆ÷£¬´æ·Åµ±Ç°SQLÓï¾äÓ°ÏìµÄ¼Ç¼
ËùÓÐDMLÓï¾ä¶¼»áÓõ½Óαê
ÖðÐд¦ÀíÓ°ÏìµÄÐÐÊý
Óαê
¾²Ì¬Óα꣺ÓαêÓëSQLÓï¾äÔÚÔËÐÐǰ¹ØÁª
&nb ......