27. juni 2001 - 08:24Der er
20 kommentarer og 1 løsning
SQL
Jeg vil gerne finde alle de tegningsnummer der begynder med \'620\' via SQL. Jeg har prøvet med denne kode, men så finder SQL også dem som ligger over \'620\' F.eks 850
DataModule1.QRSoeg.Close; DataModule1.QRSoeg.SQL.Clear; DataModule1.QRSoeg.SQL.Add(\'Select * From Rekvisition\'); DataModule1.QRSoeg.SQL.Add(\'Where Tegningsnr >= \"\' + UpperCase(Edit1.Text) + \'\"\'); DataModule1.QRSoeg.SQL.Add(\'order by Rekvisitionsnr\'); DataModule1.QRSoeg.Open;
De 620 er kun et eks. det er jo det som der står i Edit1.Text jeg skal bruge skal der så stå : select * from rekvisition where tegningsnr like \'Edit1.text+ %\' eller hvad ? anold
Hej MartinLind det virker ikke helt når jeg indtaster F.eks 620 i edit1.text og \'køre\' min SQL sætning får jeg en fejl, noget med token ??
DataModule1.QRSoeg.Close; DataModule1.QRSoeg.SQL.Clear; DataModule1.QRSoeg.SQL.Text := \'select * from rekvisition where Ordrenr like \'+Edit1.text+\'%\'; DataModule1.QRSoeg.SQL.Add(\'order by Rekvisitionsnr\'); DataModule1.QRSoeg.Open;
Nu er Anold en gammel kollega fra min tid på Danfoss, så derfor genkender jeg det tegningsnummer system som spørger til. Danfoss systemet er opbygget som:
xxxAyyyy
Hvor xxx er et tal, her 620. A er et bogstav, dvs. A til Z yyyy er så et løbenummer, altså et tal.
Hele tegningsnummeret er derfor gemt som en streng.
Jeg ville selv have svaret med Eriks svar: \'SELECT * FROM tabel WHERE col LIKE \"\' + Edit1.Text + \'\"\'
Jeg kan ikke fatte det jeg bliver ved med at få den \'token\' fejl
DataModule1.QRSoeg.Close; DataModule1.QRSoeg.SQL.Clear; DataModule1.QRSoeg.SQL.Add(\'select * from rekvisition\'); DataModule1.QRSoeg.SQL.Add(\'where Ordrenr Like \'\'\'+Edit1.text+\'\'\'%\'); DataModule1.QRSoeg.SQL.Add(\'order by Rekvisitionsnr\'); DataModule1.QRSoeg.Open;
Hvad fa*/&$¤ er der galt
Hej Delphi, det er langtid siden at jeg har hørt fra dig
Prøv at lave en space før din Order By og før din Where, nogle db\'er kan ikke lide at man bare add\'er uden space i mellem.
du skal ende med en sql streng med en \' omkring din søge streng, delphi vil gerne havde to \' i sin streng hvis det skal ende med en, og det er enkelt \' vi taler om ikke \" .
Jepper det er lang tid siden. Jeg har for travlt til at være med på eksperten. Lidt ærgerligt, for detver/er jo meget sjovt.
Til sagen:
Når jeg skal lave SQL sætninger, så gør jeg tit det, at jeg går ind i database exploreren (I Delphi 5: Data base menu -> Explorer). Her åbner jeg mig så den database det drejer sig om og vupti dukker der et nyt faneblad, kaldet \"Enter SQL\", op i højre side af windowet. Klick her, og du kan nu direkte lege med SQL udtryk indtil du er tilfreds. Når dette er tilfældet klippe-klistre du bare udtrykket tilbage til dit Delphi program.
Advice for the day: If you have a lot a tension and you get a headache, do what it says on the aspirin bottle: \"Take two aspirin\" and \"Keep away from children\"
Synes godt om
Ny brugerNybegynder
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.