Lidt kringlet sql

Hej. Skal du have hjælp til at lave SQL queries eller til Delphi/SQL samarbejde?

Til at lave den pågældende sql qry i delphi, det er bare sådan af fritids interesse

SOm jeg lige kan se det må det være noget med at Join\'e og AS\'e, jeg er bare ik lige flyvende i det :)

Er det ikke bare at tildele en variabeler? og så lave et grid udfra dem ...  Jeg har ikke en skid styr  på left outa join osv.    Jeg ville gøre det på den måde..

PS. Hvis du brugte VB kunne jeg give dig et eksempel

hmn.......Ikke helt, og det er jo delphi...sååh, jeg har brygget det sammen i Access, skal egentlig bare have det oversat :)

:)

koonz>Prøv at beskrive din tabel definition (hvilke felter er i hvilke tabeller) samt et eksempel på hvordan resultatet skal se ud.

Evt. som
Tabel1:
FeltA Integer
FeltB Char(20)
FeltC Integer

Table2:
FeltA Integer
FeltB Char(20)
FeltC Integer

Grid:
Tabel1.FeltA, Tabel1.FeltC, Tabel2.FeltA

eller lign !?

Me 2...  Jeg kunne overhovedet ikke overskue spørgsmålet..

Ok denne her bliver lidt tricky ! Glem alt om SQL !

Du skal bruge 2 * TADOTable i Delphi som tilføjes til din form eller datamodul.

TableElementnumre: TADOTable;
TableType_Template: TADOTable;

Specifiser \'Conection\' og \'ConnectionString\' for begge således at de tilgår de rigtige tabeller i din Access DB.

Sæt \'AutoCalcFields\' = False i TableElementnumre.

Hvis du i design vinduet DBKlikker på TableElementnumre får du en liste over tilgængelige felter (denne skulle helst være tom)

Højreklik på listen og vælg \'Add fields\' vælg derefter de felter som du ønsker at bruge dvs: Nummer, Typen og beskrivelse.

Højreklik igen på listen og vælg \'New field\' og sæt følgende :
Name til \'Type_TemplateBeskrivelse\',
Type og size til samme format som Type_Template.Beskrivelse,
field type til \'Lookup\',
Key Fields til Typen, (i TableElementnumre)
Dataset til TableType_Template,
Lookup Keys til Typen, (i TableType_Template)
Result Field til Beskrivelse. (i TableType_Template)

!! Du har nu fået tilføjet et felt Type_TemplateBeskrivelse i TableElementnumre !!

Højreklik igen på listen og vælg \'New field\' og sæt følgende :
Name til \'Type_TemplateNummer\',
Type og size til samme format som Type_Template.Nummer, (8 cifre?)
field type til \'Lookup\',
Key Fields til Typen, (i TableElementnumre)
Dataset til TableType_Template,
Lookup Keys til Typen, (i TableType_Template)
Result Field til Nummer. (i TableType_Template)

!! Du har nu fået tilføjet et felt Type_TemplateNummer i TableElementnumre !!

Højreklik igen på listen og vælg \'New field\' og sæt følgende :
Name til \'Signalnummer\',
Type og size til samme format som TableElementnumre.Nummer,
field type til \'Calculated\'.

!! Du har nu fået tilføjet et felt Signalnummer i TableElementnumre og har nu følgende felter:

Nummer
Typen
beskrivelse
Type_TemplateBeskrivelse
Type_TemplateNummer
Signalnummer

!! nu mangler vi bare at beregne resultatet i signalnummer !!

Luk felt listen !
Vælg TableElementnumre !
vælg Events !
DBKlik på OnCalcFields og indsæt følgende kode :

var TempString, TempString: String; i: Integer;
begin
  OldString := Type_TemplateNummer.Text;
  i := Pos(\'X\',OldString);
  While i <> 0 do
  Begin
    TempString := Copy(Nummer,i,1);   
    Delete(OldString,i,1);
    Insert(TempString,OldString,i);
    i := Pos(\'X\',OldString);
  end;   
  TableElementnumreSignalnummer.text := OldString;
end;

Overstående kode skulle erstatte samtlige \'X\'er i  Type_TemplateNummer med en karakter på tilsvarende plads i Nummer og gemme resultatet i signalnummer :)

TADOTable......hmnn....Hva er det for en sag, vi snakker Delphi ikke ?

Men ellers kan jeg godt se hvor du vil hena, jeg prøver lige at kigge lidt på det når jeg kommer hjem :)

Ved at bruge ADO slipper du for at opsætte dns, hele forbindelsen defineres af din connectionstring meget lig ASP. Eks.:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=O:\\ACCESS\\DATABASE.mdb;Persist Security Info=False

Provider sættes eks. til Microsoft.Jet.OLEDB.4.0

Connection bruges hvis du bruger en TADOConnection som den så linker til, men så skal Connectionstring i stedet defineres på denne.

Desværre er det vidst kun Delphi 5 der har indbyggede mulighed for ADO med mindre man gør følgende:

tilføj ComObj til din uses clause. Der er en funktion kaldet CreateOleObject(objekt:string) som returnerer en Olevariant. Du angiver hvilket ADO objekt du vil bruge (d.v.s. der er ingen visuelle tabels til at hjælpe men du får fuld adgang til ADO). I store træk er det nu muligt at gøre som shanders siger du skal bare selv skrive koden der forbinder ADO objekterne med dine tabels (evt. TStringrid funker fint her).

Hvis du har problemer så tjek den gode side www.delphizine.com og søg på ADO (½ af artiklerne handler om D5, men der er to som fortæller om hvordan du bruger ADO i f.eks. D3). Ellers så tjek www.microsoft.com/data for både at hente nyeste udgave af ADO (i pakken MDAC). Der er inkluderet en rigtig god hjælp med ADO og du kan ellers tjekke stort set alle hjemmesider der handler om Active Server Pages - fremgangsmåden til at bruge ADO der er næsten det samme som her.

ADO styrer :)

Mark Gray alias BusterManiac

Okay, nu forstår jeg sammenhængen da jeg er i Delphi 4, men nu synes jeg, det er ved at være ude i noget, jeg ikke ønsker at rode med PT.

Det må kunne laves i D4, med en sql. Da jeg også ønsker at lave ligende ting i fremtiden, altså med at join\'e og bruge AS.

Men kan jeg ikke bare oprette et ekstra felt på min TTable, og så bruge OnCalcFields, til at hente de rigtige ting ud af mine andre kolonner - og fylde ind i min definerede det skal IHF prøves...

Nu skriver du du har lavet det i Access, men er det sådan at du vil lave det på en SQL database som ikke behøver at være access?

Nej det skal laves op mod en Access database

SELECT IIf([SignalTemplate].[SignalNummer]=\'XXXXXXXX\',
      [Elementer]![ElementNummer],
      Left$([SignalTemplate].[SignalNummer],2) & Mid$([ElementNummer],3,1) &
      Mid$([SignalTemplate].[SignalNummer],4,1) & Mid$([ElementNummer],5,4))
      AS Signal, Elementer.GlNr, [Elementer].[Beskrivelse] & \' \' & [Tillægstekst]
      AS Beskrivelse, Elementer.Type, Elementer.PLC, Elementer.ModulNummer,
      Elementer.LøbeNummer, Elementer.ElementNummer, SignalTemplate.SignalNummer
FROM  Elementer LEFT JOIN SignalTemplate ON Elementer.Type = SignalTemplate.Type
ORDER BY Elementer.ModulNummer, Elementer.LøbeNummer;

Det er den sætning jeg fyrer af på databasen, og det virker da også hvis jeg laver den i \"Strings\" på min query, men oversætter jeg den som

with qrySignaler do
  begin
    Close;
    sql.Add(\'SELECT IIf([SignalTemplate].[SignalNummer]=XXXXXXXX,\');
    sql.Add(\'        [Elementer]![ElementNummer],\');
    sql.Add(\'        Left$([SignalTemplate].[SignalNummer],2) & Mid$([ElementNummer],3,1) &\');
    sql.Add(\'        Mid$([SignalTemplate].[SignalNummer],4,1) & Mid$([ElementNummer],5,4))\');
    sql.Add(\'        AS Signal, Elementer.GlNr, [Elementer].[Beskrivelse] \'+\' \'+\'[Tillægstekst]\');
    sql.Add(\'          AS Beskrivelse, Elementer.Type, Elementer.PLC, Elementer.ModulNummer,\');
    sql.Add(\'        Elementer.LøbeNummer, Elementer.ElementNummer, SignalTemplate.SignalNummer\');
    sql.Add(\'FROM      Elementer LEFT JOIN SignalTemplate ON Elementer.Type = SignalTemplate.Type\');
    sql.Add(\'ORDER BY  Elementer.ModulNummer, Elementer.LøbeNummer\');
    open;
  end;


Ja så får jeg en fejl - noget med en karakter uden for sql strengen

Fandt løsningen, og lavede selecten direkte på qry, og så valgte ud med Params