Array
(
)

Problema em Rotina de SqlCommand (SqlServer 2005 compact)

Caneto
   - 17 jul 2008

Tenho a rotina abaixo, usando MultipleActiveResultSets=True, ele e executa o segundo comando Sql que é um insert ta disendo que insere o registro so que não faz nada...

Alguem poderia dar uma olhada, e me ajudar a ver o que tem de errado.

Obrigado
Carlos

---------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim strConn As String = My.Settings.LocadoraConnectionString.ToString()

´define objeto connection e command
Dim reg As Integer

Dim conn As New SqlConnection(strConn)

conn.ConnectionString = My.Settings.LocadoraConnectionString

Dim Clientes As New SqlCommand(´SELECT Nº, Nome, Sobrenome, Email_cobranca, Email_contato, Email_alternativo, Tel_Casa, Tel_Celular, Tel_Trabalho, Endereco1, Bairro1, Referencia1, ´ & _
´ Cidade, UF, Centraldeproducao, H_MinIsop, H_MinIntf, H_Max, H_Alvo, Onde, Interfona, Isopor, Observacoes, Entregador, Endereco2, Bairro2, ´ & _
´ Referencia2, Seg, Ter, Qua, Qui, Sex, Indicado_por, Motivo_de_inativacao, Qtd, Unit, Preco, Por, QT, Frequencia, x_sem, In_Per, Fn_Per, Vc_Per, Dias, ´ & _
´ In_Prx, Fn_Prx, Vc_Prx, Sld_pg_at, Sld_pg_px, Cr, Campo64, Cr31dez, Comentarios, Quem_toma, Sexo, Banco, Nome_completo, CPF, DI, Tipo, Eml, ´ & _
´ E_mail_Divulgacao, Atual, Novo ´ & _
´ FROM tbClientes ´, conn)

Try
conn.Open()

Using RsClientes As SqlDataReader = Clientes.ExecuteReader

While RsClientes.Read()

Dim cmdInsertCliente As New SqlCommand(´INSERT INTO Cliente (Nome,Telefone_res) values (@Nome,@TelRes)´, conn)

cmdInsertCliente.Parameters.AddWithValue(´@Nome´, RsClientes(´Nome´).ToString)
cmdInsertCliente.Parameters.AddWithValue(´@TelRes´, RsClientes(´Tel_Casa´).ToString)

MessageBox.Show(RsClientes(´Nome´).ToString)

reg = cmdInsertCliente.ExecuteNonQuery()

MessageBox.Show(reg.ToString + ´ registro de Usuário incluido com sucesso.´)

End While

MessageBox.Show(RsClientes(´Nome´).ToString)

End Using

conn.Close()

Catch ex As SqlException

MessageBox.Show(´Erro ao efetuar a conexão com a base de dados : ´ + ex.Message)
conn.Dispose()
End Try