• Martes 7 de Diciembre de 2021, 01:14

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - mustang

Páginas: 1 ... 4 5 [6]
126
Delphi / Re: Probelmas Con El Objeto Sql
« en: Viernes 12 de Noviembre de 2004, 15:46 »
hijoles una ultima molestia!

mi codigo ha kedado de la siguiente manera:

Código: Text
  1.  
  2. try
  3.    Query1.close;
  4.    Query1.SQL.Text:='select encuesta.Folio, evaluado.Area from encuesta, evaluado where evaluado.Area ='+QuotedStr(Edit1.Text)+'AND encuesta.Folio=evaluado.Folio order by Folio';
  5.    Query1.open;
  6.    co:=IntToStr(Query1.RecordCount);
  7.    Showmessage('Se encontraron' + ' ' +  co + ' ' + 'registros');
  8.    DBGrid1.Columns.SaveToFile('c:\tablapaso');//**********AKI!!!!*****///
  9.   except
  10.    Showmessage('Ni maiz');
  11.   end;
  12.  
  13.  

ahora lo k hago es guardar el resultado del query k me kedo en el dbgrid1 al archivo "tablapaso" pero no logro encontrar el formato en el ke me lo deja, crei ke podria ser una tabla y lo intente abrir con el database desktop y con excel y nada, saben en k formato me deja el archivo????

127
Delphi / Re: Probelmas Con El Objeto Sql
« en: Jueves 11 de Noviembre de 2004, 18:50 »
Cita de: "makio"
Type mismatch expression, Mira este error sale cuando el query no tiene un valor para hacer la consulta por ejemplo:

Select * from encuesnta where folio='hgf
o
Select * from encuesnta where folio=

En si lo que significa la excepción es que un valor se perdio en la expresición, puede ser que el parametro no lo mandes bien, puedes hacer esto si usar parametros:

Query1.Close;
Query1.SQL.Text:='select * from encuesta where Folio ='+Edit1.Text;
Query1.Active:=true;


yo creo que con esto funcionara perfectamente pruebalo y si no sirve me avisas.

 :comp:
oigan muchisias gracias a los dos makio y ayla, sus dos maneras funcionan bien!!! les agradezco el tiempo ke les tomo escribir,
hasta pronto!!
y gracias de nuevo

128
Delphi / Re: Probelmas Con El Objeto Sql
« en: Miércoles 10 de Noviembre de 2004, 16:55 »
Cita de: "Ayla"
Hola mustang! :hola:

 Esa excepción salta porque no puede conectar a la Base de Datos, asegurate que tienes bien enlazado el query, en su propiedad DatabaseName introduce el Alias de la base de datos. Revisa que las rutas esten bien especificadas ;)  .

 Chao!
Hola!

oye pues fijate que ya revise lo ke me comentabas y todo está en su lugar, el databasename esta bien ligado con mi base de datos, y tengo los demas elementos bien tambien, como el data source y el dbgrid, no tendras por ahi ahi otra opcion?? :D

de ante mano gracias!!

129
Delphi / Probelmas Con El Objeto Sql
« en: Martes 9 de Noviembre de 2004, 17:57 »
k tal, ahora les pido ayuda por lo siguiente:
 tengo un objeto SQL en una forma donde tengo tambien un DBGrid, un Edit y un botón ke se supone k al precionarlo me debe dejar en el DBGrid solo los datos k contengan en el campo 'Folio' de mi tabla lo ke contenga el Edit, mi codigo está de la siguiente manera en el botón:

Código: Text
  1.  
  2. procedure TForm4.Button4Click(Sender: TObject);
  3. begin
  4.   try
  5.    Query1.close;
  6.    Query1.parambyname('param').asString:=Edit1.text;
  7.    Query1.open;
  8.   except
  9.    Showmessage('Ni maiz');
  10.   end;
  11.  
  12. end;
  13.  
  14.  

y el siguiente en la propiedad SQL->Tstrings

Código: Text
  1.  
  2. select * from encuesta
  3.    where Folio =  :param
  4.  
  5.  


la tabla no la tengo en un DataModule, sino en la forma1, y el error ke me da es el siguiente:

"EDBEngineError Type mismatch expression"

gracias!!  :comp:

130
Delphi / Re: Exportar A Txt
« en: Martes 26 de Octubre de 2004, 16:36 »
Cita de: "Amilius"
El problema es que llamas directamente al eof, sin indicar un objeto:

"The Eof function tests whether or not the current file position is the end-of-file. F is a text file variable. If F is omitted, the standard file variable Input is assumed. "

De esta forma no verificas el EOF del dataset del datasource de la tabla sino de la variable de archivo estándar que nada tiene que ver en este caso.

Tendrías que acceder de esta forma:  table.dataSource.dataSet.EOF

Saludos y feliz noche de brujas. :devil:

P.D.

El tag [c o d e]  va sin espacios intermedios.  ;)
orale gracias, mi problema se resolvio, gracias tambien por el tiempo, y ten tambien buena noche de brujas!

131
Delphi / Re: Exportar A Txt
« en: Lunes 25 de Octubre de 2004, 16:43 »
Cita de: "Amilius"
Para el foro el codigo ponlo entre "[ C O D E ][/ C O D E ]" usando el boton del mismo nombre al lado de quote y list, para que sea legible y no se vea un asco.

1.- ¿Cual es el numero y mensaje de error?,
Delphi tiene el "try except", usalo y en except muestra en pantalla el error eso lo obtienes con la propiedad ErrorCode del EInOutError. Sabiendo EXACTAMENTE cual es el error tal vez de des cuenta inmediatamente que hay que modificar.

2.- Value es un "variant", asi que mejor te aseguras que puedas accederlo directamente asi o tal vez usar mejor un ".asFloat" o como veas conveniente. Fijate en la ayuda para más detalles.

Ejemplo:

Código: Text
  1.  
  2. Memo1.Lines.Add(Form1.Table1.FieldByName('Prom1').asString);//como cadena
  3.  
  4. Memo1.Lines.Add(Form1.Table1.FieldByName('Prom1').Value);//directo es variant
  5.  
  6. Form1.Table1.FieldByName('Prom1').asFloat;//si lo necesitas como flotante
  7.  
  8.  

3.- sacale las comillas a la variable de tipo cadena prom...

Código: Text
  1.  
  2. Memo1.Lines.Add('prom');
  3.  
  4.  

¿O quieres en el memo esto?

prom
prom
prom
prom
...
El error ke me manda es "EInOutError I/O error 6", me lo pone en la linea ke pongo a continuacion:


[ C O D E ]
procedure TForm4.Button1Click(Sender: TObject);
var prom:String;
begin
form1.Tabla1.first;
 while not Eof do  //***AKI ES DONDE ME MARCA EL ERROR****
  begin
   prom:=FloatToStr(Form1.Tabla1.FieldByName('Prom1').Value);
   Memo1.Lines.Add('prom');
   Memo1.Lines.Add(Form1.tbencuesta.FieldByName('Prom1').Value.AsString);
   form1.tbencuesta.next;
  end;

end;
[/ C O D E ]

132
Delphi / Re: Exportar A Txt
« en: Viernes 22 de Octubre de 2004, 17:10 »
Cita de: "Amilius"
Primero busca si la biblioteca de clases que utilizas tiene algún método para exportar la base de datos a texto, sino...

Supongo que no tienes problemas para acceder a los datos de la tabla, por tupla y luego por cada campo.

Usa las funciones de archivos de texto que son las mismas de pascal con los nombres algo más específicos para guardar un archivo .txt

No es cosa del otro mundo y es rápido y simple... podrías preparar cada linea de texto a guardar a partir de los campos de un tupla. Recorriendo la tabla de principio a fin.

Usar archivos de texto u cadenas en delphi es extremadamente simple. Y mejor si te consigues una biblioteca de funciones extra para cadenas para hacer todo tipo de operaciones con las cadenas como en PHP.

Código: Text
  1.  
  2. var
  3.  
  4.   F: TextFile;
  5.   S: string;
  6. begin
  7.   if OpenDialog1.Execute then          { Display Open dialog box }
  8.   begin
  9.     AssignFile(F, OpenDialog1.FileName);   { File selected in dialog box }
  10.     Reset(F);
  11.     Readln(F, S);                          { Read the first line out of the file }
  12.     Edit1.Text := S;                       { Put string in a TEdit control }
  13.     Writen(F, Edit2.Text);                          { Read the first line out of the file }
  14.     CloseFile(F);
  15.   end;
  16. end;
  17.  
lo ke pasa es ke tengo como esto pero me da un error EInOutError y no logro componerlo, si me pudieran ayudar con esto estaria muy bien, gracias

procedure TForm4.Button1Click(Sender: TObject);
var prom:String;
begin
form1.Table1.first;
 while not Eof do
  begin
   prom:=FloatToStr(Form1.Table1.FieldByName('Prom1').Value);
   Memo1.Lines.Add('prom');
   form1.Table1.next;
  end;
end;

133
Delphi / Exportar A Txt
« en: Jueves 21 de Octubre de 2004, 01:10 »
ke tal keria ver si alguien puede ayudarme a encontrar la manera de exportar datos ke almaceno en un par de tablas:
tengo un par de tablas unidas con una sola llave, y lo k necesito es que cuando el usuario lo kiera pueda sacar los datos de esas tablas en un archivo de texto plano para poderlo abrir en excel, muchas gracias hasta pronto

Páginas: 1 ... 4 5 [6]