hola tengo el siguiente problema a ver si alguien me puede ayudar.
1. la base de datos que utilizo es sql server 200
2.- version de delphi 7
3.- tengo un data module con el nombre de
Dconexion y en el un objeto adoConection con el nombre
conexion hasta ahi ningun problema.
4.- tengo un form con 2 Tedit uno para pedir el nombre y otro para la contraseña de usuario y un boton con el nombre aceptar el cual al precionarlo ejecuta el siguiente codifo:
Código Delphi
[-]begin
dconexion.conexion.Close;
dconexion.conexion.ConnectionString:=
'Provider=MSDASQL.1;'+
'Persist Security Info=True;' +
'User ID=' + fr_menuu.txtusuario.Text + ';' +
'Password='+ fr_menuu.txtcontrasena.Text + ';' +
'Data Source=' + fr_menuu.txtBD.Text;(aqui va el nombre del odbc SAPA)
try
dconexion.conexion.Connected:=true;
MessageDlg('Se ha conectado correctamente a la BD: ' + chr(13) +
txtBD.Text,mtinformation, [mbok], 0);
fr_usuarioss.ShowModal;
exit;
except
raise;
end;
aqui valida el usuario y no hay ningun problema si los datos de usuario son correctos inicia la sesion y si no manda el error.
5.- en otro formulario tengo 2 Tedit para prueba uno pide el numero de contrato y otro el nombre, aparte tengo un Tstoreproc el cual en el nombre de base le pongo el OBDC con el nombre
SAPA y configuro los paramentros de entrada para dicho procedimiento, en el boton de aceptar para que ejecute el procedimiento esta este codigo:
Código Delphi
[-]
begin
try
frcontrato.sp_nvocontrato.Params[0].asstring:=frcontrato.txtcontrato.Text; frcontrato.sp_nvocontrato.Params[1].asstring:=frcontrato.txtnombre.Text;
frcontrato.sp_nvocontrato.ExecProc;
except
Application.messagebox('Contraseña','Información',mb_iconerror);
end;
end;
aqui esta el verdadero problema ya que cuando preciono el boton de aceptar me manda este mensaje de error: ERROR DE INICIO DE SESION DEL USUARIO(NULL) MOTIVO: NO ESTA ASOCIADO A UNA CONEXION DE SQL SERVER DE CONFIANZA.
LA PREGUNTA ES: como puedo usar la sesion que ya inicie en el data module al pasarle la conexion en todos los formularios de mi proyecto.
por su ayuda de antemano muchas gracias