Ver Mensaje Individual
  #1  
Antiguo 09-07-2008
elierlora elierlora is offline
Registrado
 
Registrado: jun 2006
Posts: 4
Reputación: 0
elierlora Va por buen camino
Usa un Una conexión de ADO sin el Control

Intento usar una Varible de Objeto, tipo TADOConnection para sutituir el uso del Control, Pero me está dando error. Por Favor, Alguien me dice lo que me Falta? o me dice lo que estoy haciendo Mal?

Nota: les doy una Versión reducida del caso para que puedan darse Cuenta Mejor de donde es el Error: Millones de Gracias.
-----------------------------------
unit Unit1;
interface
uses
{Aqui de Ultimo Hago refrencia a la Unit que permite el uso de los Obnjetos ADO}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ADOdB;
type
TForm1 = class(TForm)
Button1: TButton;
Procedure Inicio;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{Esta es la Variable de Tipo TAdoConnection}
Cone: TAdoConnection;

Implementation
{$R *.dfm}
Procedure TForm1.Inicio;
Begin
{Aqui es donde Me dá el Error}
Cone.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.3.51;Persist '
+ 'Security Info=False;Data Source=D:\PTiempo\ParteT.mdb';
Cone.Connected := True;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
inicio;
end;
end.
Responder Con Cita