求ado.net连接oracle数据库

Question

连接串是这样写的,连接不成功,求解Dim myconnection As OracleConnection
'Dim strsql = "Driver={Oracle in OraHome90};Server=orcltest;Password=card;User ID=card;Data Source=test_Esa_Web_Opr_Orcl"    'OK 测试大机
Dim strsql = "data source=192.168.1.10;database=test_Esa_Web_Opr_Orcl;User ID=card;pwd=card"
myconnection = New OracleConnection(strsql)

Answer 1

Dim myconnection As OracleConnection
Dim strsql = "server=test_Esa_Web_Opr_Orcl;User ID=card;pwd=card"
myconnection = New OracleConnection(strsql)其中server 是你oracle 服务名

Answer 2

provider=msdaora.1;User Id=test;password=pass;data source=orclorcl是本地net名，配置为连接指定的服务器
test是用户名

Answer 3

问题解决,很简单,跟连sql差不多
Dim strsql = "User ID=card;Password=card;Data Source=orcltest"
还有一个pl/sql存储过程的问题,其中一句不执行,求解execute immediate 'select count(*) from partranslog' || strsql into recordcount using mcht,startdate,enddate;完整的存储过程如下:create or replace procedure trans
(
mcht in varchar,
sett in varchar,
startcardno in varchar,
endcardno in varchar,
tx_code in varchar,
banlace in varchar,
startdate in varchar,
enddate in varchar,
traceno in varchar,
batchno in varchar,
termid in varchar,
document in varchar,
cardhold in varchar,
lxname in varchar,
telphone in varchar,
gkdate in varchar,
pagesize in number,
currpage in number,
recordcount out number
)
as
strsql varchar(1000);
v_con number(8);
pragma AUTONOMOUS_TRANSACTION;
begin
  recordcount:=888;
  strsql:=' where merch_id=mcht and sett_postdate>=to_char(startdate) and sett_postdate<=to_char(enddate)';
  if length(startcardno)>0 and length(endcardno)>0 then
    strsql:=strsql||' and cardno>=startcartno and cardno<=endcardno';
  end if;
  execute immediate 'select count(*) from partranslog' || strsql into recordcount using mcht,startdate,enddate;
  
  update proce set name=recordcount;
end trans;
/