摘要:
Dim sour As String = "data source= (DESCRIPTION =(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.1)(PORT" & _ "= 1521)) (CONNECT_DATA =(SERVER = DEDICATED)" & _ "(SERVICE_NAME = ORCL)))"%OraclePath%\network\admin\tnsnames.ora [ServerName]= (DESCRIPTION = (ADDRESS_L 阅读全文