17 replies to this topic

[delphi1]

Buenas tardes.
Veo que este foro es nuevo y me gustaria saber si alguien me puede decir como conecto access a delphi.
Se necesita algun componente.
Gracias por su tiempo.

[Caral]

Hola

Buenas tardes.
Veo que este foro es nuevo y me gustaria saber si alguien me puede decir como conecto access a delphi.
Se necesita algun componente.
Gracias por su tiempo.

Bienvenido a Delphiaccess.
Para conectar access con delphi hay varias maneras, la mas conveniente es usando los componentes ADO.
AdoConnection hace la conexion y AdoTable o Adoquery enlazan las tablas.
Saludos

[eduarcol]

estaba respondiendo y cuando fui a publicar me advirtieron que carlos habia escrito, que bueno este foro

[delphi1]

Otra pregunta.
Quiero ver el contenido en un grid, que se necesita para hacer eso.
Disculpen pero soy nuevo en esto.
Gracias por sus respuestas.

[eduarcol]

debes colocar un datasource, eso lo encuentras en la paleta data acces.  este lo vinculas al query que carga tu tabla, y el dbgrid lo vinculas al datasource y listo

[delphi1]

Gracias por contestar, me sirvió mucho.

[mmair]

Hola amigos

estoy empezando con Delphi y Access, estuve leyendo para ver como hacer la conexion. Baje el tutorial de Caral, de restaurantes y filtros. Bueno, yo cree mi base de datos, y tomando como ejemplo lo que tiene Caral, hice un datamodule con una conexion ADO , luego en el formulario de logueo pongo un ado query y en el SQL
del query pongo

sql

SELECT idUsuario, usuario, clave  FROM usuarios WHERE
usuario = usu

en parametros defino el parametro usu

y cuando quiero probar, me da el siguiente error:

"project.. raised exception class EOleException with message "No se han especificado valores para algunos de los parametros requeridos". Process stopped

Se detiene en la siguiente linea: EUsuario.Text:= ADConsulta.Fields[1].AsString;

del siguiente procedimiento:

delphi

procedure TfrmLogin.btnAceptarClick(Sender: TObject);
begin
   LoginOK := False;
   ADConsulta.Parameters.ParamByName('usu').Value:= EUsuario.Text;
   ADConsulta.Active:= True;
   EUsuario.Text:= ADConsulta.Fields[1].AsString;
   If ADConsulta.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       EUsuario.Text := '';
       EClave.Text := '';
       ADConsulta.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If ADConsultaClave.AsString = EClave.Text then
        Begin
           LoginOk := True;
           usuNombre := ADConsultaNombre.AsString;
           usuApellido :=  ADConsultaApellido.AsString;
           ADConsulta.Active := False;
           frmMenuPrincipal:=TFrmMenuPrincipal.Create(self);
           try
           frmLogin.Visible:= False;
           frmMenuPrincipal.lblUsuario.Caption:= usuNombre+' '+usuApellido;
           frmMenuPrincipal.ShowModal;
           finally
           frmMenuPrincipal.Free;
           end;
           Close;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           EClave.Text := '';
           ADConsulta.Active := False;
           If Cuenta = 3 then Close;
         end;
end;

Alguien puede orientarme para saber donde esta el error?

Desde ya muchas gracias

[egostar]

El problema está aquí

sql

SELECT idUsuario, usuario, clave FROM usuarios 
WHERE usuario = :usu

Le faltan los dos puntos para que se considere como parámetro.

Salud OS

[mmair]

Gracias por tu respuesta Egostar

en la muestra que estoy mirando y que si funciona, no estaban los dos puntos, aun asi, los he puesto pero me sigue dando el error.

[egostar]

Veamos

Intenta con esto

delphi

  ADConsulta.Parameters.ParamByName('usu').AsString := QuotedStr(EUsuario.Text);

Salud OS

[mmair]

Hola Egostar

he probado lo ultimo que me dijiste, y sigue dando el error.

Una consulta, este error es porque supuestamente no ha podido ejecutar la consulta? es error en la forma en que se ha escrito el parametro, tipo de datos? mas o menos cuando aparece este error?

Yo uso delphi, pero siempre hice a conexion usando ZEOS y MySQl y quiero pasarme a Access, tenia la impresion que iba a ser mas rapido en algunas cosas para sistemas que no son de mucha envergadura. Pero este error nunca lo habia visto

[luk2009]

Si ya conoce Zeos, porque no usas firebird te seria mas facil y con el perdon de Caral, es mejor base de datos que access.

[mmair]

En realidad con mysql no tuve problemas hasta que quise hacer una distribución masiva. El primer problema que se me presenta es la instalación del motor de la base de datos. Primero no es legal distribuirlo comercialmente (access tampoco pero bue) y segundo la instalación del motor puede llegar a dar problemas y necesitaria alguien idoneo siempre que pueda instalarlo.
Con firebird me va a psar lo mismo tengo entendido. Por eso habia pensado en Access, en realidd no es algo muy grande lo que pienso distribuir.
A lo mejor estoy yendo por el camino equivocado, el sistema ya lo tengo hecho, pero tengo que mandarlo a otro lugar y no hay quien me instale el motor. Necesitaba una forma sencilla de distribuirlo

[eduarcol]

Si estas comenzando te recomiendo firebird y zeos aqui te podemos ayudar a aprender la instalacion no es dificil. Si quieres seguir con acces bisca el programa de facturacion de caral que esta mas completa la conexion

[Rolphy Reyes]

Con firebird me va a psar lo mismo tengo entendido. Por eso habia pensado en Access, en realidd no es algo muy grande lo que pienso distribuir.

NO entiendo a que te refieres con esta parte.  Para instalar Firebird es bien sencillo, un usuario promedio puede realizar esta tarea, el instalador es un simple "Next" o "Siguiente".

Dependiendo de la versión que poseas de Delphi puedes utilizar los componentes de la paleta Interbase Admin IbInstall y IbUninstall que pueden instalar Firebird/Interbase de manera silenciosa.

P.D. Es bueno abrir un hilo nuevo para darle mejor seguimiento y en caso de necesitar alguna referencia pues indicar el hilo referente sería lo mejor a "resucitar un hilo".

[Caral]

Hola
Volviendo al error:
Vamos a ver si me explico:
Cuando colocas en el string del query (el que esta en el form del login) esto:

sql

SELECT idUsuario, usuario, clave  FROM usuarios WHERE
usuario = usu

Le esta diciendo que BUSQUE el parametro en la Propiedad PARAMETERS del mismo query.
Si presionas el boton de parameters (un poco mas arriba del de string) te saldra una ventanita con el nombre del parametro que pusiste, en tu caso usu.
Posicionate en ese nombre y veras las propiedades, lo que necesitas modificar es:
Attributes (paNullable)
DataType (ftFixedChar)
....
....
Value (Null).

Otra forma de solucionar esto es escribiendo el codigo sql directamente:

delphi

procedure TfrmLogin.btnAceptarClick(Sender: TObject);
begin
   LoginOK := False;
   ADConsulta.Sql.Text:= 'SELECT idUsuario, usuario, clave  FROM usuarios WHERE usuario = :usu';
   ADConsulta.Open;
   ADConsulta.Parameters.ParamByName('usu').Value:= EUsuario.Text;
   ADConsulta.Active:= True;
   EUsuario.Text:= ADConsulta.Fields[1].AsString;
   If ADConsulta.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       EUsuario.Text := '';
       EClave.Text := '';
       ADConsulta.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If ADConsultaClave.AsString = EClave.Text then
        Begin
           LoginOk := True;
           usuNombre := ADConsultaNombre.AsString;
           usuApellido :=  ADConsultaApellido.AsString;
           ADConsulta.Active := False;
           frmMenuPrincipal:=TFrmMenuPrincipal.Create(self);
           try
           frmLogin.Visible:= False;
           frmMenuPrincipal.lblUsuario.Caption:= usuNombre+' '+usuApellido;
           frmMenuPrincipal.ShowModal;
           finally
           frmMenuPrincipal.Free;
           end;
           Close;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           EClave.Text := '';
           ADConsulta.Active := False;
           If Cuenta = 3 then Close;
         end;
end;

Como veras hay una diferencia, el parametro necesita dos puntos antes del nombre, por lo demas es lo mismo.
Espero te sirva y si tienes alguna duda estamos para ayudar.
Saludos

[mmair]

Hola Caral, como estas? muchas gracias por tu respuesta. Al final si pude hacer la conexion, tomando como ejemplo tu programa de facturación, me salio todo de una. No te habia contestado antes porque pense que este hilo estaba cerrado. Y si, tengo mas consultas pero ya no sobre la conexion, sobre otras cosas, me imagino que tendre que abrir hilos nuevos? Saludos! y gracias!

[luk2009]

Pues adelante crea todos los hilos que quieras, que aqui estamos para ayudarte. Me alegro de que hayas logrado resolver tu primer problema. Por otro lado te recomiendo que leas  sobre Firebird y la descargues, te aseguro que no te arrepentiras.