|
|
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
126
« en: Viernes 12 de Noviembre de 2004, 15:46 »
hijoles una ultima molestia! mi codigo ha kedado de la siguiente manera: try Query1.close; 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'; Query1.open; co:=IntToStr(Query1.RecordCount); Showmessage('Se encontraron' + ' ' + co + ' ' + 'registros'); DBGrid1.Columns.SaveToFile('c:\tablapaso');//**********AKI!!!!*****/// except Showmessage('Ni maiz'); end;
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
« en: Jueves 11 de Noviembre de 2004, 18:50 »
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.
 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
« en: Miércoles 10 de Noviembre de 2004, 16:55 »
Hola mustang! 
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??  de ante mano gracias!!
129
« 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: procedure TForm4.Button4Click(Sender: TObject); begin try Query1.close; Query1.parambyname('param').asString:=Edit1.text; Query1.open; except Showmessage('Ni maiz'); end; end;
y el siguiente en la propiedad SQL->Tstrings select * from encuesta where Folio = :param
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!!
130
« en: Martes 26 de Octubre de 2004, 16:36 »
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. 
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
« en: Lunes 25 de Octubre de 2004, 16:43 »
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:
Memo1.Lines.Add(Form1.Table1.FieldByName('Prom1').asString);//como cadena Memo1.Lines.Add(Form1.Table1.FieldByName('Prom1').Value);//directo es variant Form1.Table1.FieldByName('Prom1').asFloat;//si lo necesitas como flotante
3.- sacale las comillas a la variable de tipo cadena prom...
¿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
« en: Viernes 22 de Octubre de 2004, 17:10 »
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.
var F: TextFile; S: string; begin if OpenDialog1.Execute then { Display Open dialog box } begin AssignFile(F, OpenDialog1.FileName); { File selected in dialog box } Reset(F); Readln(F, S); { Read the first line out of the file } Edit1.Text := S; { Put string in a TEdit control } Writen(F, Edit2.Text); { Read the first line out of the file } CloseFile(F); end; end;
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
« 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
|
|
|
Mostrar Mensajes
