ADO fra delphi

Prøv og kig lidt på nedenstående eksempel, og se om det er noget du kan bruge:

http://home1.inet.tele.dk/j-cgeert/ADO_Test.zip

Snowball

Prøv at kigge på dit ADO faneblad

Stoney

Stoney->Jeg vil ikke bruge komponenter, kun kode.

Jeg bryder mig heller ikke om at bruge componenter, dog bruger jeg gladeligt dem der er i Delphi default. Jeg tror ikke du kommer uden om at bruge disse componenter, eller også skal du importere en eller anden ADO_tlb og så er vi jo lige vidt.

Nu kender jeg ikke meget til VB, men tror du ikke måden man gør det på der
er "indbygget" i VB.

Stoney

Nej, ADO er ikke indbygget i VB. Man skal skabe en referere til den.
ADO er et rigtigt godt generelt interface til databadaser, som kan anvendes fra næsten, hvad som helst.
Jeg er ret overbevist om, at man kan arbejde uden komponenter, men spørgsmålet er selvfølgelig hvordan.
Den kode jeg har fået fra Snowball, ser ud til at rumme noget af det rigtige, men jeg får bare nogle fejl, omkring manglende objekter, når jeg indlæser den. Spørgsmålet er, hvordan de ere erklæret.

Snowball's eks. gør da brug af componenter

Stoney

styrmand: Prøv og kig på nedenstående eksempel. Det er en modificeret udgave at der første hvor dine query ting bli'r lavet når de skal bruges  og derfor ikke ligger som komponent på formen.

http://home1.inet.tele.dk/j-cgeert/ADO_Test_ny.zip

Din ADOConnection tror jeg bare ikke kan man undgå at smide på formen. Jeg kunne ikke så'n lige umiddelbart komme uden om det i hvert fald !

Snowball

Der er beskrevet en fremgangsmåde her:

http://www.delphi.about.com/library/weekly/aa121101a.htm

Niels

Følgende eksempel oprettet en forbindelse til en access database

Var
  Table : TADOtable;
begin
  Table := TADOTable.Create(Application);
  With Table do
  begin
    Close;
    // Følgende streng fortæller hvilken database som der skal bruges
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\Text1.mdb;Persist Security Info=False';
  TableName := 'Test';
  Open;
  end; 
end;

Et lidt mere avanceret system kunne være
Var
  Table : TADOtable;
  Handle : Hwnd;
begin
  Table := TADOTable.Create(Application);
  With Table do
  begin
    Close;
    // Følgende streng fortæller hvilken database som der skal bruges
  ConnectionString := PromptDataSOurce(Handle, ConnectString);
  TableName := 'Test';
  Open;
  end; 
end;

SnowBall Hvordan laver du Move next Move -1 og movw last etz.
VH
Koden12

X.Next: Går til næste post
X.Prior: Går en post tilbage
X.First: Går til første post
X.Last: Går til sidste post

X er navnet på din TADODataSet eller TADOCommand.

Snowball

Hej Snowball..
Det er nemlig det, det virker ikke, den indlæser jo ikke alle rækkernr tror jeg.
Heller ikke Navigasion panelet virker ..
D1.NEXT;
Q1.Next
Ingen af dem flytter sig.. ?
VH
Koden12

koden12: Er ikke helt med på hvad du mener. Det jeg skrev ovenfor ændrer sig som det skal, men for at du kan se ændringerne, så skal du jo vise data'ene på en måde !

Snowball

Nææ jeg så gerne at hele databasen rykkede en frem ved move next.
VH
Koden12