ODBC ExecProcedure similar command for ADO

HCL Domino Domino Forum
1

Hi

Somebody knows what´s similar command for ADO as ODBC ExcecProcedure Recordset method?. I need work with ADO, and I need retrieve data from a table, but I don´t wanna to use ODBC. Any idea please??

This my code

Set con = CreateObject(“ADODB.Connection”)

Set recset = CreateObject(“ADODB.Recordset”)

Set cmdsql = CreateObject(“ADODB.Command”)

Set vwprof = db.getview(“Profile”)

Set docconf = vwprof.getfirstdocument

If Not(docconf Is Nothing) Then

servsql = docconf.servSQL_1(0)

ussql = docconf.usSQL_1(0)

pwSQL = docconf.pwSQL_1(0)

con.ConnectionString="Provider=SQLOLEDB;Server="+servsql+";database=ADAM;UID="+ussql+";PWD="+pwsql+""	

con.Open

consultaSP = "amx_informacion_trabajadores_AMTENE"

	

Set Cmdsql.ActiveConnection = Con

Set Cmdsql.CommandType = adCmdStoredProc

Cmdsql.CommandText = "AMX_INFORMACION_TRABAJADORES_AMTENE"		

	

recset.open cmdsql, , adopendynamic,adlockoptimistic,adcmdstoredproc

If (Not recset.EOF) Then

	recset.movefirst

	NoEmpleado = Trim(recset.FIELDS("trabajador").Value)

End If

End If

Thanks in advance.

Regards.