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
Ïà¹ØÎĵµ£º
Ò²Ðí¶ÔSQL ServerÀ´Ëµ,ȡǰNλµÄÊý¾ÝÊǺܼòµ¥µÄÊÂÇé,Ò»ÌõTOPÓï¾ä¾Í¸ã¶¨ÁË.
ÔÚOracleÖÐÎÒÃÇÍùÍù»á¸Ð¾õµ½Í·ÌÛ,ƽÈÕÀïÒ²³£»áÓõ½,Ö÷ÒªÊÇʹÓÃpartition by.
Óï·¨ÈçÏÂ:
select emp_card_no,work_date,read_card_date,count(rownum) as cnt
from hra_read_car ......
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;
°´»Ø³ ......
'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºmodNtSrv
'* ³ÌÐò¹¦ÄÜ£ºÊµÏÖNT·þÎñ
'* ×÷Õߣºlyserver
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......
Oracle
º¯
ÊýÖ®substr
¹Ø¼ü×Ö: substr
substrº¯ÊýÓÐÈý¸ö²ÎÊý£¬ÔÊÐíÄ㽫Ŀ±ê×Ö·û´®µÄÒ»²¿·ÝÊä³ö£¬
µÚÒ»¸ö²ÎÊýΪĿ±ê×Ö·û´®£¬
µÚ¶þ¸ö×Ö·û´®Êǽ«ÒªÊä³öµÄ×Ó´®µÄÆðµã£¬
µÚÈý¸ö²ÎÊýÊǽ«ÒªÊä³öµÄ×Ó´®µÄ³¤¶È¡£
Àý×Ó1£º
substr('ABCDEFG', 2, 3) ......
×Ô¼ºÕûÀíÁËÏÂOracleµÄÊý¾Ý¿â±¸·Ý·½°¸,ÓùýÀ䱸·Ý¡£ÆäËûûÓвâÊÔ¹ý
Ò»¡¢ µ¼³ö/µ¼Èë(Export/Import)
¡¡¡¡ÀûÓÃExport¿É½«Êý¾Ý´ÓÊý¾Ý¿â
ÖÐÌáÈ¡³öÀ´£¬ÀûÓÃImportÔò¿É½«ÌáÈ¡³öÀ´µÄÊý¾ÝËͻص½Oracle
Êý¾Ý¿âÖÐÈ¥¡£
¡¡¡¡1¡¢ ¼òµ¥µ¼³öÊý¾Ý(Export)ºÍµ¼ÈëÊý¾Ý(Import):
¡¡¡¡OracleÖ§³ÖÈýÖÖ·½Ê½ÀàÐ͵ÄÊä³ö£º
¡¡¡¡(1)¡¢±í·½Ê½(T·½ ......