paradox con TTable

[fcran]

amigos:

tengo un pequeño incombeniente, deseo saber; como puedo insertar, editar, y borrar un registro en una base de datos paradox, con el objeto TTable, se que lo puedo hacer por medio de la barra de navehacion, pero estoy interezado en hacerlo por medio de codigo.

ejemplo:

Table1.Active:=true;
Table1.Append;
Table1.FieldByName('Ndoc').AsInteger:=strtoint(edit1.Text);

etc...

ese es un ejemplo de como pueden ayudarme, megustaria saber como hago para asignarle a un edit normal, no un dbedit, un dato que este en la base de datos...


gracias por su colaboracion,

[marcoszorrilla]

Table1.Active:=true;
Table1.Append;
Table1.FieldByName('Ndoc').AsInteger:=strtoint(edit1.Text);
Table1.Post;

{Evento AfterPost del Ttable}
Table1.FlushBuffers;


Para capturar un dato y pasarlo a un Tedit.

MiEdit.Text:=Table1NombreCampo.Value;
MiEdit.Text:=IntToStr(Table1NombreCampo.Value);
MiEdit.Text:=DateToStr(Table1NombreCampo.Value);
MiEdit.Text:=FloatTostr(Table1NombreCampo.Value);



Un Saludo.

[José Luis Garcí]

Inesrtar Table1.Insert;
Agregar Table1.aPPend;
Editar Table1.edit;
Cancelar Table1.Cancel; (No guarda los cambios);
Guardar Table1.Post;
Asegurar Table1.Flusbuffer; (despues del pos asegura que se guarde el registro)
Primero table1.First; (Primer registro)
anterior table1.Prior;
siguiente table1.next;
último table1.last;
nº registro Table1.recno;
cantidad de registros table1.recordcount;

Espero que te valga, hay más para busqueda y de mas, pero leete la ayuda de delphi, tambien hay varias maneras de tratar con los datos, y diversas maneras de vallorar los mismos.

Un saludo desde Canarias

[fcran]

aun tengo problemas para pasar un dato de la base de datos a un edit:



Miedit.text:=table1nombrecampo.value;

sale un error, podia especificarme como hacerlo;
ademas como puedo borrar un registro de la tabla, y editar un campo de un registro...


gracias

[José Luis Garcí]

Depende del valor del campo te lo explico con un string y un integer y si no es pues lo asignas al valor que es o el tipo de asignación.

con la tabla detallada es

miedit.text:=Table1Nombre.AsString;
miedit2.text:=IntToStr(Table1Codigo.AsInteger); //Tambien lo puedes hacer directamente pero yo prefiero cada cosa por su valor.

sin la tabla detallada

miedit.text:=table1.FieldByName('Nombre').AsString;
miedit2.text:=IntToStr(Table1.FieldByName('Codigo').asInteger);

Espero te lo aclare, un saludo desde Canarias