como me conecto desde delphi a sql server

[sgarciam]

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

[vtdeleon]

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

Entendido

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

Qeu errro te da?

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.

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.

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.

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

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

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

Saludos

[sgarciam]

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 ?

[[Caral]]

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

[sgarciam]

pero este programa sirve para ejecutar un programa de fox

[[Caral]]

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