como me conecto desde delphi a sql server
 

tengo varios problemas al intentar conectar mi programa en delphi a sql server :

1.-Tengo delphi 7 y estoy desarrollando una aplicacion para transferir informacion del sql server a tablas dbf.

2.- yo utilizo una ODBC pero me marca errores al realizar mis queris y alparecer es por el ODBC.

3.- se q puedo conectarme con ADO pero como le hago para hacer esto y segundo q cuando se carge la plicacion no me este pidiendo cada ves la autentificacion del usuario para conectarme.

4. yo utilizo los componentes del DBE para obtener mi informacion y poder insertarla en mis tablas de dbf si utilizo ADO puedo seguir utilizando los componentes DBE.

5.-si realizo el proyecto y me conecto BD locales no hay problema al camiarlo en red.

gracias y por su atencion y les pido sean lo mas sencillos al explicame lo q tengo q hacer y segundo si tienen ejemplos practicos me los proporcionen

Entendido :)

Qeu errro te da?

Buscando en el foro encontraras la solucion a "Como conectar con Ado" y con respecto a la autenticacion, el compoentne AdoConnection tiene una propiedad llamada LoginPrompt la cual debes ponerla a False para que no te pregunte.

Si, son dos formas paralela de conexion aunque puedes compartir, comparar o consultar onformacion una con otra.

Puede que si, debes especificarle la ruta o directorio donde se encuentra la Base de Datos (o tablas).

Saludos

haber si ahora me explico mejor
 

mira tengo una aplicacion en sql server la cual estoy implementado pero tambien tengo un ainterface entre el sql y tablas dbf para alimentar la informacion al sistema viejo(dbf) pero utilizo generalmenete un odbc pero resulta q por cuestion de tipo de campos pues el odbc pues falla no reconece el campo y me obloga a utilizar ADO pero la pregunta expresa es esta como yo utilizo un alias con el odbc pues nada mas agrego un componente SQL de la carpeta DBE y le asigno el alias y listo ya tengo conexion hacia mi BD pero con el ADO lo q intento hacer es lo mismo no se si me explico, bueno espero y sepas alo q me refiero y puedas darme una ayudadita gracias a oye otra pregunta como mando llamar una aplicacion en fox q es un exe para q la ejecute una aplicacion desde delphi 7 ?

Hola
Para conectar un programa a otro, estando en la misma carpeta o directorio.
Esta es una muestra de un programita completo:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
   EExecAppError = class(Exception); // exepclass

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    // Funcion para enlazar programas
    function ExecuteApp(AppName, Params: string): TProcessInformation;
    // Procedimiento
    procedure Launch(AppName, Params: string);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
  // procedimiento
   procedure appmessage(var msg:tmsg;var handled:boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Funcion de errores
function SysErrorMessageParam(ErrorCode: Integer; Param: string): string;
var
  Len: Integer;
  Buffer: array[0..255] of Char;
  ArgArray: array[1..1] of PChar;
begin
  ArgArray[1] := PChar(Param);
  Len := FormatMessage(Format_Message_From_System or
    Format_Message_Argument_Array, nil, ErrorCode, 0, Buffer,
    SizeOf(Buffer), @ArgArray);
  while (Len > 0) and (Buffer[Len - 1] in [#0..#32, '.']) do Dec(Len);
  SetString(Result, Buffer, Len);
end;


// funcion de enlace
function TForm1.ExecuteApp(AppName, Params: string): TProcessInformation;
var
  SI: TStartupInfo;
  PI: TProcessInformation;
begin
  FillChar(SI, SizeOf(SI), 0);
  with SI do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := StartF_UseShowWindow;
    wShowWindow := sw_ShowNormal;
  end;
  if not CreateProcess(nil, PChar(AppName + ' ' + Params), nil,
           nil, False, 0, nil, nil, SI, PI) then
    raise EExecAppError.Create(SysErrorMessageParam(GetLastError, AppName));
  Result := PI;
end;

// procedimiento
procedure TForm1.Launch(AppName, Params: string);
begin
  ExecuteApp(AppName, Params);
end;

// mensage
procedure TForm1.appmessage(var msg:tmsg; var handled:boolean);
begin
     if (msg.message=wm_syscommand) and (msg.wparam=sc_screensave)
     then handled:=true;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   // lanza un llamado al otro programa
   // el programa tiene que estar en el mismo directorio

    Launch('Project2','');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   application.onmessage:=appmessage;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Close;
end;

end.

Saludos

gracias por tu comentario
 

pero este programa sirve para ejecutar un programa de fox

Hola
No se muy bien a que te refieres, pero ejecuta cualquier .EXE.
Saludos

como hago una lista de equipos y le pego un archivo
 

tengo una pregunta como le hago para tener como un catalogo de equipos y poder enviarles un archivo(delphi7)
ejemplo :
\\maquina1\archivo_compartido_en_equipo\pegar_tabla
osea tener como un catalogo y q me premita seleccionar el equipo y posteriormente poder enviarle una tabla

Hola
No entiendo muy bien la pregunta, pero supongo que con el block de notas se podria.
La verdad, no entiendo bien, lo puedes explicar un poco mas amplio.
Saludos