SoloCodigo

Genero un DSN de Archivo apuntando a mi servidor SQL, la conexion se crea bien, al probarla dice Pruebas Completadas Correctamete,.

En delphi pongo mi componente ADOConnection, en Connection String selecciono use Data Link File, selecciono mi DSN creado, al momento de activarlo me manda el siguiente error:

El archivo no es un archivo compuesto valido

Esto me pasa desde k actualize XP a SP2, ya k el sistema trabajaba correctamente antes de esto, y no se k hacer para arregarlo.

Otra cosa si en vez de seleccionar Data Link File, selecciono Use Connection String y lo creo si funciona.

Espero su ayuda gracias

espero que sea esto, quieres sumar una columna, lo que yo hago es lo sig:


asi recorro todo el query y sumo todos los campos venta de las filas.

Espero que te ayude.

Como lo quieres guardar no se puede, abrelo en el bloc de notas para que veas que te dejo, una forma para guardarlo en otra tabla seria creando la tabla y moviendo el resultado del query con un BacthMove, ve el codigo es sencillo:

procedure TForm1.Button1Click(Sender: TObject);
var
 Table:TTable; //Tabla
begin
  query1.FieldDefs.Update; //los campos que tiene el query se refrescan
  Table := TTable.Create(nil); //se crea la tabla
  Table.TableName := 'C:\TablaPaso';
  {La ruta donde la deseas guardar esto lo puedes hacer con un savedialog          con  ruta ya espeficada}
  Table.TableType := ttParadox   ; //tipode tabla en la ayuda puedes ver los tipos
  Table.FieldDefs.Assign(query1.FieldDefs);
  {se le asignan los campos del query a la tabla}
  Table.CreateTable ;
  //se crea la tabla con contenido
  //esto es para mover los registros del query a la nueva tabla
  batchmove1.Destination:=Table;
  batchmove1.Source:=Query1;
  batchmove1.Execute;
end;

esa es una forma otra seria exportandolo a Excel para eso necesitas un componente que se llama scExcelExport1 el codigo para ese componente seria asi:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if savedialog1.Execute then
 begin
  scExcelExport1.ExportDataset;
  scExcelExport1.SaveAs(savedialog1.FileName,ffXLS);
  scExcelExport1.Disconnect;
 end;
end;

solamente tienes que poner en la propiedad Dataset el query que quieras exportar.

Espero que te sirva de ayuda...
el componente lo encuentras en la inter buscalo...

Espero quen esto te ayude para lo que quieres hacer.

La propiedad RecNO, te devuelve en que registro te encuentras.
El ejemplo que te pongo hace lo siguiente: primero busco en mi tabla (propiedad Locate) supongamos clientes al que tenga el nombre que empieze por FER me pondra el el primer registro que encuentre con esta especificacion, al tener localizado al cliente, para saber en que numero de registro se encuentra se utiliza la función RecNO y listo.

procedure TForm1.Button1Click(Sender: TObject);
var
 regAct:integer;
begin
table1.Locate('nombre','FER',[loPartialKey]);
regAct:=table1.RecNo;
end;

Espero haberte resuelto tu duda  

Quiero imprimir un reporte hecho con el QuickReport en D7, pero qiuero imprimirlo sin previzualizarlo, solamente al apretar un boton que lo mande a imprimir, utilizo quickrep1.print; y no me lo imprime ya que no pone los resultados hasta que hago quickrep1.preview; y con el boton que aparece si lo imprime, espero que me puedan ayudar.

Se podra quitar los botones de maximizar y minimizar de una forma hija??

Solamente quiero dejar el boton de cerrar, si alguien sabe como me seria de gran ayuda.

Alguien podira decirme como utilizar programación concurrente en delphi.

Estube investigando y creo que es con hilos, pero no los se utilizar, espero que alguien me explique mas o menos como usarlos y si es posible que den un ejemplo.

Espero su ayuda.  

Lo que puedes hacer es lo siguiente, ya sea mostar dispositivos de sonidoy audio que se encuentra en panel de control o mostrar lo que es el volumen general, esto se hace asi:

dispositivos de sonidoy audio:

para este debes de poner ShellApi en los uses:

winNT
ShellExecute(Application.MainForm.Handle,nil,Pchar('c:\windows\system32\rundll32.exe'),Pchar('shell32.dll,Control_RunDLL mmsys.cpl,,0'),nil,SW_SHOW);

win9x
ShellExecute(Application.MainForm.Handle,nil,Pchar('c:\windows\rundll32.exe'),Pchar('shell32.dll,Control_RunDLL mmsys.cpl,,0'),nil,SW_SHOW);

y para mostrar lo que es el volumen general:

WinExec('SNDVOL32.EXE',SW_SHOWNORMAL);

Espero que te sea de ayuda.

Puede ser el formato de la fecha, que es diferente el acomodo en ACCESS que en delphi, para cambiarlo usa esto:

ejemplo:

shortdateformat:='dd/mm/yyyy'
                           'mm/dd/yyyy'

ya tu haces las variaciones segun quieras la fecha.

creo puede ser eso, cual es el error que te manda??