vB - Prendere ID da ListWiev

[stockgio86]

Come si fa? dopo aver cliccato su una riga(record) si apre un menu. una sceltà è la cancellazione del record. Dopo aver cliccato su di esso praticamente il record dovrebbe eliminarsi io ho scritto questo ma nn me lo prende

Private Sub CANCELLA_Click()

MsgBox "Sei Sicuro Di voler cancellare questo libro?"
MsgBox "Proprio Sicuro???????????"

STRSQL = "delete * from IMPIEGATI where ID = " & ID

MsgBox "CANCELLATI CON SUCCESSO"
End Sub

Questo è l'errore

Compile error
variable not defined
l'errore me lo da nel secondo id



come devo fare?

[xegallo]

Originariamente inviato da stockgio86
Come si fa? dopo aver cliccato su una riga(record) si apre un menu. una sceltà è la cancellazione del record. Dopo aver cliccato su di esso praticamente il record dovrebbe eliminarsi io ho scritto questo ma nn me lo prende

Private Sub CANCELLA_Click()

MsgBox "Sei Sicuro Di voler cancellare questo libro?"
MsgBox "Proprio Sicuro???????????"

STRSQL = "delete * from IMPIEGATI where ID = " & ID

MsgBox "CANCELLATI CON SUCCESSO"
End Sub

Questo è l'errore

Compile error
variable not defined
l'errore me lo da nel secondo id



come devo fare?

se ti da questo errore è perchè in testa al modulo hai scritto option explicit
e significa che devi perforza dichiarare le variabili
perciò
dim ID as tipodidato

poi se vuoi sapere come recuperare il valore dalla listview
listview1.selecteditem

p.s.
ti sarebbe possibile non aprire 2 discussioni per lo stesso argomento

[stockgio86]

Private Sub CANCELLA_Click()
Dim LID As Integer
LID = ltwAgenti.SelectedItem
Dim strsql As String

strsql = "delete * from IMPIEGATI where ID = " & LID

MsgBox "CANCELLATI CON SUCCESSO"
End Sub

questo è l'errore ke mi da:

Micorsoft visual basic
run-time error '13'
type mismatch

kosa significa?

[xegallo]

Originariamente inviato da stockgio86

Private Sub CANCELLA_Click()
Dim LID As Integer
LID = ltwAgenti.SelectedItem
Dim strsql As String

strsql = "delete * from IMPIEGATI where ID = " & LID

MsgBox "CANCELLATI CON SUCCESSO"
End Sub

questo è l'errore ke mi da:

Micorsoft visual basic
run-time error '13'
type mismatch

kosa significa?

che devi controllare nel database che tipo di datiè il campo ID nella tab impiegati

[ladyBlu]

Originariamente inviato da stockgio86

Private Sub CANCELLA_Click()
Dim LID As Integer
LID = ltwAgenti.SelectedItem
Dim strsql As String

strsql = "delete * from IMPIEGATI where ID = " & LID

MsgBox "CANCELLATI CON SUCCESSO"
End Sub

questo è l'errore ke mi da:

Micorsoft visual basic
run-time error '13'
type mismatch

kosa significa?

scrivi


Dim LID As Long
LID = CLng(ltwAgenti.SelectedItem)

[darkblOOd]

ma devi usare per forza una variabile? non puoi usare la proprietà della list che ti restituisce l'index dell'item cliccato? :master:

[stockgio86]

Originariamente inviato da darkblOOd
ma devi usare per forza una variabile? non puoi usare la proprietà della list che ti restituisce l'index dell'item cliccato? :master:

darkblood come faccio?
praticamente dal database la list prende il campo ID ke è la chiave primaria e il contatore quindi penso sia numerico giusto?

cosa devo inserire?

[stockgio86]

HO PROVATO A FARE QUESTO:

Private Sub CANCELLA_Click()
Dim ID As Long
ID = ltwAgenti.SelectedItem.SubItems(1)
Dim STRSQL As String

STRSQL = "delete * from IMPIEGATI where ID = " & ID

MsgBox "CANCELLATI CON SUCCESSO"
End Sub

avanza fino al msgbox ma nn mi cancella niente..cosa può esere?

[darkblOOd]

Originariamente inviato da stockgio86
darkblood come faccio?
praticamente dal database la list prende il campo ID ke è la chiave primaria e il contatore quindi penso sia numerico giusto?

cosa devo inserire?

devi vedere se per la listview esiste una proprietà che ti restituisce l'ID...quando carichi la lista, tu che fai? setti l'id del record come Id dell'item che stai inserendo nella lista? Se fai così, puoi usare la proprietà ListView.SelectedItem.Index (o qualcosa del genere, non mi ricordo la proprietà precisa)