AJUDA EM CONSULTA SQL DATA VACINA

JONASJTG 21/04/2017 22:27:25
#473491

Pessoal acho que consegue!

Se alguém puder ver se o código esta certo agradeço pelo menos aqui ta dando certo!

Public Function verificabrincoevacina(ByVal vacinaatual As Integer) As Boolean
Dim dr As OleDbDataReader = Nothing
Using cn As OleDbConnection = conexaobd()

Try
cn.Open()

Dim PesquisaSQL As String

PesquisaSQL = [Ô]Select * from origemvacina where Brinco = [ô][Ô] & Me.txtbrincovacina.Text & [Ô][ô][Ô]
Dim cmd As OleDbCommand = New OleDbCommand(PesquisaSQL, cn)
cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]dtvacina[Ô], vacinaatual))

dr = cmd.ExecuteReader()

If dr.HasRows Then
While dr.Read()
vacinarepetida = dr.Item([Ô]dtvacina[Ô])

If Month(dr(2)) = Month(txtdtvacina.Text) And Year(dr(2)) = Year(txtdtvacina.Text) Then
MsgBox([Ô]Animal já foi vacinado neste mês.. Verifique! [Ô], 64, [Ô]ATENÇÃO[Ô])
Me.txtdtvacina.Text = [Ô][Ô]
Me.txtdtvacina.Focus()
End If
End While
Else
MsgBox([Ô]A pesquisa não retornou nenhuma informação[Ô], 64, [Ô]ATENÇÃO[Ô])
End If
If vacinarepetida <> [Ô][Ô] Then
Return True
End If

Return False
Catch ex As OleDbException
Return False
MsgBox(ex.Message, MsgBoxStyle.Critical, [Ô]Erro em dados Oledb[Ô])
Catch ex As Exception
Return False
MsgBox(ex.Message, MsgBoxStyle.Critical, [Ô]Erro de Sistema[Ô])
Finally
dr.Close()
cn.Close()
End Try
End Using
Return True
End Function

JONASJTG 27/04/2017 12:49:31
#473618

Bom dia pessoal!

Agradeço a todos!

deu certo o código abaixo!

Public Function verificabrincoevacina(ByVal vacinaatual As Integer) As Boolean

Dim dr As OleDbDataReader = Nothing
Using cn As OleDbConnection = conexaobd()

Try
cn.Open()

Dim PesquisaSQL As String

PesquisaSQL = [Ô]Select * from origemvacina where Brinco = [ô][Ô] & Me.txtbrinco.Text & [Ô][ô][Ô]
Dim cmd As OleDbCommand = New OleDbCommand(PesquisaSQL, cn)
cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]dtvacina[Ô], vacinaatual))

dr = cmd.ExecuteReader()

If dr.HasRows Then
While dr.Read()
vacinarepetida = dr.Item([Ô]dtvacina[Ô])

If Month(dr(2)) = Month(txtdtvacina.Text) And Year(dr(2)) = Year(txtdtvacina.Text) Then
MsgBox([Ô]Animal já foi vacinado neste mês.. Verifique! [Ô], 64, [Ô]ATENÇÃO[Ô])
Me.txtdtvacina.Focus()
Return False
End If
End While
ElseIf txtbrincovacina.Text <> PesquisaSQL Then
MsgBox([Ô]A pesquisa não retornou nenhuma informação[Ô], 64, [Ô]ATENÇÃO[Ô])
Return False
End If
Catch ex As OleDbException
MsgBox(ex.Message, MsgBoxStyle.Critical, [Ô]Erro em dados Oledb[Ô])
Return False
Catch ex As Exception
Return False
MsgBox(ex.Message, MsgBoxStyle.Critical, [Ô]Erro de Sistema[Ô])
Finally
dr.Close()
cn.Close()
End Try
End Using
Return True
End Function