ÐÂÊÖÇë½Ì£¬¹ØÓÚVBÓÃADOÁ¬½ÓORACLEµÄÏêϸ½Ì³Ì£¡£¡Ð»£¡
[size=11px][/ÎÒÊÇÒ»¸öVBÐÂÊÖ£¬ÏëѧϰһÏÂÔõôÓÃADOÁ¬½ÓORACLE,ÔÚÂÛ̳¿´Á˰ëÌìµÄÌù×Ó£¬Ô½À´Ô½ºýÍ¿£¬Ï£Íû´óϺÃÇÄܸø¸öÏêϸµãµÄ½Ì³Ì£¡£¡[size]
²»Òª¿´Ìù×Ó£¬ÏÈ¿´Ò»Ï£Á£Ä£ÏµÄ½éÉÜ£¬ÆäÖÐÓкܶàÀý×Ó¡£
¸øÄã¶Î´úÂ룬¿´ÄÜ·ñ¿´¶®
'ÒýÓÃado¶ÔÏó2.5
Dim cnGet As ADODB.Connection
Dim rsGet As ADODB.Recordset
sConnect = " Provider=MSDASQL.1;Data Source=ODBCÊý¾ÝÔ´;Persist Security Info=True;User ID= Óû§;Password= ÃÜÂë"
Set cnGet = New ADODB.Connection
cnGet.Open sConnect
Set rsGet = New ADODB.Recordset
sSql= "select * from ...."
rsGet.Open sSql, cnGet, adOpenStatic, adLockReadOnly
лл¥Éϵģ¬ÎÒÒѾ½â¾öÁËÁ¬½ÓÊý¾Ý¿âµÄÎÊÌ⣬¿ÉÊÇÓоä´úÂë²»ÖªµÀ¸ÃÔõôд¡£°ïÎÒ¿´Ï£¡
select table1.aaa,table2.bbb,table2.ccc from table1,table2 where table2.bbb='"&text1.text&"' and table1.aaa=table2.aaa
Õâ¾ä²éѯÔõô°Ñtable1ºÍtable2ÕâÁ½¸ö±íд³ÉtextÀïÃæÊäÈëµÄÄÚÈÝ£¿ÏñϱßÕâÑùµÄ£º
select ¡°text2.text¡±.aaa,"text3.text".bbb,table2.ccc from table1,table2 where table2.bbb='"&text1.text&"' and table1.aaa=table2.aaa
ÄãµÄÓï¾äÓÐÎÊÌâ¡£
table1 ºÍtable2µÄ¹ØÏµ£¿
VB code:
Dim strSQL As String
strSQL = "select " & Text1 & ".a," & Text1 & ".b,&quo
Ïà¹ØÎÊ´ð£º
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
СµÜ£¬×î½üҪתÐÐÈ¥×öoracle¿ª·¢ÁË£¬ÓÉÓÚ´óѧ±Ïҵʱ£¬×ßÁ˸öÍä·£¬ÏÖÔÚºÜСÐÄ£¬ÎÊÏ£¬×öPL/SQLÓÐûÓÐǰ;£¿£¿£¿
µ±È»ÎÒ˵µÄÕâ¸öǰ;ÊÇÖ¸ ÒÔºóÒªÌø²Û£¬Êг¡¶ÔÕâÑùµÄÈ˲ŵÄÐèÇóÁ¿´ó²»´ó£¿£¿
3q ÄÇ¿´À´»¹Ö»ÄÜÏȽӴ ......