AJUDA PARA GRAVA NO ARQUIV

ELMO01 08/07/2011 16:28:31
#378804
Boa tarde pessoal.

Estou tentando gravar os dados digitados em meu arquivo, só que me retorna o seguinte erro:


There is already an open DataReader associated with this Connection which must be closed first.


Abaixo está o código que estou utilizando para gracação.

Dim ValProcu As String
StrCotacao = [Ô]Server=[Ô] & Servidor & [Ô];User id=[Ô] & Usuarios & [Ô];password=[Ô] & Senhas & [Ô];database=[Ô] & Bancos & [Ô];[Ô]
[ô]*
ValProcu = [Ô]SELECT * FROM tab_cotacao01 where Numeros_Cota = [ô][Ô] & Matricula.Text & [Ô][ô][Ô]
Dim Conn As New MySqlConnection(StrCotacao)
Dim Cmd As New MySqlCommand(ValProcu, Conn)
Try
Dim dr As MySqlDataReader
Conn.Open()
dr = Cmd.ExecuteReader()
If Not dr.Read Then
Dim Campos01 As String
Dim Valores01 As String
[ô]*
Campos01 = [Ô](Numeros_Cota, Solicita_Cota, Comprad_Cota, Unidades_Cota, datacota_Cota,[Ô]
Campos01 = Campos01 & [Ô]Status_Forne, User_Name, User_Date, User_Time, User_Work, User_Node, User_Trav)[Ô]
[ô]*
Valores01 = [Ô](@Numeros_Cota, @Solicita_Cota, @Comprad_Cota, @Unidades_Cota, @datacota_Cota,[Ô]
Valores01 = Valores01 & [Ô]@Status_Forne, @User_Name, @User_Date, @User_Time, @User_Work, @User_Node, @User_Trav)[Ô]
[ô]*
Dim cSQL01 As String = [Ô]INSERT INTO tab_cotacao01[Ô] & Campos01 & [Ô] VALUES [Ô] & Valores01
Dim Cmd01 As New MySqlCommand(cSQL01, Conn)
[ô]*
Cmd01.Parameters.AddWithValue([Ô]@Numeros_Cota[Ô], Matricula.Text)
Cmd01.Parameters.AddWithValue([Ô]@Solicita_Cota[Ô], Solicita.Text)
Cmd01.Parameters.AddWithValue([Ô]@Comprad_Cota[Ô], Comprador.Text)
Cmd01.Parameters.AddWithValue([Ô]@Unidades_Cota[Ô], Unidade.Text)
Cmd01.Parameters.AddWithValue([Ô]@datacota_Cota[Ô], CDate(DataPed.Text))
Cmd01.Parameters.AddWithValue([Ô]@Status_Forne[Ô], [Ô]V[Ô])
Cmd01.Parameters.AddWithValue([Ô]@User_Name[Ô], NewUsuario)
Cmd01.Parameters.AddWithValue([Ô]@User_Date[Ô], Date.Now)
Cmd01.Parameters.AddWithValue([Ô]@User_Time[Ô], TimeString)
Cmd01.Parameters.AddWithValue([Ô]@User_Work[Ô], [Ô]INCLUSÃO[Ô])
Cmd01.Parameters.AddWithValue([Ô]@User_Node[Ô], [Ô]V[Ô])
Cmd01.Parameters.AddWithValue([Ô]@User_Trav[Ô], NewUsuario)
Cmd01.ExecuteNonQuery()

Conn.Close()
dr.Close()

End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

O que está de errado neste cõdigo.

Obrigado,
ADHEL 08/07/2011 16:33:36
#378807
Ao inves disso

Conn.Close()
dr.Close()

coloca assim
dr.Close()
Conn.Close()
ELMO01 08/07/2011 16:57:14
#378812
ADHEL - mesmo mudando o fechamento do arquivo ainda continua com a mesma mensagem.

O que fazer mais??

Obrigado,
ADHEL 08/07/2011 17:05:49
#378814 Resposta escolhida
Ja sei
Altera

Coloca depois do end if
dr.Close()
Conn.Close()

e não antes como está
ELMO01 08/07/2011 17:20:15
#378816
ADHEL - mesmo assim continua como mesmo erro.
Tópico encerrado , respostas não são mais permitidas
Voltar