Vb [2005]

[Kustelamaicaro 0]

to com um problema pra carregar colunas, alguem da um help hehehe

eu sei onde que ta dando erro

só nao consigo arruma

 

ele para aqui

Sub CarregaDadosProduto(ByVal CodContato As Long, ByVal Form As frmCadastroProdutos)

With Form

.Show()

Sql = "SELECT * FROM Produto WHERE" & _

" CODIGO=" & Int(CodContato)

Dim daContatos As New SqlCeDataAdapter(Sql, Connection)

Dim dsContatos As New DataSet

dsContatos.Clear()

► daContatos.Fill(dsContatos, "Produto") (AQUI QUE ELE PARA)

If dsContatos.Tables("Produto").Rows.Count > 0 Then

.lblCodigo.Text = dsContatos.Tables("Produto").Rows(0).Item("codigo").ToString

.txtNome.Text = dsContatos.Tables("Produto").Rows(0).Item("nome").ToString

.txtPreco.Text = dsContatos.Tables("Produto").Rows(0).Item("Preco").ToString

Else

MessageBox.Show("Contato não Localizado com o Código " & CodContato, "Nao Encontrou")

.Close()

Exit Sub

End If

' .cmdExcluir.Enabled = True

'.cmdAlterar.Enabled = True

' .cmdConfirmar.Enabled = False

End With

End Sub