Errore operazione non consentita se l'oggetto è chiuso

[xit]

Mi dà questo erroreperazione non consentita se l'oggetto è chiuso.
------------> qui mi dà errore

Private Sub cmdSalva_Click()
Dim collStrumento As New Collection
Dim dbConn As New ADODB.Connection
Dim strConnectionString As String
Dim strSQL As String
g_strConnectionString = "maia"
'Apro una connessione con il database
dbConn.ConnectionString = g_strConnectionString
Dim dbRec As New ADODB.Recordset
Dim strumento As String

While Not dbRec.EOF ------------->
strumento = dbRec("NomeStrumento")
cmbStrumento.AddItem strumento
collStrumento.Add Int(dbRec("ID_STRUMENTO")), strumento
dbRec.MoveNext

Dim iModello, iMarca, iStrumento
iModello = txtModello
iMarca = txtMarca
iStrumento = collStrumento(cmbStrumento.Text)
strSQL = "INSERT INTO Staff (Marca,Modello,ID_Strumento) VALUES ('" & iMarca & "','" & iModello & "','" & iStrumento & "')"
dbConn.Open
DoEvents
dbConn.Execute strSQL
MsgBox ("Dati inseriti")
dbConn.Close
Set dbConn = Nothing
Wend
End Sub

[ladyBlu]

mi sembra che tu non abbia scritto l'istruzione
dbRec.Open

[xit]

Mi dice connessione chiusa o non valida.

[ladyBlu]

ho notato che manca anche l'istruzione
dbConn.Open

[xit]

Ho provato a metterlo ma non funziona

[ladyBlu]

scusa ma perchè queste righe di codice

Dim iModello, iMarca, iStrumento
iModello = txtModello
iMarca = txtMarca
iStrumento = collStrumento(cmbStrumento.Text)
strSQL = "INSERT INTO Staff (Marca,Modello,ID_Strumento) VALUES ('" & iMarca & "','" & iModello & "','" & iStrumento & "')"
dbConn.Open
DoEvents
dbConn.Execute strSQL
MsgBox ("Dati inseriti")
dbConn.Close
Set dbConn = Nothing



le metti nel ciclo While?

prova a scrivere così:

Private Sub cmdSalva_Click()

Dim collStrumento As New Collection
Dim dbConn As New ADODB.Connection
Dim strConnectionString As String
Dim strSQL As String

g_strConnectionString = "maia"
'Apro una connessione con il database
dbConn.ConnectionString = g_strConnectionString

Dim dbRec As New ADODB.Recordset
Dim strumento As String

Dim iModello, iMarca, iStrumento
iModello = txtModello
iMarca = txtMarca
iStrumento = collStrumento(cmbStrumento.Text)
strSQL = "INSERT INTO Staff (Marca,Modello,ID_Strumento) VALUES ('" & iMarca & "','" & iModello & "','" & iStrumento & "')"
dbConn.Open
DoEvents
dbConn.Execute strSQL


While Not dbRec.EOF
strumento = dbRec("NomeStrumento")
cmbStrumento.AddItem strumento
collStrumento.Add Int(dbRec("ID_STRUMENTO")), strumento
dbRec.MoveNext
Wend

MsgBox ("Dati inseriti")
dbConn.Close
Set dbConn = Nothing

End Sub

[amodio]

dimmi esattamente su quali riga ti da l'errrore
per caso su rs.open?

se si-->allora nell'operazione precedente il recordset non lo hai chiuso

[ladyBlu]

amodio mio, sei dappertutto, non riesco a liberarmi di te!!!

[steno12]

Xit, questo codice che usi è un mio esempio e manca nel pulsante questo:

g_strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\db1.mdb; Persist Security Info=False"

Dim dbConn As New ADODB.Connection
Dim strConnectionString As String
Dim strSQL As String

Dim iNome, iCod As String
iNome = txtNome
iCod = MaskCodf


dbConn.ConnectionString = g_strConnectionString
dbConn.Open

controlla bene.............. e aggiusta il codice
in quanto hai chiuso la connessione al db.
quindi devi riconnetterti
guarda il tuo modulo.bas............ dove c'è:
g_strConnection, che è una variabile pubblica ecc, ecc.



link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[amodio]

ah ecco conn.close

io la chiudo al formqueryunload
ecco perche


x verodami
ehi se sei entrata qui dentro renditi utile
di qualcosa a sto povero ragazzo