VBÖÐÊDz»ÊDz»ÄÜÒì³£²¶»ñǶÌ×£¿
ÔÚÒ»¸öº¯ÊýÖÐÊÇ·ñ¿ÉÒÔÒì³£²¶»ñǶÌ×ÄØ£¿
ÔÚÒì³£²¶»ñ´¦ÀíʼþÖл¹Òª·ÅһЩ´úÂ룬µ«Õⲿ·Ö´úÂë¿ÉÄÜÒ²»á³öÎÊÌâ°¡£¿Ôõô°ì£¿
ÎÒÊÔ¹ý£¬ÔÚº¯ÊýAÖÐÓÐÒì³£²¶»ñ£¬AµÄÒì³£´¦Àí²¿·ÖÒýÓÃÁ˺¯ÊýB£¬
µ«º¯ÊýBÖÐÒ²´æÔÚÒì³£²¶»ñ£¬
µ«ÕâÑùAµ÷ÓÃBʱ¾Í»á³ö´í£¬ÄÇÔõô°ì£¿
ÔÚbÖмÓÒì³£²¶»ñ¾Í¿ÉÒÔÁË
º¯Êý B ÄÚ²¿Ò²½øÐÐÒì³£²¶»ñ£¬²¢ÇÒ¿ÉÒÔ½«Õý³£ºÍÒì³£Óò»Í¬µÄ·µ»ØÖµ±íʾ£¬ÕâÑù±£Ö¤ A ¶Ô B µÄµ÷Óò»»áÔÙ³öÒì³££¬»¹Äܸù¾Ý·µ»ØÖµ½øÐв»Í¬µÄ¶ÔÓ¦¡£
ÎÒÊÇÔÚBÖÐÒ²¼ÓÈëÁËÒì³£²¶»ñ£¬µ«ÕâÑù×ÓΪʲôBÖÐÔËÐÐÒ»¶¨»á³ö´íÄØ£¿
´úÂëÈçÏ£º
Private Sub Form_Load()
CurrentConnStr = "Oracle"
On Error GoTo cnnHandle
'Á¬½ÓÊý¾ÝÊý¾Ý¿â
tryConn
Exit Sub
cnnHandle:
...
End Sub
Private Sub tryConn()
On Error GoTo cnnHandle
Set cnnDB = New ADODB.Connection
cnnDB.Open getConnString()
cnnDB.CursorLocation = adUseClient
cnnHandle:
If "Oracle" = CurrentConnStr Then
MsgBox "ÐÞ¸´´íÎóʧ°Ü£¬³ÌÐò½«Í˳ö£¡", vbOKOnly, "PIAM"
Else
MsgBox "ÎÞ·¨²ÉÓÃmsdaora·½Ê½Á¬½ÓÊý¾Ý¿â£¬³ÌÐò½«Í˳ö£¡", vbOKOnly, "PIAM"
End If
End
End Sub
Private Sub tryConn()
On Error GoTo
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?
ÐǪ̈ÁªÏµ·½Ê½ÄØ
ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨
¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ
±±¾©µÄÐв»£¿
ÎÒÔÚËÕÖÝ£¬ ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......