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
