Escribir datos en columna de un DBgrid, a traves de un Tedit
 

Hola a todos.

En el codigo de consulta que muestro a continuacion quiero escribir datos numericos en la columna que dice 1erParcial a traves de un TEdit. Esto lo tengo funcionando a traves de un DBEdit, no creo que sea correcto hacerlo asi.

Despues si hago otra consulta y la columna 1erParcial cambia por otra columna que se llama 2doParcial, que tambien se le pueda escribir datos.

Este es el codigo.

Código SQL [-]
sql.Clear;
sql.Text := 'select MATRICULA, NOMBRES, CLAVE, PARCIAL1 As 1erParcial from tabla1 where clave =' + quotedstr(combobox1.Text );
open;
edit;
form3.DBGrid1.Columns[3].ReadOnly :=false;
form3.DBGrid1.Columns[0].ReadOnly :=true;
form3.DBGrid1.Columns[1].ReadOnly :=true;
form3.DBGrid1.Columns[2].ReadOnly :=true;
dbedit1.DataField := ('1erParcial');

Saludos

Hola
No entiendo.
Saludos

Hola Caral.

Observa esto.

Cuando yo hago una consulta como la que esta mas arriba, sale un listado con 4 columnas, la ultima columna [3] es a la que se le van a colocar unos datos, (notas), eso yo lo puedo hacer escribiendo directamente en la columna. También yo lo tengo con un DBEdit, (funciona mas o menos),pero lo que yo quiero es que se pueda escribir el dato en la referida columna a traves de un TEdit.

La columna [3] es la que recibirá el dato y es siempre para todas las consultas, solo cambiara en el nombre de la columna.

Saludos.

Hola
No entiendo muy bien, pero si quieres que lo que escribas en el edit se guarde lo que haces es una relacion entre el edit y el query que te trae los datos, despues del edit y antes del post:

Código Delphi [-]
sql.Clear;
sql.Text := 'select MATRICULA, NOMBRES, CLAVE, PARCIAL1 As 1erParcial from tabla1 where clave =' + quotedstr(combobox1.Text );
open;
edit; // edito
Edit1.text:= query1.Filebyname('1erParcial').AsString; // Comparo
form3.DBGrid1.Columns[3].ReadOnly :=false;
form3.DBGrid1.Columns[0].ReadOnly :=true;
form3.DBGrid1.Columns[1].ReadOnly :=true;
form3.DBGrid1.Columns[2].ReadOnly :=true;
Post; // Guardo
// dbedit1.DataField := ('1erParcial'); // a esto no le veo razon de ser

Saludos

esto está algo enredado... pero quisiera saber porque crees que no es correcto escribir los datos directamente en el DBEdit.

Hola

Tu pregunta es buena, pués hace varias semanas que yo presenté un código para agregar datos en una tabla usando DBEdit, no recuerdo cual de los que me ayudan me sugirieron que usando TEdit era mejor para escribir datos en una tabla.

Lo de inseguro no lo sé, pero cada vez que tengo que escribir un dato en la columna correspondiente que es numérica, tengo que borrar el cero (0) que entra en el foco del DBEdit, pues ya la tabla tiene dicho cero (0).

Saludos.

Hola Caral.

Como me sugiere el código anterior, mas o menos así lo hice anterior a pedir la ayuda, lo único que estaba en un orden que no hacia nada.

Voy a probar este.

Gracias.

Hola Caral,

No se donde podra ser que esta el error, el codigo sigue dando el mismo error

Código Delphi [-]
Edit1.text:= query1.Filebyname('1erParcial').AsString; // Comparo

Y estos los mensajes que presenta como error.

[Error] Unit3.pas(158): Undeclared identifier: 'Filebyname'
[Error] Unit3.pas(158): Missing operator or semicolon
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit3.pas'

Saludos.

Esto no tiene ningún sentido. Asesórate con otras personas.

// Saludos

Gracias Roman

¿No será "FieldByName" en lugar de "FileByName"

Un saludo

Hola ElKurgan

Eso era lo que pasaba que estaba mal escrito el código.

Gracias.