vb net procedura ExecuteNonQuery

[Commando]

Ragazzi
sto facendo una select di una tabella e l'attribuisco as un commandtext di ado.net , poi faccio eseguire il executereader per riempire il datareader e poi faccio un while wend del datareader, esempio

while datareader.read=true

wend

all'interno della while wend devo fare un'INSERT DI SQL,ma quando passo all'instruzione command.ExecuteNonQuery mi da il segeunte errore: Commands out of sync; You can't run this command now.

come posso risolvere questo errore, mi potete far vedere qualche riga di codice?

GRAZIE

[darkblOOd]

mai visto quest'errore...

comincia a postare tu il codice cha hai scritto, non si sa mai

[Commando]

NON HAI MAI VISTO QUESTO ERRORE PERCHE' USO MYSQLNET PROVIDER PER CONNETTERMI CON ADO.NET AL DATABSE MYSQL, TI POSSO DIRE CHE HO NOTATO CHE SE CHIDO IL READ DEL DATAREADER PRIMA CHE FACCIO L'EXECUTENONQUERY, L'INSERT FUNZIONA MA POI NON MI FUNZIONA OVVIAMENTE LA WHILE WEND. SECONDO NON C'è SINCRONIA MA NON SO COME POSSO RISOLVERLO

[darkblOOd]

Originariamente inviato da Commando
NON HAI MAI VISTO QUESTO ERRORE PERCHE' USO MYSQLNET PROVIDER PER CONNETTERMI CON ADO.NET AL DATABSE MYSQL, TI POSSO DIRE CHE HO NOTATO CHE SE CHIDO IL READ DEL DATAREADER PRIMA CHE FACCIO L'EXECUTENONQUERY, L'INSERT FUNZIONA MA POI NON MI FUNZIONA OVVIAMENTE LA WHILE WEND. SECONDO NON C'è SINCRONIA MA NON SO COME POSSO RISOLVERLO

A) non ho 11/10 ma ci leggo

B) eccheccacchio ne so che usi mysqlnet se non lo specifichi?

C) in ogni caso se postavi il codice magari potevo vedere se c'è qualcosa che ti è sfuggita

D) buon lavoro

[Commando]

Tieni presente che è molto personalizzato.

'***eliminazione dati tabella stampaschedine***
Dim sql As String
sql = "DELETE FROM stampaschedine"
Dim MysqlCmd1 As New MySqlCommand(sql, db)
MysqlCmd1.ExecuteNonQuery()
'----------------------------------------------
MySqlCmd.CommandText = "SELECT * FROM gestcliente WHERE codice='" & Me.Label9.Text & "'" & "ORDER BY codice,progschedina,cod_alloggiato,cognome,nome"
MySqlDrd_1 = MysqlCmd.ExecuteReader
While MySqlDrd_1.Read = True
Try
Dim sql1 As String
sql1 = "INSERT INTO stampaschedine(codice,data_elaborazione,progschedi na,tipo_alloggiato,data_arrivo,cognome,nome,sesso, data_nascita,luogo_nascita,comune_nascita,prov_nas cita,cittadinanza,luogo_residenza,prov_residenza,s tato_residenza,documento,ndoc,luogo_doc,stato_doc) VALUES ('" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("codice" )) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("data_el aborazione")) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("progsch edina")) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("tipo_al loggiato")) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("data_ar rivo")) & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "cognome")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "nome")), "'", "''") & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("sesso") ) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("data_na scita")) & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "luogo_nascita")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "comune_nascita")), "'", "''") & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("prov_na scita")) & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "cittadinanza")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "luogo_residenza")), "'", "''") & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("prov_re sidenza")) & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "stato_residenza")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "documento")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "ndoc")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "luogo_doc")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "stato_doc")), "'", "''") & "')"
Dim MySqlcmd2 As New MySqlCommand(sql1, db)
MySqlcmd2.ExecuteNonQuery()
Catch
MsgBox(Err.Description, MsgBoxStyle.Critical, "Hotel Manager")
End Try
End While
MySqlDrd_1.Close()