CREATE OR REPLACE PROCEDURE P1 (a out int) is begin a:=2; end; 在ORACLE中有一个如上的过程;在ACCESS的模块编辑窗口中,在“工具”->“引用”添加“Microsoft ActiveX Data Object 2.8 Library”Dim Conn As ADODB.Connection Dim Cmd As ADODB.Command Dim Param As ADODB.ParameterSet Conn = New ADODB.Connection Set Cmd = New ADODB.CommandConn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=****;Persist Security Info=True;User ID=username;Data Source=servicename" Conn.Open Cmd.ActiveConnection = Conn Cmd.CommandType = adCmdStoredProc Cmd.CommandText = "p1" Set Param = Cmd.CreateParameter("a", adInteger, adParamOutput) Cmd.Parameters.Append Param Cmd.Execute Dim ret As Integer ret = Cmd.Parameters("a").Value Conn.Close
(没钱的日.....):你用的office 是 office 2003 吗? 你所说的: 在ACCESS的模块编辑窗口中,在“工具”->“引用”添加“Microsoft ActiveX Data Object 2.8 Library”我这里就只有 “Microsoft ActiveX Data Object 2.7 Library” 这个也是一样的吗?
begin
a:=2;
end;
在ORACLE中有一个如上的过程;在ACCESS的模块编辑窗口中,在“工具”->“引用”添加“Microsoft ActiveX Data Object 2.8 Library”Dim Conn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim Param As ADODB.ParameterSet Conn = New ADODB.Connection
Set Cmd = New ADODB.CommandConn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=****;Persist Security Info=True;User ID=username;Data Source=servicename"
Conn.Open
Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "p1"
Set Param = Cmd.CreateParameter("a", adInteger, adParamOutput)
Cmd.Parameters.Append Param
Cmd.Execute
Dim ret As Integer
ret = Cmd.Parameters("a").Value
Conn.Close
你所说的:
在ACCESS的模块编辑窗口中,在“工具”->“引用”添加“Microsoft ActiveX Data Object 2.8 Library”我这里就只有 “Microsoft ActiveX Data Object 2.7 Library”
这个也是一样的吗?