Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Usa un Una conexión de ADO sin el Control (https://www.clubdelphi.com/foros/showthread.php?t=58118)

elierlora 09-07-2008 16:18:32

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.

Caro 09-07-2008 16:27:53

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 09-07-2008 16:41:50

Gracias...
 
Cita:

Empezado por elierlora (Mensaje 299075)
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 10-07-2008 00:17:31

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

Erebo 25-07-2008 03:42:46

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


La franja horaria es GMT +2. Ahora son las 12:57:38.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi