Usa un Una conexión de ADO sin el Control

[elierlora]

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.

[*Caro*]

Hola elierlora, no dices que error te marca, pero por lo que veo no estas creando Cone.

Código Delphi [-]
Procedure TForm1.Inicio;
Begin
{Aqui es donde Me dá el Error}
Cone:= TAdoConnection.Create(Self);
Cone.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.3.51;Persist ' 
+ 'Security Info=False;Data Source=D:\PTiempo\ParteT.mdb';
Cone.Connected := True;
End;

Saluditos

[elierlora]

Empezado por elierlora

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.

Muchas Gracias, eso era lo que me Faltaba... o que yo no sabía que tenía que hacer... Es la Mala Disciplina de visual Basic que está muy dentro.

[waly2k1]

Juás en VB deberías poner tambien
Set Cone = New ADODB.Connection

[Erebo]

Gracias ... buscando por ahi .. me sirvio la información =)