Conexión con SQL Server

Probablemente este fallando la creación de la conexión
m_pRS.CreateInstance( __uuidof(Recordset));

Esto hace que m_pRS sea nulo. El motivo puede ser por ejemplo que no tengas
las librerias de ADO en la maquina de destino. Deberias instalar el MDAC en
todas la maquinas que corras la aplicación.

De todos modos yo modificaria el codigo de este modo, con el fin de obtener
una excepción cuando no se pueda crear el objeto.

try
{
_RecordsetPtr m_pRS(__uuidof(Recordset));

CString cad;
cad = _T("Driver{SQLServer};Server=MiServidor;Database=MiBase;Uid=MiUsuario
;Pwd=MiPassword;");
m_pRS->Open((LPCSTR)SP, (LPCSTR)cad,
adOpenKeyset,adLockOptimistic, adCmdStoredProc);
return true;
}
catch (_com_error &e)
{
AfxMessageBox(GetErrorDescription(e));
return false;
}

Un saludo.

Rodrigo Corral González [MVP]

microsoft.public.es.vc FAQ
http://vcfaq.europe.webmatrixhosting.net

Rodrigo, gracias por la respuesta, pero la verdad
desconozco que es el MDAC, me podrías comentar algo sobre
esto, se puede bajar de algún lado o esta aplicación ya
existe en las máquinas con las librerias actualizadas ?



Mostrar la cita

Probablemente este fallando la creación de la conexión
m_pRS.CreateInstance( __uuidof(Recordset));

Esto hace que m_pRS sea nulo. El motivo puede ser por

ejemplo que no tengas
Mostrar la cita

las librerias de ADO en la maquina de destino. Deberias

instalar el MDAC en
Mostrar la cita

todas la maquinas que corras la aplicación.

De todos modos yo modificaria el codigo de este modo, con

el fin de obtener
Mostrar la cita

una excepción cuando no se pueda crear el objeto.

try
{
_RecordsetPtr m_pRS(__uuidof(Recordset));

CString cad;
cad = _T("Driver>

{SQLServer};Server=MiServidor;Database=MiBase;Uid=MiUsuario
Mostrar la cita

;Pwd=MiPassword;");
m_pRS->Open((LPCSTR)SP, (LPCSTR)cad,
adOpenKeyset,adLockOptimistic, adCmdStoredProc);
return true;
}
catch (_com_error &e)
{
AfxMessageBox(GetErrorDescription(e));
return false;
}

Un saludo.

Rodrigo Corral González [MVP]

microsoft.public.es.vc FAQ
http://vcfaq.europe.webmatrixhosting.net


.