急急急 求vb6 连接远程Oracle数据库 在线给分！！！

Question

Oracle 服务器IP是10.10.42.136
用户名是：wlcp
密码是：wlcp
数据库名是：cwt3请高手给我连接这个数据库的代码谢谢

Answer 1

你需要在本机上安装oracle客户端,再用控制面板的ODBC工具配置好数据源,然后可用代码连接
Provider=MSDASQL.1;Data Source=cwt3;Persist Security Info=True;User ID=wlcp;Password=wlcp

Answer 2

 
1、首先你要安装oracle客户端软件，再用控制面板的ODBC工具配置好数据源，确保oracle安装文件夹下\network\admin\tnsnames.ora文件中有如下内容：
cwt3 =
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 10.10.42.136 )(PORT = 1521))
    )
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = cwt3)
    )
  )2、在VB6程序中，增加Microsoft ADO Data Control 6.0控件和Microsoft Hierarchical FlexGrid Control 6.0控件，名字默认，再用以下代码就可连接了。
Public cn As ADODB.Connection
Public rs As ADODB.RecordsetPrivate Sub Form_Load()
cn.ConnectionString = "Provider=MSDAORA.1;Password=wlcp;User ID=wlcp;Data Source=cwt3;Persist Security Info=True"
    cn.Open
    rs.Open "select * from cwt3", cn, adOpenKeyset
    Set MSHFlexGrid1.DataSource = rs
    rs.Close
    cn.Close
end sub

Answer 3

Oracle版本不同，连接也不同。
给你个Oracle 9I的连接
    cn.ConnectionString = "DRIVER=Oracle in OraHome92;UID=" & uidtxt & ";pwd=" & userpwd & ";SERVER=" & DatabaseName & ";DBQ=" & DatabaseName & ";TLO=O;FBS=60000;FWC=F;CSR=F;MDI=Me;MTS=F;NUM=NLS;pooling=false;BAM=IfAllSuccessful;FRL=Lo;GDE=F;RST=T;LOB=T;DL=10;FRC=10;QTO=T;FEN=T;XSM=Default;lEXC=F;APA=T;DBA=W"
    cn.CursorLocation = adUseClient
    cn.Open还有个简单的方法就是你建好数据源后直接调用。    cn_local.ConnectionString = " Data Source=han;UID=jyz;pwd=123"
    cn_local.CursorLocation = adUseClient
    cn_local.CommandTimeout = 0
    cn_local.Open