Hola quiero hacer coneccion de tipo dao o ado, es sin asistente de conexion
en visual se hace asi:
Código Delphi
[-]
Private Sub Form_Load()
ModoEditar False
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _“Data Source=C:\CursosLibres.MDB;” & _“Persist Security Info=False”
Rs.ActiveConnection = Cn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
Rs.Open “Select * From Curso”
Set TxtCurCodigo.DataSource = Rs
TxtCurCodigo.DataField = “CurCodigo”
Set TxtCurNombre.DataSource = Rs
TxtCurNombre.DataField = “CurNombre”
Set TxtCurVacantes.DataSource = Rs
TxtCurVacantes.DataField = “CurVacantes”
Set TxtCurProfe.DataSource = Rs
TxtCurProfe.DataField = “CurProfe”
End Sub
como seria en delphi 7? saludos
Código Delphi
[-]
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;...';
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.SQL.Add('elect * from mitabla order by campo1');
ADOQuery1.Open;
while not (ADOQuery1.Eof) do begin
ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
ADOQuery1.Next;
end;
ADOQuery1.Close;
ADOConnection1.Close;
estaria bien asi?