oracle¿Í»§¶ËÅäÖÃÓëʹÓã¨vb£©
ʹÓÃoracleÊý¾Ý¿âÓÐÁ½ÖÖ·½·¨£º
1¡¢ÔÚ¿Í»§¶Ë»úÆ÷Éϰ²×°oracleµÄ¿Í»§¶ËÈí¼þ¡£Î¨Ò»µÄÀýÍâ¾ÍÊÇjavaÁ¬½ÓÊý¾Ý¿âµÄʱºò£¬¿ÉÒÔÓÃjdbc thinģʽ£¬²»ÓÃ×°oracleµÄ¿Í»§¶ËÈí¼þ¡£
2¡¢Èç¹ûÄãÔÚ»úÆ÷ÉÏ×°ÁËoracleÊý¾Ý¿â·þÎñÆ÷£¬¾Í²»ÐèÒªÔÚµ¥¶ÀÔڸûúÆ÷Éϰ²×°oracle¿Í»§¶ËÁË£¬ÒòΪװoracleÊý¾Ý¿âµÄʱºò»á×Ô¶¯°²×°oracle¿Í»§¶Ë
Èç¹ûÏëÓñ¾µØµÄ¼ÆËã»ú·ÃÎÊ»òÁ¬½ÓÔ¶³ÌµÄoracleÊý¾Ý¿â£¬ÄÇô¾Í±ØÐëÔÚ±¾µØµÄ¼ÆËã»úÉϰ²×°oracle¿Í»§¶ËÈí¼þ¡£
ÔÚ°²×°¿Í»§¶Ëǰ£¬È·±£ÔÚ·þÎñÆ÷¶Ë£º
1£®±£Ö¤listener·þÎñÒѾÆô¶¯¡£
2£®±£Ö¤Êý¾Ý¿âÒѾÆô¶¯¡£
°²×°Íê¿Í»§¶ËÈí¼þºó£¬Òª¶Ô¿Í»§¶ËÈí¼þϵÄÅäÖúÍÒÆÖ²¹¤¾ß----¡·net configuration assianstant½øÐÐÅäÖ㬰´ÕÕÌáʾ£º
1¡¢Í¼ÐνçÃæÐ޸ģ¨×îºÃÓÃÕâÖÖ·½·¨Ð޸ģ©
¿ÉÒÔÔÚ¿Í»§¶Ë»úÆ÷ÉÏʹÓÃoracle Net Configuration Assistant»òoracle Net ManagerͼÐÎÅäÖù¤¾ß¶Ô¿Í»§¶Ë½øÐÐÅäÖ㬸ÃÅäÖù¤¾ßʵ¼ÊÉÏÐÞ¸Ätnsnames.oraÎļþ¡£
ÏÂÃæÊÇʹÓà oracle Net Configuration Assistant¹¤¾ß¶Ô¿Í»§¶Ë½øÐÐÅäÖõģ¬ÉèÖÃÍê³ÉÖ®ºónet manageÖÐÒ²×÷ÁËÏàÓ¦µÄÐ޸ġ£²½ÖèÈçÏ£º
1¡¢´ò¿ªcmdÊäÈënetca»òÓò˵¥Ñ¡Ôñ Net Configuration Assistant¡£
2¡¢Ñ¡Ôñ¡¾±¾µØnet·þÎñÃûÅäÖá¿→ÏÂÒ»²½¡£
3¡¢Ñ¡Ôñ¡¾Ìí¼Ó¡¿→ÏÂÒ»²½¡£
4¡¢ÔÚ¡¾·þÎñÃû¡¿ÖÐÊäÈëÄãÏëÒªÁ¬½ÓµÄ·þÎñÆ÷ÉϵÄoracle·þÎñµÄÃû×Ö£¨Ô¶³Ì·þÎñÆ÷ÉÏÊý¾Ý¿âµÄÃû×Ö£©→ÏÂÒ»²½¡£
5¡¢Ñ¡Ôñ¡¾tcp¡¿→ÏÂÒ»²½¡£
6¡¢ÔÚ¡¾Ö÷»úÃû¡¿ÖÐÊäÈëÄãÏëÒªÁ¬½ÓµÄ·þÎñÆ÷ip£¬¶Ë¿ÚºÅ²»±ä→ÏÂÒ»²½¡£
7¡¢Ñ¡Ôñ¡¾½øÐвâÊÔ¡¿→ÏÂÒ»²½¡££¨µ±È»ÄãÒ²¿ÉÒÔÑ¡Ôñ²»²âÊÔ£©
¡ù1²âÊÔÈç¹û²»Í¨¹ý£¬µã»÷¡¾¸ü¸ÄµÇ¼¡¿ÊäÈëÒ»¸ö¿Ï¶¨ÄܵÇÈëµÄ¡¾Óû§Ãû¡¿ºÍ¡¾¿ÚÁî¡¿→È·¶¨£¬³öÏÖ¡¾ÕýÔÚÁ¬½Ó...²âÊԳɹ¦¡£¡¿±íÃ÷²âÊԳɹ¦¡£
¡ù2²âÊÔ²»Í¨¹ýµÄ»°£¬µã¡¾ÉÏÒ»²½¡¿È·ÈÏÄãдµÄ¡¾·þÎñÃû¡¿ºÍ¡¾Ö÷»úÃû¡¿£¬È·ÈÏÎÞÎóµÄÇé¿öÏ£¬È·ÈÏÄãÒªÁ¬½ÓµÄ·þÎñÆ÷oracle¼àÌý·þÎñÒѾ´ò¿ª¡£
8¡¢ÔÚ¡¾net·þÎñÃûÖС¿ÊäÈëÄãÏëҪʹÓõı¾µØµÄ·þÎñÃû£¨±¾µØÊ¹ÓõķþÎñÃû³Æ¼´µ±³ÌÐòÁ´½ÓÊý¾Ý¿âËùʹÓõÄÊý¾Ý¿âÃû³Æ»òÊý¾Ý¿â±ðÃû¡¢ÍøÂç·þÎñÃû£©→ÏÂÒ»²½¡£
¡ù¾ÍÊÇ¡¾sqlplus user/passwd @±¾µØ·þÎñÃû¡¿¡£
9¡¢Ñ¡Ôñ¡¾·ñ¡¿→ÏÂÒ
Ïà¹ØÎĵµ£º
ͨ¹ýµ÷ÓÃCreateDataSetfromXmlÈ¡µÃXMLÊý¾Ý
Imports System.Xml
Public Const FILE_CONFIG = "MZZ.xml"
Public Const PATH_CONFIG = "\XML\"
Dim dstXML As DataSet
Dim tblXML_DB As DataTable
Dim dtCod As New DataTable
Dim strSQL As String = ""
clsPublic ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
Èç¹ûÔÀ´Ã»ÓÐʹÓùýÕýÔò±í´ïʽ£¬ÄÇô¿ÉÄܶÔÕâ¸öÊõÓïºÍ¸ÅÄî»á²»Ì«ÊìϤ¡£²»¹ý£¬ËüÃDz¢²»ÊÇÄúÏëÏóµÄÄÇôÐÂÆæ¡£
Çë»ØÏëÒ»ÏÂÔÚÓ²ÅÌÉÏÊÇÈçºÎ²éÕÒÎļþµÄ¡£Äú¿Ï¶¨»áʹÓà ? ºÍ * ×Ö·ûÀ´°ïÖú²éÕÒÄúÕýѰÕÒµÄÎļþ¡£? ×Ö·ûÆ¥ÅäÎļþÃûÖеĵ¥¸ö×Ö·û£¬¶ø * ÔòÆ¥ÅäÒ»¸ö»ò¶à¸ö×Ö·û¡£Ò»¸öÈç 'data?.dat' µÄģʽ¿ÉÒÔÕÒµ½ÏÂÊöÎļþ£º
data1.dat
......
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias ......