Ver Mensaje Individual
  #3  
Antiguo 09-07-2008
elierlora elierlora is offline
Registrado
 
Registrado: jun 2006
Posts: 4
Reputación: 0
elierlora Va por buen camino
Gracias...

Cita:
Empezado por elierlora Ver Mensaje
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.
Responder Con Cita