[VB6] eliminazione record

[md76]

con questo codice mi elimina sempre il primo record del database e non quello selezionato. Utilizzo DAO (sono obbligato)


Dim dbsDatiAgobase As Database
Dim rstAnagrafica As Recordset
Dim sql As String


Set dbsDatiAgobase = OpenDatabase("c:\pippo\dati.mdb")
Set rstAnagrafica = dbsDatiAgobase.OpenRecordset("Anagrafica")

Dim MsgConferma As String

MsgConferma = rstAnagrafica!Cognome & " " & rstAnagrafica!Nome & vbCrLf & "Confermi l'eliminazione?"

'Se si risponde Si alla richiesta di conferma, cancella il record
If MsgBox(MsgConferma, vbYesNo + vbExclamation, "Eliminazione") = vbYes Then
With rstAnagrafica
.Delete
.MoveNext
End With
'Se sono alla fine torna all'ultimo
If rstAnagrafica.EOF Then rstAnagrafica.MoveLast
End If

[md76]

Nella guida VB ho trovato questo esempio per eliminare un record utilizzando DAO.

Volevo sapere perfavore che valore devo passare io sulla riga di codice che dice: .Index = "ChiavePrimaria", ma cosa devo passare il textbox con l'ID del cliente attivo o qualcosa altro ?


GRAZIE

.....

Dim dbsDatiAgobase As Database
Dim rstAnagrafica As Recordset
Dim lngID As Long


Set dbsDatiAgobase = OpenDatabase("c:\pippo\dati.mdb")
Set rstAnagrafica = dbsDatiAgobase.OpenRecordset("Anagrafica")

With rstAnagrafica
.Index = "ChiavePrimaria"
.AddNew
!Nome = txtNome
!Cognome = txtCognome
.Update
.Bookmark = .LastModified
lngID = !ID
End With

rstAnagrafica.Close
dbsDatiAgobase.Close

......

[tomhead]

addnew?!?

[md76]

questo e' l'esempio disponibile nella guida di vb.

[xegallo]

hai provato con delle istruzioni Delete sql?

db.executeSQL "Delete from tabella where condizioni"

[md76]

adesso provo e poi ti faccio sapere, ca..o pensavo fosse tutto piu' semplice con sti database e dao. Comunque non perdo la fiducia. Grazie delle info.

[md76]

niente da fare ma forse sbaglio io la stringa sql.

Io in pratica devo dire: cancellami il record nella tabella Angrafica che abbia il campo ID uguale al contenuto del textbox txtID che chiaramente riporta l'ID del cliente attivo in quel momento.

[md76]

Ho fatto questa funzione per eliminare un record e funziona pero' vorrei passare il valore di una variabile anziche' il valore diretto del n° ID da eliminare come faccio nell'esempio sotto. Io ho provato di tutto ma non ci rieso. Ho provato a scriviere ..... where id=txtID, .....where id=variabile con valore dell'ID non mi funziona, dove sbaglio ?


Code:

Dim dbsDatiAgobase As Database
Dim rstAnagrafica As Recordset
Dim varID As Long

varID = txtID

Set dbsDati = OpenDatabase("c:\pippo\dati.mdb")
Set rstAnagrafica = dbsDati.OpenRecordset("SELECT * FROM anagrafica WHERE ID=8")

With rstAnagrafica
If Not .EOF Then
.Delete
End If
End With

[MMarzia]

presumo che l'ID sia numerico
quindi deve esserlo anche la variabile

[Misterxxx]

Set rstAnagrafica = dbsDati.OpenRecordset("SELECT * FROM anagrafica WHERE ID=" & varID)