ERRO DB STRING

FILMAN 22/06/2015 19:52:09
#448038
Resposta escolhida
Vinicius me deixa entender!

O campo Imagem é um campo varchar no banco de dados?
Que dados ele te retorna quando faz o SELECT, retorna nulo ou retorna em branco?

Se retorna nulo o que você fez é de fato a solução, mas não do jeito que você fez! Ficaria assim quando o campo é nulo ou branco!

Tente assim
	Dim codigo As String = Label4.Text
Dim sqll As String = [Ô]SELECT * FROM Cad_Cliente where N_Cad = [Ô] & codigo
Dim cm1 As New OleDb.OleDbCommand(sqll, dbcon)
Dim dr1 As OleDb.OleDbDataReader
Dim flag As Boolean = False
Try
dbcon.Open()
dr1 = cm1.ExecuteReader
If dr1.HasRows Then [txt-color=#007100][ô]Eu não colocaria essa expressão, pois o WHILE já faz isso pra você[/txt-color]
While dr1.Read
If dr1.Item([Ô]N_Cad[Ô]) = codigo Then [txt-color=#007100][ô]Essa expressão não precisa o WHERE já é o código[/txt-color]
If Not String.IsNullOrEmpty(dr1.Item([Ô]Imagem[Ô])) Then
flag = True
PictureBox1.Load(dr1.Item([Ô]Imagem[Ô]))
Else
[ô]Picture com uma imagem de [Ô]Nenhuma Foto[Ô]
End If
End If [txt-color=#007100][ô]Essa expressão não precisa o WHERE já é o código[/txt-color]
End While
End If [txt-color=#007100][ô]Eu não colocaria essa expressão, pois o WHILE já faz isso pra você[/txt-color]
If flag = False Then
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
dbcon.Close()



Espero ter ajudado!
VINICIUS2445 22/06/2015 23:44:17
#448039
E ajudou muito, muito obrigado, eu só não entendi o porque do uso da expressão If dr1.Item([Ô]N_Cad[Ô]) = codigo Then
FILMAN 22/06/2015 23:49:54
#448041
Seguinte, quando você fez o SELECT colocou no WHERE que o código é aquele! Então não precisa perguntar novamente se é igual lá no IF.

Se o problema foi resolvido, por favor encerre o tópico!
VINICIUS2445 22/06/2015 23:52:03
#448042
Claro, que foi, e a pontuação dele foi para você, só gostaria de ouvir sua resposta da minha pergunta acima!
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas