Avatar billede delphimann Nybegynder
13. december 2001 - 13:37 Der er 27 kommentarer og
1 løsning

Alt om DataSource tak !

Hej... jeg skal bare vide

Hvis jeg på en label vil skrive f.eks hvormange rows min DataSource1 indeholder hvordan kommer det til at se ud i kode

ca. sådan ik
Label1.Caption := ????? ;

og hvis jeg skal hente et row der inde ( der er MAX 1) hvordan ser det så ud ?? det skal også stå på en label ....
Avatar billede martinlind Nybegynder
13. december 2001 - 13:42 #1
Label1.Caption := IntToStr(DataSource.DataSet.RecordCount);

Avatar billede martinlind Nybegynder
13. december 2001 - 13:43 #2
Label1.Caption := DataSource.DataSet.FieldByName(<FieldName>).AsString;
Avatar billede delphimann Nybegynder
13. december 2001 - 13:48 #3
select * from my_user where user_name = \'+DBEdit1\' and user_pass = \'+DBEdit2\'
kan du se en fejl i det her ??
Avatar billede martinlind Nybegynder
13. december 2001 - 13:50 #4
select * from my_user where user_name = \'+DBEdit1.Text+\' and user_pass = \'+DBEdit2.Text
Avatar billede martinlind Nybegynder
13. december 2001 - 13:51 #5
Query.SQL.Text := \'select * from my_user where user_name = \'+DBEdit1.Text+\' and user_pass = \'+DBEdit2.Text;
Avatar billede delphimann Nybegynder
13. december 2001 - 14:08 #6
hmm martin du skal nok få flere point... men hvis jeg skriver det sidste du skriv kan jeg så godt gemme svarende ??... i array eller skrive hvormange rows den fandt ??
Avatar billede delphimann Nybegynder
13. december 2001 - 14:10 #7
jeg gør opmærksom på det er mysql jeg arbejder med
Avatar billede martinlind Nybegynder
13. december 2001 - 14:11 #8
Ja RecordCount / FieldByName er funktioner på TDataSet

/Martin
Avatar billede martinlind Nybegynder
13. december 2001 - 14:12 #9
du skal dog lige vide at det ikke er alle SQLBaser der supporter RecordCount
Avatar billede martinlind Nybegynder
13. december 2001 - 14:13 #10
Query er det Dataset du har tilknyttet din Datasource.Dataset property
Avatar billede delphimann Nybegynder
13. december 2001 - 14:15 #11
ok... men tak for hjælpen
Avatar billede delphimann Nybegynder
13. december 2001 - 14:15 #12
hvordan gør jeg det ??...
Avatar billede martinlind Nybegynder
13. december 2001 - 14:16 #13
Gør hvad ??
Avatar billede delphimann Nybegynder
13. december 2001 - 14:18 #14
sætter en query\'s result sammen ned i en Datasource
Avatar billede martinlind Nybegynder
13. december 2001 - 14:19 #15
En DataSource er en Comp. du bruger til at \"linke\" DBEdit og DBGrid comp. sammen med et DataSet, så jeg forstår ikke helt dit spm.
Avatar billede delphimann Nybegynder
13. december 2001 - 14:24 #16
ok... jeg arbejder med MySQL... og den skal hente dine bruger oplysninger hvis du skriver user_name og user_pass .... jeg har mysql konponeter... og der i kan jeg tilføje mysql kode.... og det den finder der igemmen sætter den ned i en DataSource ... men
select * from my_user where user_name = \'+DBEdit1.Text+\' and user_pass = \'+DBEdit2.Text

på det der finder den ikke noget...
Avatar billede delphimann Nybegynder
13. december 2001 - 14:26 #17
mySQLQuery1.SQL := \'select * from tinychat_user where user_name = \'+DBEdit1.Text+\' and user_pass = \'+DBEdit2.Text\';

hvad er fejlen f.eks her... det virker heller ikke i SQL skal der stå det der jeg får en fejl der hedder


[Error] Unit1.pas(69): Unterminated string
[Error] Unit1.pas(71): Incompatible types: \'TStrings\' and \'String\'
[Fatal Error] Project2.dpr(8): Could not compile used unit \'Unit1.pas\'
Avatar billede martinlind Nybegynder
13. december 2001 - 14:28 #18
mySQLQuery1.SQL := \'select * from tinychat_user where user_name = \'+DBEdit1.Text+\' and user_pass = \'+DBEdit2.Text;

mySQLQuery1 er det Dataset du tilknytter til din DataSource.DataSet Propery
Avatar billede martinlind Nybegynder
13. december 2001 - 14:29 #19
der var lige en \' for meget i enden
Avatar billede delphimann Nybegynder
13. december 2001 - 14:29 #20
jepper... prøver lig
Avatar billede delphimann Nybegynder
13. december 2001 - 14:30 #21
[Error] Unit1.pas(71): Incompatible types: \'TStrings\' and \'String\'
[Fatal Error] Project2.dpr(8): Could not compile ued unit \'Unit1.pas\'

nu siger den kun det der
Avatar billede delphimann Nybegynder
13. december 2001 - 14:32 #22
det er TStrings ....
Avatar billede martinlind Nybegynder
13. december 2001 - 14:33 #23
sorry

du skal skrive

mySQLQuery1.SQL.Text := .... 
Avatar billede delphimann Nybegynder
13. december 2001 - 14:37 #24
ja ok... tak for hjælpen der er bare en sidste ting.... hvis vi siger user_name = test skal det stå sådan user_name = \'test\'

men med dit script kommer der til at stå user_name = test

altså uden \' uden om test
Avatar billede martinlind Nybegynder
13. december 2001 - 14:39 #25
Du er inde på noget af det rigtige

mySQLQuery1.SQL.Text := \'select * from tinychat_user where user_name = \'\'\'+DBEdit1.Text+\'\'\' and user_pass = \'\'\'+DBEdit2.Text+\'\'\'\';

Avatar billede martinlind Nybegynder
13. december 2001 - 14:40 #26
det er vist noget i den stil, du skal skrive for at få \' rundt om din streng
Avatar billede delphimann Nybegynder
13. december 2001 - 14:41 #27
10000000 mang gang tak til dig.... opretter lig 50 point til dig
Avatar billede martinlind Nybegynder
13. december 2001 - 14:43 #28
takker
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

IT-JOB

Politiets Efterretningstjeneste

AI/ML udvikler i PET

Politiets Efterretningstjeneste

Data engineer til PET

Forsvarets Efterretningstjeneste

Network engineer - Datacenter & Automation