Delphi - Usar Conexión de Ado Sin DataControl

 
Vista:
Imágen de perfil de Elier

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Usar Conexión de Ado Sin DataControl

Publicado por pacopaz (104 intervenciones) el 09/07/2008 18:22:03
Lo que sucede, elier, es que no lo creaste nunca.
Se debe crear, para luego poder asignarle valores y tratar de conectarlo. Debes saber que el string de conexión no es lo único que requiere el componente para funcionar, por eso es más fácil tomar el componente visual (desde la paleta dbGo) y ponerlo en tu forma.
Para crearlo necesitas esta línea:

Cone := TAdoConnection.Create(Self);

Espero que te sirva.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar