Delphi + Access + con codigo

[marcoszorrilla]

Código Delphi [-]
 IDC_NombreCliente := ADOQuery.FielDesfList[0].AsString;
IDC_NombreCliente := ADOQuery.FielDesfList[0].AsInteger;
IDC_NombreCliente := ADOQuery.FielDesfList[0].AsBoolean;
//etc...

Como el tema del hilo desaparecido ya te lo ha explicado Neftalí, no hago mención al mismo.

Un Saludo.

[manuelgomez]

Hola Marcos:


Con tu instrucción: Código Delphi [-] IDC_NombreDeEmpresa.Text := ADOQuery1.FieldDefList[0].AsStrings;



para mostrar los campos en controles de tipo edit al compilar tengo el siguiente error: Código Delphi [-][Error] Unit1A1.pas(242): Undeclared identifier: 'AsStrings'

Como puedo saber la instrucción correcta.

Un Saludo.

[marcoszorrilla]

Código Delphi [-]
IDC_NombreDeEmpresa.Text := ADOQuery1.FieldDefList[0].AsString;

Como ves sobra la s final.

Un Saludo.

[manuelgomez]

Hola Marcos:

Como puedes llevar mas de cinco mil mensajes.

El error me seguia Saliendo. A los errores que sales al compilar hay que hacerle caso. Me dice que la variable no esta definida, hay que hacerle caso.

La instrucción por la cual me muestra el campo que un edit es la siguiente:

Código Delphi [-]
IDC_NombreDeEmpresa.txt := ADOQuery1.Fields[Número_Campo].AsTring;

Moraleja hay que cambiar el FielDesfList por Fields.

Un Saludo

[manuelgomez]

Hola Muy buenas a todos.

He estado mirandome todos los hilos y no he encontrado nada parecido al problema que tengo.

Una vez que he descubierto como volcar los campos del registro a los Edit, ahora estoy por grabar el registro que has seleccionado en el DBGrid.

Un Saludo

[marcoszorrilla]

Si utilizas DbEdit en vez de Edit, los cambios se grabarán directamente en la tabla, sino tendrás que hacer algo así:

Código Delphi [-]
ADOQuery1.Fields[Número_Campo].AsTring:=Edit1.Text;

Un Saludo.

[manuelgomez]

Hola de nuevo.

Marcos, pero primero tendrás que decirle que estas editar, a continuación vuelcas el edit, como dices tu al campo de registro y déspues hacer el update.

Por lo menos en vb con ado, yo lo hago así.

Código vb:

RecorSet_Clientes.Edit
RecorSet_Clientes(NombreCliente) = NombreCliente.txt
RecorSet_Clientes.Update

Con esta instrucción grabo el registro.

Un Saludo.