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
Ïà¹ØÎĵµ£º
¡¡¡¡Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØλ,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷.ͬʱOCX ¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ³£³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµÄÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ× ......
t±íÖн«½üÓÐ1100ÍòÊý¾Ý£¬ºÜ¶àʱºò£¬ÎÒÃÇÒª½øÐÐ×Ö·û´®Æ¥Å䣬ÔÚSQLÓï¾äÖУ¬ÎÒÃÇͨ³£Ê¹ÓÃlikeÀ´´ïµ½ÎÒÃÇËÑË÷µÄÄ¿±ê¡£µ«¾¹ýʵ¼Ê²âÊÔ·¢ÏÖ£¬likeµÄЧÂÊÓëinstrº¯Êý²î±ðÏ൱´ó¡£ÏÂÃæÊÇһЩ²âÊÔ½á¹û£º
SQL> set timing on
SQL> select count(*) from t where instr(title,’ÊÖ²á’)>0;
COUNT(*)
—&md ......
Ò»¡¢ ÄÚ´æ½á¹¹
¹²Ïí³Ø£º·ÖΪ¿â¸ßËÙ»º´æºÍ×Öµä¸ßËÙ»º³åÇø
¿â¸ßËÙ»º´æ£¬ÓÃÓÚ´æ´¢¾¹ýÓï·¨·ÖÎö²¢ÇÒÕýÈ·µÄSQLÓï¾ä£¬²¢Ëæʱ׼±¸Ö´ÐС£
×Öµä¸ßËÙ»º³åÇø£¬´æ´¢µÇ½µ½ORACLEµÄÓû§Ãû£¬¼°ÕâЩÓû§ÓÐÄÄЩÊý¾Ý¿â¶ÔÏóÒÔ¼°ÕâЩÊý¾Ý¿â¶ÔÏóµÄλÖá£
Êý¾Ý»º ......
ORACLEÓαê
Óα꣺ÈÝÆ÷£¬´æ·Åµ±Ç°SQLÓï¾äÓ°ÏìµÄ¼Ç¼
ËùÓÐDMLÓï¾ä¶¼»áÓõ½Óαê
ÖðÐд¦ÀíÓ°ÏìµÄÐÐÊý
Óαê
¾²Ì¬Óα꣺ÓαêÓëSQLÓï¾äÔÚÔËÐÐÇ°¹ØÁª
&nb ......