Avatar billede koden12 Nybegynder
18. september 2003 - 14:02 Der er 22 kommentarer og
1 løsning

ADO og next, første, last etz hvordan

Den fine test.zip som Snowball har lavet i ADO virker fint, der er dog nogle mangler.
Databasen Access kan ikke gå til næste og sidste og alt det der som de plejer at kunne.
Heller ikke navigisations panelet virker.
Jeg har været ude og søde på ADO på hele nettet men der er næsten ikke noget ADO.
Jeg har forsøgt mig med D1.next; men den virker ikke ?
Heller ikke på den af Snowballs ..
Der må mangle en rutine der kalder hele mdb databasen måske.
Har nogle forsøgt sig her.
(jeg kan se på nettet at mit spørgsmål er nået verden over ) : )
VH
Koden12.
SpørgerJørgen
Avatar billede borrisholt Novice
18. september 2003 - 14:05 #1
Hvis du bruger Delphi 5 skal du på Borlands hejmmeside og upgradere din ADO pakke
Avatar billede snowball Novice
18. september 2003 - 14:26 #2
koden12: Tror du har misforstået en ret fundemental ting i mit eksempel. Der er ingen af de komponenter der er brugt som er direkte DB komponenter. Hver gang jeg skifter til forrige/næste/første/sidste post i mit recordset, så skal jeg selv sørge for at vise ændringen - det sker ikke automatisk.

Snowball
Avatar billede borrisholt Novice
18. september 2003 - 14:28 #3
Det ændere i øvrigt ikke noget på min kommentar.

Jens B
Avatar billede snowball Novice
18. september 2003 - 14:32 #4
Hvis nogen skulle være i tvivl, så er det eksemplet i http://home1.inet.tele.dk/j-cgeert/ADO_Test.zip der er tale om.

jens: Nej, det er rigtigt nok at hvis man bruger Delphi 5, så skal man ind på Borlands hjemmeside og hente deres Update Pack og ADOExpress Update Pack 2 for at få fjernet nogle grimme fejl vedr. ADO. Opdateringerne kan hentes fra http://info.borland.com/devsupport/delphi/downloads/index.html#Delphi%205

Snowball
Avatar billede janbb Juniormester
18. september 2003 - 14:35 #5
Koden12 har vist lige fået delphi 7 proff hvis jeg husker rigtigt fra spm. i den sidste tid ?.Jeg kan dog ikke huske snowballs test.zip ? ku du lev. ref. ?
ADO er ikke det man søger på, det er bare endnu et af de talløse eks. på sjusket brug af 'computersprog'.Koden12.Et eller andet laver du nok forkert og det bør kunne virke, men du må selv lev. oplysningerne til fejlfindingen.
Ps. det er ellers nogle fine spm. du leverer og jeg har selv kæmpet med problemet for ganske nylig og jeg har fuld forståelse for at det driller.
Avatar billede janbb Juniormester
18. september 2003 - 14:41 #6
Nu kan jeg godt huske test.zip og det er et pragtfuldt eksempel - og koden12:
du skal bruge en dbgrid for at kunne få effect at en navigatorpanel.Husk at tildele grid samme datasource som adoelementerne !.Det skal virke og test.zip er en slags 'skoleeks.' på de enkelte elementer i navigator o.s.v.: uhyre interessant, hvis man vil rode lidt med tingene uden at forfalde til de færdige løsninger og forstå tingene lidt bedre.Herligt.'keep up the good work'.
Avatar billede borrisholt Novice
18. september 2003 - 14:43 #7
Avatar billede janbb Juniormester
18. september 2003 - 14:53 #8
Koden 12: for at du ikke skal føle dig fornærmet over min hentydninmg til 'sjusket computersprog' kan du se at jeg har haft lisså svært ved at formulere mig ordentligt: http://www.eksperten.dk/spm/389541
Avatar billede koden12 Nybegynder
18. september 2003 - 15:04 #9
Tak for den meget åbenhed.
Ja jeg fik for få dage sigen min Delphi 7.0 så der skulle ikke være problemer.
(Den er Lækker !!! )
Jeg vil prøve at lægge en DBGrid på og se om det hjælper.
Jeg forstår godt hvad snowball siger at den kun er et eksempel på hvad man kan udrette.
Det bringer mig nu ikke videre.
Jeg prøver mig med en DBGrid.
VH
Koden 12
Avatar billede koden12 Nybegynder
18. september 2003 - 15:58 #10
Så når man derfor gerne vil have det som mig med at både navigiation panel og gå til næste viker går man som følger :
Man plaserer ADOTabel og sætter den til at sin access database derefter sætter man en af "de gamle" "Datasovs på"  ups DataSource1 på på den binder man til ADOTabel1 og sætter så sin Navigation panel til DataSource1 og så virker det.
Jeg har nu foræret mig selv point : )
(Så får jeg da nogle, endelig : )
VH
Koden12
SprøgerJørgen..
Avatar billede koden12 Nybegynder
18. september 2003 - 17:42 #11
Så når man så har sådan en som jeg overfor har beskrevet hvordan laver jeg så en søgning ?
Ved nogle det ?
VH
koden12
Avatar billede janbb Juniormester
18. september 2003 - 19:14 #12
Godt du fandt ud af det.Der har været mange spm./svar på det med søgning og det er ganske godt.Det kedelige er at man kun kan søge på indexfeltet i offlinedatabaser.Meget sjovere bliver det online, hor man kan bruge html/javascript etc og søge på alle ord på siden eller som jeg kunne ønske mig: alle ord i et memofelt, men det er givetvis en del sværere.
Avatar billede janbb Juniormester
18. september 2003 - 19:20 #13
procedure TForm1.Button2Click(Sender: TObject);
begin

Table1.SetRangeStart;
Table1.FindKey([Edit1.Text]);
Table1.SetKey;
Table1.Fields[0].AsString :=Edit1.Text;
Table1.GoToNearest;

end;
Avatar billede koden12 Nybegynder
18. september 2003 - 22:09 #14
Hej Janbb, ja det er netop Problemet at
ADOTable1  IKKE har
SetRangStart
Ej heller
FindKey
Ej heller
GoTONearest
ADO har slet ikke sådan noget !
Sååååå .... hvad gør man så ?
VH
Koden 12
Avatar billede janbb Juniormester
19. september 2003 - 02:43 #15
Det har jeg såmænd ikke tænkt over endnu, men kan man så ikke 'bare' søge v.hj.a. et SQL-statement ?.
Avatar billede koden12 Nybegynder
19. september 2003 - 10:47 #16
Nej det tror jeg ikke man kan.
Seek funtcionen er ganske anderledes end alt vi kender.
CoSeek kan kun bruges ved Server tilslutning fx.
Og ingen han lavet en der dur endnu..
Jeg fandt en, men den dure ikke.. men kun ENE i hele verden
VH
Koden12
Avatar billede snowball Novice
19. september 2003 - 11:05 #17
Endnu en grund til at ikke at bruge DB komponenterne, men selv sørge for det hele ;)

Snowball
Avatar billede koden12 Nybegynder
19. september 2003 - 12:13 #18
AAA Kodeelskeren snowball er på banen : )  , godt du kunne..
Jeg fandt en men jeg kan ikke få den til at virker ????
Kan i ??
Her er den :

I use a TADOTable connected to an Access DB, and a DBgrid. To search the
records
I use the following OnChange event:

procedure TForm1.Edit1Change(Sender: TObject);
begin
ADOTable1.IndexName:='PrimaryKey';
ADOTable1.Seek(Edit1.Text, soBeforeEQ);
end;

Som det kan ses er det mega simpelt ????  isæt hvis det virkede ! : )
PS
Jeg har også forsøgt en Bottenklik  heller ikke..
Jeg kan heller ikke få et index frem ? selv om der er et ??

VH
Koden12
SprøgerJørgen
Avatar billede snowball Novice
19. september 2003 - 12:25 #19
koden12: Jeg har i de ca. 5 år jeg har programmeret i Delphi aldrig brugt ét eneste DB komponent, så jeg aner ikke hvordan de virker, og har desværre ikke lige pt. tiden til at sætte mig ind i det. Hvis jeg får tid i løbet af dagen kan det være jeg lige prøver at rode lidt med det ;)

Efter et hurtigt kig i hjælpen ser det dog umiddelbart rigtigt nok ud det du prøver at lave.

Snowball
Avatar billede koden12 Nybegynder
19. september 2003 - 16:27 #20
Det er løst ..
3 dage ... Pyh
VH
Koden12
Avatar billede snowball Novice
19. september 2003 - 16:44 #21
Hvordan endte koden så med at se ud !?

Snowball
Avatar billede koden12 Nybegynder
19. september 2003 - 16:57 #22
Hvad vil du give ???

3 dages arbejde  ..

// Don't forget to set these properties on the TADOTable in the Object Inspector
  // Cursorlocation = clUseServer
  // TableDirect = True            <<<<<den havde jeg overset også
  // Indexname = Primarykey
  ADOTable1.Seek('1/1/2001', soFirstEQ);
  Edit1.Text := ADOTable1.FieldByName('Date').AsString;

Min er så lavet lidt om så tekst står ved dato og sådan noget men den virker den her hvis der er eb dato der ser sådan ud..
Den jeg har lavet lidt om på søger i tekst feltet og det gør den i dens chance evens så den forsættet med at søge..
Den er smart.
Se hvor simpelt det er ?
VH
koden12
PS dette er den første i verden : )
Avatar billede koden12 Nybegynder
19. september 2003 - 22:46 #23
Hvis du finder ud af om den kan søge på andet end Primary index så lad mig det vide !
VH
koden12
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I dag 10:21 Ny printer, men hvilken Af mort1 i Printere
I går 19:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging