VB 6.0 - Recuperare l'ID

[marciadona]

Salve a tutti ho un problema.
Ho una tabella commessa che contiene (tra gli altri campi)anche il campo rata (numerico)
Se la rata è maggiore di 0 devo andare ad inserire nell'altra tabella rata tutte le rate (esempio se il numero delle rate della tabella commessa è 2 devo poter inserire nella tabella rata due volte l'importo delle rate collegate sempre a quella commessa)
Qualche suggerimento???
E soprattutto come recupero l'ID della tabella commessa dopo aver fatto l'insert per poterlo inserire nella tabella rata?????
Spero di essere stata chiara.
Grazie at tutti

[Pinco Pallino 2]

Non ci ho capito una ma..a!

Mi sembra di aver intuito che hai un problema di relazioni.

Cioè se il cambo RATA in COMMESSA è 2 vuoi poter inserire le 2 rate?
Una cosa del genere?

[marciadona]

Il problema sono le relazioni ... vorrei poter inserire tante rate quanto sono quelle scritte nella tabella commessa.
Es. nella tabella commessa il campo rata è 2
vorrei che si aprisse il form rata e mi permettese di aggiungere 4 rata collegate all'ID della commessa.

[Pinco Pallino 2]

Hai solo quei 2 campi? Se il DB non è enorma mandalo via mail:

mail@mail.it

non sono un Asso con VB e devo veder bene com'è strutturato il DB.

Se è semplice scrivimi pure tutte le tabelle e i campi qui!
CIAO!

[marciadona]

Il db è normale
le tabelle sono commessa con i campi
idcommessa
descrizione
rate

la tabella rate con i campi
idrate
idcommessa
importo
datarata

[Jupy64]

Ciao, a grandi linee (buttata giù al volo)..

inserisci il record nella tabella commessa :

strSQL="INSERT INTO COMMESSA (descrizione, rate) VALUES ('" & txtDes.txt & "'," & txtNumRate.text & ");"

Recuperi l'idCommessa usando una funzione del genere:

Private Function UltimoId(nTabella As String) As Long
   Dim ultimo_id As Long
   Dim objRs As ADODB.Recordset
   Set objRs = New ADODB.Recordset
   objRs.Open "SELECT @@IDENTITY FROM " & nTabella & ";", tuaConnessione
   ultimo_id = objRs(0)
   objRs.Close
   Set objRs = Nothing
   UltimoId = ultimo_id
End Function

inserisci i record nella tabella rate

numIdCommessa=UltimoId("commessa")
for i=1 to txtNumRate.text
   strSQL="INSERT INTO RATE (idCommessa, importo, dataRata) VALUES (" & numIdCommessa & "," & txtImporto.text & ",#" & tuaData & "#);"
next

P.S. suppongo che idCommessa e idRate siano di tipo contatore!

[marciadona]

Innaznitutto grazie molte
I campi sono entrambi contatore

Facendo così però

For i = 1 To TxtRate
SQL = "insert into rata (datarata, idcommessa, importo) VALUES ('" & Txtdatarata.Text & " ', '" & Txtidcommessa.Text & " ', '" & TxtImporto.Text & "')"
cn.Execute (SQL)
Next

Non mi permette di inserire l'importo delle rate... mi spiego meglio se sono due le rate da inserire nella tabella rata in automatico inserisce due rate con lo stesso importo
Io vorrei poter inserire una rata di tot euro e subito dopo l'altra di importo diverso... e solo dopo il form delle rate si dovrebbe chiudere

[Jupy64]

in questo caso devi gestire tu il tutto in base a come imputi l'importo.. ora non so come hai strutturato il tutto per richiedere gli importi..
per farti un esempio, se lo imputi uno alla volta allora potresti mettere un inputBox all'interno del ciclo for...

del timpo
For i = 1 To TxtRate
importo=inputBox("Importo per la rata nr." & i)
SQL = "insert into rata (datarata, idcommessa, importo) VALUES ('" & Txtdatarata.Text & " ', '" & Txtidcommessa.Text & " ', '" & importo & "')"
cn.Execute (SQL)
Next

[marciadona]

Grazie ho risolto sei stato gentilissimo

[Jupy64]