VB6 Conoscere l'id di un Rs appena creato
- Creatore Discussione basy82
- Data di inizio
se ad esempio l'utente inserisce un dato univoco, come la sua email, puoi fare cosi
rs.open "select top 1 id from tabella where email = '" & email & "' order by id asc", cn, 1
fammi sapere!
rs.open "select top 1 id from tabella where email = '" & email & "' order by id asc", cn, 1
fammi sapere!
Luca credo di aver risolto..A volte mi perdo nelle cavolate..
Ti spiego meglio quello ke devo fare:
In base all'id devo creare il num di codice a barre - aggiungendo tot zeri per arrivare a 13 cifre - e salvarlo sul db.
Esempio:id=1 - CodiceBarre=0000000000001
Quando il cliente clikka "Nuovo Articolo"..Si apre un form con i text vuoti per fare l'inserimento..
Io vorrei che il text codice barre sia calcolato e visualizzato subito nel form load.
Ho Fatto così nel form_load (è solo un pezzo di codice..xkè uso lo stesso form per fare la modifica dei dati):
If AzioneArticolo = "Nuovo" Then
SqlId = "select * from Articoli order by ID Desc"
Call apriArticolo(SqlId) 'funzione ke ho scritto nel modulo che mi apre il RecordSet
id = Val(RsArticolo("ID")) + 1 ' l'id corrente + 1 è l'id nuovo..
Nzeri = 13 - Len(id) 'so quanti zeri devo aggiungere x arrivare a 13 cifre
For i = 1 To Nzeri
Zeri = Zeri & "0"
Next
TxtArticolo(2).Text = Zeri & id 'compongo il num di codice a barre in base all'id
Exit Sub
End If
Così dovrebbe andare...pare ke funzioni..ma visto ke il codice a barre deve esere univoco..non posso permettermi errori..
Ti spiego meglio quello ke devo fare:
In base all'id devo creare il num di codice a barre - aggiungendo tot zeri per arrivare a 13 cifre - e salvarlo sul db.
Esempio:id=1 - CodiceBarre=0000000000001
Quando il cliente clikka "Nuovo Articolo"..Si apre un form con i text vuoti per fare l'inserimento..
Io vorrei che il text codice barre sia calcolato e visualizzato subito nel form load.
Ho Fatto così nel form_load (è solo un pezzo di codice..xkè uso lo stesso form per fare la modifica dei dati):
If AzioneArticolo = "Nuovo" Then
SqlId = "select * from Articoli order by ID Desc"
Call apriArticolo(SqlId) 'funzione ke ho scritto nel modulo che mi apre il RecordSet
id = Val(RsArticolo("ID")) + 1 ' l'id corrente + 1 è l'id nuovo..
Nzeri = 13 - Len(id) 'so quanti zeri devo aggiungere x arrivare a 13 cifre
For i = 1 To Nzeri
Zeri = Zeri & "0"
Next
TxtArticolo(2).Text = Zeri & id 'compongo il num di codice a barre in base all'id
Exit Sub
End If
Così dovrebbe andare...pare ke funzioni..ma visto ke il codice a barre deve esere univoco..non posso permettermi errori..
