ÇóvbÔ¶³ÌÁ¬½ÓoracleÊý¾Ý¿âµÄ³ÌÐò
ÎÒÓиöС³ÌÐò£¬ÐèÒª´Óµ¥Î»µÄoracleÊý¾Ý¿âÖжÁÈ¡Êý¾Ý£¬µ«ÊDz»ÖªµÀ¸ÃÔõôд£¬Çë¸÷λ¸ßÊÖÖ¸µã£¬×îºÃÓÐʵÀý£¬»òÔ´³ÌÐò¡£Ð»Ð»ÁË
http://www.connectionstrings.com/oracle ¶¥Æð Á¬¿â Dim DLYHM, DLMM, DLSLM As String Dim Grecordset As New ADODB.Recordset Dim Gconnection_HQ As New ADODB.Connection DLYHM = "USER ID=" + Óû§Ãû DLMM = "password=" + µÇ¼ÃÜÂë DLSLM = "Data Source=" + DBCSÖеÄʵÀýÃû LSsjk = DLYHM + ";" + DLMM + ";" + DLSLM LSsjk = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;" + LSsjk Set Gconnection_HQ = New ADODB.Connection Gconnection_HQ.Open LSsjk ¶ÁÊý¾Ý Set Grecordset = New ADODB.Recordset Grecordset.Open "select * from ±íÃû where ×Ö¶ÎÃû='" & ×Ö¶ÎÖµ & "'", Gconnection_HQ, adOpenStatic, adLockOptimistic ¡®Ë÷ÒýÌõ¼þ ±äÁ¿ = Trim(Grecordset.Fields("¶ÁÈ¡×Ö¶ÎÃû")) Grecordset.Close Äܲ»ÄܰÑÔ´³ÌÐò·¢¸øÎÒ°¡£¬ÎÒµÄÓÊÏ䣬Èç¹û³É¹¦ÂíÉϸøÄã½á·Ö£¬Âé·³ÁË£¬Å¼ÏÈллÁË£¡ ustbzhy@163.com£¬Ð»Ð» ×Ô¼º¸ù¾Ý´úÂë¸ÄһϾͿÉÒÔÁË£¬²»ÒªÊ²Ã´¶¼ÒªÔ´´úÂ룬ÔÛÃÇÖ®¼äÓõĸ÷ÖÖÐÅÏ¢¶¼²»Ò»Ñù£¬¸øÄãÒ²µÃ×Ô¼º¸Ä ÐèÒª°²×°oracel¿Í»§¶Ë oracle¿Í»§¶Ë×°ÉÏÁË£¬µ«ÊÇÓ¦¸ÃÈçºÎÅäÖÃÄØÒýÓà oracle¿Í»§¶Ë×°ÉÏÁË£¬µ«ÊÇÓ¦¸ÃÈçºÎÅäÖÃÄØ ×îºÃ½
Ïà¹ØÎÊ´ð£º
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÇëÎÊÕâ¸ö»º³å³ØÊÇÔõô»ØÊ°¡£¿¿ÉÒÔÁ¬½Ó»º³å³ØÀûÓÃÆäÖеÄÊý¾Ý°É£¿ÔõôÓã¿ Õâ¸öÊÇoracle×Ô¶¯×öµÄ£¬Ò»°ãÓ¦ÓóÌÐòÊDzÙ×÷²»Á˵ġ£ ²»ÄÜÖ±½ÓÁ¬½ÓÂ𣿠ÒýÓà ²»ÄÜÖ±½ÓÁ¬½ÓÂ𣿠²»ÄÜ ÄÇ»º³å³ØÀïµÄÊý¾ÝÒ²²»Äܲéѯ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»Áß´Í½Ì 1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£ Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯ Picture1.Left = -HScroll1.Value + bcW ' ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......