FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas con tabla access FieldByNOMBRE
tengo do from que estan relacionado el primero tiene este codigo el cual me esta dando error el cual esta acesando a una base de dato qu esta en acces el nombre de la tabla es tSalidaequipos la cual esta en un datamodule o no se si es FieldByNOMBRE que esta funcion no funciona con access.
procedure TConexionDB.TSalidaequiposNewRecord(DataSet: TDataSet); begin TConexionDB.tSalidaequipos.FieldByNOMBRE('Fecha').AsDateTime := Now; end; procedure TConexionDB.DataModuleCreate(Sender: TObject); begin end; end. el otron del que de pende este es unit FConsuFechaEquip; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, Mask, Grids, DBGrids, ExtCtrls, Buttons; type TFConsuEquiFech = class(TForm) SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; Label2: TLabel; Label3: TLabel; Label5: TLabel; Bevel1: TBevel; Label1: TLabel; Label4: TLabel; Label6: TLabel; DBGrid1: TDBGrid; Desde: TMaskEdit; Hasta: TMaskEdit; DBMemo1: TDBMemo; DBComboBox1: TDBComboBox; DBComboBox2: TDBComboBox; procedure SpeedButton4Click(Sender: TObject); procedure DesdeExit(Sender: TObject); procedure HastaExit(Sender: TObject); procedure FormShow(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FConsuEquiFech: TFConsuEquiFech; implementation uses login; {$R *.dfm} procedure TFConsuEquiFech.SpeedButton4Click(Sender: TObject); begin Close (); end; procedure TFConsuEquiFech.DesdeExit(Sender: TObject); Var A,B: TDate; begin A:= Strtodate(Desde.text); B:= Strtodate(Hasta.text); if A > B then Begin Showmessage('La Fecha inicial no Puede ser Mayor que la Final'); desde.clear; Activecontrol:= desde; End; end; procedure TFConsuEquiFech.HastaExit(Sender: TObject); Var A,B: TDate; begin A:= Strtodate(Desde.text); B:= Strtodate(Hasta.text); if B < A then Begin Showmessage('La Fecha Final no Puede ser Menor que la Inicial'); Hasta.clear; Activecontrol:= Hasta; End; end; procedure TFConsuEquiFech.FormShow(Sender: TObject); begin desde.Clear; hasta.Text := datetostr(now); Desde.Text := datetostr(now); end; procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject); begin With login do begin QConsFechaobra.active :=false; QConsFechaobra.ParamByName('fecha1').AsDate:=StrToDate(desde.text); QConsFechaobra.ParamByName('fecha2').AsDate:=StrToDate(hasta.text); QConsFechaobra.active :=true; // QConsFechaobra.Dataset := QConsFechaobra; activecontrol := Desde; activecontrol := Hasta; end; end. |
#2
|
|||
|
|||
Pues es que FieldByNOMBRE no te va a funcionar ni en Access, ni en MySQL, ni en Firebird, ni en MSSQL, ni en Delphi mismo
En todo caso es FieldByName Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#3
|
||||
|
||||
Hola Egopolice , talvez es un campo persistente, y quiera acceder de esta forma TSalidaEquiposNombre.
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#4
|
||||
|
||||
Yensis22,
Por favor coloca tu código entre etiquetas [delphi]: [delphi] aquí el código [/delphi] para que se presente con la indentación y coloración adecuadas. // Saludos |
#5
|
|||
|
|||
tengo do from que estan relacionado el primero tiene este codigo el cual me esta dando error el cual esta acesando a una base de dato qu esta en acces el nombre de la tabla es tSalidaequipos la cual esta en un datamodule o no se si es FieldByNameque esta funcion no funciona con access. disculpeme
que fue que escris mar la funcion pero es co esa misma que me esta dando ese error en dinde esta en rojo (DELPHI 7) unit login; interface uses SysUtils, Classes, DB, DBTables, ADODB; type TConexionDB = class(TDataModule) Database1: TDatabase; Tusuario1: TTable; QCliente: TQuery; TNivelUsuario: TTable; TClientes: TTable; Tcuentaporcobrar: TTable; TDirecionusuario: TTable; DSusuario1: TDataSource; DSNivelUsuario: TDataSource; DSClientes: TDataSource; DScuentaporcobrar: TDataSource; DSDirecionusuario: TDataSource; DSEquipos: TDataSource; DSfactudetalle: TDataSource; DSfacturacob: TDataSource; DSfacturacion: TDataSource; TEquipos: TTable; Tfactudetalle: TTable; Tfacturacob: TTable; Tfacturacion: TTable; Tpago: TTable; DSpago: TDataSource; DSservisiosdias: TDataSource; DSPieza: TDataSource; TPieza: TTable; Tservisiosdias: TTable; Ttecnicos: TTable; DStecnicos: TDataSource; TCompania: TTable; DSTCompania: TDataSource; TEmpresas: TTable; DSEmpresas: TDataSource; QEquipos: TQuery; Query3: TQuery; Query4: TQuery; Query5: TQuery; Query6: TQuery; Query7: TQuery; Query8: TQuery; Query9: TQuery; Query10: TQuery; Query11: TQuery; Query12: TQuery; Query13: TQuery; DSQCliente: TDataSource; DSQequipos: TDataSource; DataSource3: TDataSource; DataSource4: TDataSource; DataSource5: TDataSource; DataSource6: TDataSource; DataSource7: TDataSource; DataSource8: TDataSource; DataSource9: TDataSource; DataSource10: TDataSource; DataSource11: TDataSource; DataSource12: TDataSource; DataSource13: TDataSource; DataSource14: TDataSource; TSalidaequipos: TTable; DSTSalidaequipos: TDataSource; TSalidaequiposCod_Equipos: TAutoIncField; TSalidaequiposCod_Equip_Entrada: TIntegerField; TSalidaequiposNombre_Cliente: TStringField; TSalidaequiposEquipos: TStringField; TSalidaequiposFecha: TDateTimeField; TSalidaequiposMarca: TStringField; TSalidaequiposMoto_Repacion: TFloatField; TSalidaequiposStactu: TStringField; TSalidaequiposNota: TStringField; TSalidaequiposFulequipo: TStringField; procedure TSalidaequiposNewRecord(DataSet: TDataSet); procedure DataModuleCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var ConexionDB: TConexionDB; implementation {$R *.dfm} procedure TConexionDB.TSalidaequiposNewRecord(DataSet: TDataSet); begin TConexionDB.tSalidaequipos.FieldByName('Fecha').AsDateTime := Now; end; (DELPHI 7) Y el otron del que de pende este es (DELPHI 7) unit FConsuFechaEquip; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, Mask, Grids, DBGrids, ExtCtrls, Buttons; type TFConsuEquiFech = class(TForm) SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; Label2: TLabel; Label3: TLabel; Label5: TLabel; Bevel1: TBevel; Label1: TLabel; Label4: TLabel; Label6: TLabel; DBGrid1: TDBGrid; Desde: TMaskEdit; Hasta: TMaskEdit; DBMemo1: TDBMemo; DBComboBox1: TDBComboBox; DBComboBox2: TDBComboBox; procedure SpeedButton4Click(Sender: TObject); procedure DesdeExit(Sender: TObject); procedure HastaExit(Sender: TObject); procedure FormShow(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FConsuEquiFech: TFConsuEquiFech; implementation uses login; {$R *.dfm} procedure TFConsuEquiFech.SpeedButton4Click(Sender: TObject); begin Close (); end; procedure TFConsuEquiFech.DesdeExit(Sender: TObject); Var A,B: TDate; begin A:= Strtodate(Desde.text); B:= Strtodate(Hasta.text); if A > B then Begin Showmessage('La Fecha inicial no Puede ser Mayor que la Final'); desde.clear; Activecontrol:= desde; End; end; procedure TFConsuEquiFech.HastaExit(Sender: TObject); Var A,B: TDate; begin A:= Strtodate(Desde.text); B:= Strtodate(Hasta.text); if B < A then Begin Showmessage('La Fecha Final no Puede ser Menor que la Inicial'); Hasta.clear; Activecontrol:= Hasta; End; end; procedure TFConsuEquiFech.FormShow(Sender: TObject); begin desde.Clear; hasta.Text := datetostr(now); Desde.Text := datetostr(now); end; procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject); begin With login do begin QConsFechaobra.active :=false; QConsFechaobra.ParamByName('fecha1').AsDate:=StrToDate(desde.text); QConsFechaobra.ParamByName('fecha2').AsDate:=StrToDate(hasta.text); QConsFechaobra.active :=true; // QConsFechaobra.Dataset := QConsFechaobra; activecontrol := Desde; activecontrol := Hasta; end; end. |
#6
|
|||
|
|||
Hola
Sería bueno que nos comentaras que error se te muestra, pero casi estoy seguro que el error es que no tienes tu tabla como insert o edit. Salud OS PD: Fijate como se ve el código cuando usas las etiquetas que roman te ha comentado.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#7
|
|||
|
|||
esete es error que manda debajos
Este es el codigo y abajo los erroer que manda
var ConexionDB: TConexionDB; implementation {$R *.dfm} procedure TConexionDB.TSalidaequiposNewRecord(DataSet: TDataSet); begin TConexionDB.tSalidaequipos.FieldByName('Fecha').AsDateTime := Now; end; end. [Error] login.pas(99): Method identifier expected [Error] login.pas(99): Missing operator or semicolon [Error] login.pas(99): Missing operator or semicolon [Fatal Error] Facturacion.dpr(21): Could not compile used unit 'login.pas' |
#8
|
|||
|
|||
Hola...
Estás usando un método normal de la clase como un método de clase... es por eso que tienes esos errores... Tu código debería ser:
Ahora, a una variable que va a referenciar un objeto de X tipo no debes ponerle nombre que inicie con T, ya que esto te puede llevar a muchas equivocaciones cuando revises tu código... Saludos... |
#9
|
|||
|
|||
gracia
ya me funcion bien gracias
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Renombrar tabla Access | sammersan | Conexión con bases de datos | 0 | 27-12-2006 13:27:42 |
Tamaño de una tabla access | olbeup | Conexión con bases de datos | 3 | 10-09-2005 06:54:21 |
Problemas al conectar una tabla ADO a una base de datos de Access que posee contraseñ | Roger_Fernandez | Conexión con bases de datos | 5 | 28-02-2005 16:46:29 |
Crear tabla Access a partir de tabla FoxPro | Tecnic2 | Conexión con bases de datos | 6 | 01-09-2004 13:37:43 |
Copiar tabla Access | Tangela | Conexión con bases de datos | 4 | 18-03-2004 14:13:10 |
|