conexion insertar,borrar, actualizar tablas .bdf

[[BlueSteel]]

Hola

Mira, con el Delphi 7, realizaba lo sgte;

- Crear el Alias (ruta donde estan ubicadas las tablas .dbf) en el DBE
- Conectar las tablas mediante los TTable o TQuery de la pestaña DBE
- Siempre utilice TQuery (para actualizar habia que cambiar la propiedad RequiesList a True... no me acuerdno muy bien como se escribia


Como todo lo usaba con TTable y TQuery.. los proceso para agregar, eliminar, actualizar eran los sgtes:

Eliminar

Código Delphi [-]
     With Tablas Do
          With TSoc Do
          Begin
               If MessageDlg('Seguro de Borrar al Socio '+#13+#13+FieldByName('Nombre').AsString,mtConfirmation, [mbYes,mbNo], 0)=MrYes Then
                  Delete;
          End;

Agregar

Código Delphi [-]
     With Tablas Do
          With QSimples Do
          Begin
               If RecordCount = 1 Then
                  ShowMessage('Registro ya Existe !   No fue agregado!!!')
               else
                  Begin
                      Insert;
                      FieldByName('Ficha').AsString     := Fic.Text;
                      FieldByName('Nombre').AsString    := Nom.Text;
                      FieldByName('Simple').AsString    := Simple.Text;
                      FieldByName('Olimpico').AsString  := Olimpico.Text;
                      FieldByName('Sorteo').AsString    := Sorte;
                      FieldByName('Temporada').AsString := Tempo;
                      Post;
                  End
          End;

Bueno, en el ejemplo anterior, antes de insertar verificaba con el sgte codigo

Código Delphi [-]
     Fic.Text := Verificar.SFicha.Text;
     Nom.Text := Verificar.Nombre.Text;
     Tempo := Verificar.Temporada.Text;
     Sorte := Verificar.Sorteo.Text;
     Simple.SetFocus;
     With Tablas Do
          With QSimples Do
          Begin
               Sql.Clear;
               Sql.Add('Select * From Simples Where (Ficha=:Var1) And (Sorteo=:Var2) And (Temporada=:Var3)');
               Params[0].AsString  := Fic.Text;
               Params[1].AsString  := Sorte;
               Params[2].AsString  := Tempo;
               ExecSql;
               Active:=True;
          End

Bueno, recordando no tengo ningun proceso de actualización...

Las tablas eran creadas con el DBE, tipo DBase III o Paradox

Salu2