Cómo conectar "simple" a DB Access

[Neftali [Germán.Estévez]]

Empezado por Casimiro Notevi

Si utilizo los componentes de la pestaña "ADO", ¿qué motor debo usar?, me gustaría que el cliente no tenga que instalar nada, si es posible.
Y otra duda, el usuario y password predeterminado en access, ¿cuál es?
Y de momento esas son todas las dudas.
Por si sirve de algo: Delphi 5 + IBX + Firebird 1.5 ---> ¿ADO? + ¿ODBC? + Access

Hola Casimiro.
La forma habitual para conectar a Access con ADO (utilizando el motor de Jet 4, que es el de Access) es la primera que has propuesto:
Microsoft Jet 4.0 OLE DB Provider
Lo único imprescindible es tener en el ordenador instaladas las MDAC y mínimamene actualizadas (cosa muy habitual si el sistema está actualizado); Si vas a trabajar con alguno muy antiguo (w98), tal vez podrías revisarlo. En este caso no hace falta ni siquiera que esté Access instalado.

Para Access, salvo que la Base de Datos tenga seguridad implementada, se usa Admin y contraseña vacía.

Delphi 5 + IBX + Firebird 1.5
Delphi 5 + ADO + Access

La cadena de conexión la puedes obtener utilizando el asistente que viene con el ADOConnection/ADOTable; De todas formas si quieres todos los detalles, incluyendo las que incluyen contraseña en la Base de Datos y las que tienen seguridad implementada, puedes verlas aquí.

[Casimiro Noteví]

Muchas gracias a todos, es que ando perdido en estas cosas de access, jet, mdb

Empezado por marcoszorrilla

Hola Casimiro: Generalmente lo que se hace es exportar en formato texto y luego cualquier programa de contabilidad importa, al inyectar los datos directamente siempre puedes tener el problema que si pasa algo al otro programa lo achaquen a que se han metido datos a las tablas por "fuerza bruta".marcoszorrilla

Sí, siempre lo hago de esa forma (fichero de texto), salvo cuando no queda otra solución, recuerdo una vez que un programa sólo importaba de un .dbf, y en este caso el programa lee de una BD "puente", no escribo en su base de datos "principal", no me gusta meterme en lios innecesarios

[Casimiro Noteví]

Bueno, ya he acabado un programita para pruebas y gracias a vuestra ayuda ha sido bastante sencillo, lo único raro es que me resulta extraño no tener transacciones, me recuerda la época del dbase, qué tiempos aquellos.

[marcoszorrilla]

Empezado por Casimiro Notevi

Bueno, ya he acabado un programita para pruebas y gracias a vuestra ayuda ha sido bastante sencillo, lo único raro es que me resulta extraño no tener transacciones, me recuerda la época del dbase, qué tiempos aquellos.

.Select Clientes
.Set Filter to Codigo = "4300001"
.Browse
.Quit

Un Saludo.

[Casimiro Noteví]

Empezado por marcoszorrilla

.Select Clientes
.Set Filter to Codigo = "4300001"
.Browse
.Quit

Un Saludo.

... con unos poquitos comandos sobraba para hacer una gestión

[[Caral]]

Hola
No se que tipo de transacciones?? o que serán.
Lo que si se es que si se quiere que se ejecute una acción con eficacia y sin que tenga problemas en access se usa algo como esto, sobre todo si se trabaja en red y con varios usuarios a la vez:

Código Delphi [-]
procedure TFOrdProd.BitBtn1Click(Sender: TObject);
var bok : TBookMarkStr;
begin
   OrdenCompra.Active := False;
   OrdenCompra.SQL.Text := 'Select OrdenCompra From OrdenProd WHERE OrdenCompra ='+QuotedStr(Edit7.Text);
   OrdenCompra.Active := True;
   If Edit7.Text = OrdenCompra.Fields[0].Value then
   MessageDlg('La orden de Compra ya Existe',mtError,[mbOK],0)
   else
   If Edit3.Text = '' then MessageDlg('Debe especificar el código del cliente',mtError,[mbOK],0)
 else

   begin
      ShortDateFormat := 'dd/mm/yyyy';
      DataModule1.AC1.BeginTrans;
      try
         If Nueva then
         QTemp.SQL.Text := 'Insert Into OrdenProd (Codorden, FechaInicio, FechaRequerido, CodUsuario, Comentarios, CodCliente, Prioridad, Enrutada, OrdenCompra) '+
                           'Values (' +Edit2.Text+', '+QuotedStr(Edit4.Text)+', '+QuotedStr(DateToStr(DateTimePicker1.DateTime))+', '+
                            QuotedStr(Edit5.Text)+', '+QuotedStr(Memo1.Text)+', '+Edit3.Text+', '+IntEdit1.Text+', True, '+QuotedStr(Edit7.Text)+')'
         else
         QTemp.SQL.Text := 'Update OrdenProd set FechaRequerido = '+QuotedStr(DateToStr(DateTimePicker1.DateTime))+', Comentarios = '
                            +QuotedStr(Memo1.Text)+', CodCliente = '+Edit3.Text+', Prioridad = '+IntEdit1.Text+
                            ' Where CodOrden = '+Edit2.Text;

         QTemp.ExecSQL;
         guardada := true;
         IF Nueva  then
         begin
            QOrdProd.Requery();
            QOrdProd.Last;
         end
         else begin
                bok := QOrdProd.Bookmark;
                QOrdProd.Requery();
                QOrdProd.Bookmark := bok;
              end;
         DataModule1.AC1.CommitTrans;
         If Nueva then If MessageDlg('Orden Guardada.'+#13+'¿Desea agregar items a la orden?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
         Nueva := False;
         QOrdProd.Close;
         QOrdProd.Open;
         TabSheet3.Show;
      except
         on E:Exception do DataModule1.AC1.RollbackTrans;
      end;//try
end;

Lo mas seguro es que me equivoco pero para mi lo colocado en rojo son transacciones, digo., me equivoco?
Saludos

[Casimiro Noteví]

entonces sí que tiene transacciones.

Por cierto, ¿qué componente es el que has nombrado AC1 (DataModule1.AC1.BeginTrans)?

Muchas gracias, Caral, ese código me viene muy bien para lo que necesito hacer.