Epistrofi timis apo SQL erwtima!

[Megakill]

Paidia prospathw ston C++Builder na epistrepsw timi se ena pedio DBEdit apo ena erwtima SQL :

 

Afto einai to erwtima (pou eisagw se ena koubi) :

 

Query1->SQL->Text="SELECT IDENT_CURRENT('Pelates')";

Query1->ExecSQL();

 

Kai afto einai to paidio sto opoio thelw na eisagw tin timi pou tha epistrepsei to IDENT_CURRENT('Pelates') :

 

'"+DBEdit1->EditText+"'

 

Pws borw na sindesw afta ta dio?

 

 

 

 

Thanks !

[Megakill]

A! Xrisimipiw ton SQL Server 2000 me ton opoio ta sindew kanonika kai ola doulevoun mia xara!

[Megakill]

Kanenas vre paidia ?

[bandito]

Kanenas vre paidia ?

 

Αν θυμάμαι καλά το ExecSQL επιστρέφει το rows_affected.

Aν θές να σου επιστρέψει recordset θές το Open()

Query1->Open();

και μετα κάνεις browse κανονικά

Query1->MoveFirst();

DBEdit1->Text = Query1->FieldByName("blahbla");

 

Τα ονόματα των μεθόδων μπορει να μην είναι ακριβώς έτσι, δεν τα θυμάμαι καλά, και δεν έχω κα Builder εδώ γυρω.

[Megakill]

Basika xathika ligo....

 

 

Query1->SQL->Text="SELECT MAX(Kodikos_Pelath) FROM Pelates";

//Query1->MoveFirst();

DBEdit1->Text = Query1->FieldByName("Kodikos_Pelath");

Query1->Open();

 

Kapws etsi prepei na ginei gia na mas epistrefete o megistos kodikos_pelati ?

Den katalava ti kanei to MoveFirst (den vrika kati antistixo stis methodous pou na miazei)!

Episis sto : DBEdit1->Text = Query1->FieldByName("Kodikos_Pelath"); mou leei Cannot convert 'TField *' to 'AnsiString'....

 

Vgazeis mipws akri?

 

Nasai kala gia ti voitheia!

[bandito]

Basika xathika ligo....

 

 

Query1->SQL->Text="SELECT MAX(Kodikos_Pelath) FROM Pelates";

//Query1->MoveFirst();

DBEdit1->Text = Query1->FieldByName("Kodikos_Pelath");

Query1->Open();

 

Kapws etsi prepei na ginei gia na mas epistrefete o megistos kodikos_pelati ?

Den katalava ti kanei to MoveFirst (den vrika kati antistixo stis methodous pou na miazei)!

Episis sto : DBEdit1->Text = Query1->FieldByName("Kodikos_Pelath"); mou leei Cannot convert 'TField *' to 'AnsiString'....

 

Vgazeis mipws akri?

 

Nasai kala gia ti voitheia!

 

Βασικά, υπαρχει το μαγικό κουμπάκι. F1

Οτι σου γράφω παρακάτω το βρήκα εκεί

 

DBEdit1->Text = Query->FieldByName("Kodikos_Pelath")->AsString();

 

δεν ειναι movefirst ειναι First και σε πηγαίνει στο πρώτο record του recordset (στην περιπτώση σου ενα και μοναδικό).

οποτε συνοψίζουμε

>
//set the select command text
Query1->SQL->Text="SELECT MAX(Kodikos_Pelath) as CustomerCode FROM Pelates";
//open the query and retrieve the recordset
Query1->Open();
//Move to the first record
Query->First();
//assign the text property 
DBEdit1->Text = Query->FieldByName("CustomerCode")->AsString();

 

Έχω μια υποψία, οτι άλλο θες να κάνεις και άλλο μου λες.

Φαντάζομαι οτι έχεις κάποιο master-detail πινακα και θές να κάνεις assign το foreign key στον detail πίνακα.

Για να μην φαντάζομαι, γράψε ακριβώς τι θέλεις να κάνεις, μηπως μπορέσω και σε που περισσότερα.

[Megakill]

Basika to provlima einai oti thelw na parakampsw mia adinamia pou proeksipse metaksi Builder kai SQL Server me tin aftomati arithmisi! Distixws den leitourgei swsta kai vgazei sfalma! Dokimasa tin epilogi autoincrement alla tzifos !

 

Me afto ton tropo prospathw na valw ena koybi dipla ston kodiko parageliwn gia na dinei tin amesws epomeni timi apo tin megisti sto pedio DBEdit1..

 

Na sai kala gia ton kwdika! Efxaristw Poly! Ola doulepsan mia xara!!

 

>
Query1->SQL->Text="SELECT MAX(Kodikos_Polisis)+1 as KodikosPolisis FROM Paraggelies_Pelatwn";
//open the query and retrieve the recordset
Query1->Open();
//Move to the first record
Query1->First();
//assign the text property
DBEdit1->Text = Query1->FieldByName("KodikosPolisis")->AsString;

[bandito]

Na sai kala gia ton kwdika! Efxaristw Poly! Ola doulepsan mia xara!!

 

 

τπτ

(μπλά, μπλά, μπλά,μπλά γιατι λέει εχει πολυ μικρό μήκος το μηνυμα μου)