AJUDA EM CONSULTA SQL DATA VACINA
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
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
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
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
Tópico encerrado , respostas não são mais permitidas