
Usar Conexión de Ado Sin DataControl
Publicado por Elier (1 intervención) el 09/07/2008 16:18:30
Cuando intento usar la Variable "Cone" para asignarle por código una Cadena de Conexión Me dá Error de Violación. Alguien podría decir qué me Falta?, Qué estoy Haciendo Mal? Hice un Estracto del Programa en el siguiente Bloque para que puedan darse cuenta: Millones de Gracias.
---------------
unit Unit1;
interface
uses
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;
{Aqui está la Declaración}
Cone: TAdoConnection;
implementation
{$R *.dfm}
Procedure TForm1.Inicio;
Begin
{Aqui es donde dá el Error!!!!!}
Cone.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.3.51; '
+ 'Persist Security Info=False;Data Source=D:PTiempoParteT.mdb';
Cone.Connected := True;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
inicio;
end;
end.
---------------
unit Unit1;
interface
uses
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;
{Aqui está la Declaración}
Cone: TAdoConnection;
implementation
{$R *.dfm}
Procedure TForm1.Inicio;
Begin
{Aqui es donde dá el Error!!!!!}
Cone.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.3.51; '
+ 'Persist Security Info=False;Data Source=D:PTiempoParteT.mdb';
Cone.Connected := True;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
inicio;
end;
end.
Valora esta pregunta


0