Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Alexsandro e Carvalho M.

RFID e Banco de Dados Access

Recommended Posts

Olá, estou precisando da ajuda de vocês, tenho um projeto de conclusão de curso, que usa o Arduino com RFID para controle de acesso de pessoas e o banco de dados para controle de registro de usuário, o meu programa no visual basic não tá conseguindo comparar a informação obtida do Arduino com a que esta cadastrada no banco de dados com o campo CODIGO CHAVE, estou postando o programa, não consigo achar o erro.

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO.Ports
Imports System.Data.OleDb



Module Module1
Private objCmd As Object

Sub Main()
AddRecord()
RemoveRecord()
Pause()
End Sub
Sub Pause()
Console.WriteLine("Apertar Enter para continuar...")
Console.ReadLine()
End Sub
Sub AddRecord()
Dim sConnectionString As String = "User ID=<username>;Password=<strong password>;Initial Catalog=pubs;Data Source = (local)"
Dim objConn As New SqlConnection(sConnectionString)
objConn.Open()
Dim sSQL As String = "INSERT INTO Employee " & "(emp_id, fname, minit, lname, job_id, job_lvl, pub_id, hire_date)" & "VALUES ('MSD12923F', 'Duncan', 'W', 'Mackenzie', " & "10, 82,'0877','2001-01-01')"
Dim objCmd As New SqlCommand(sSQL, objConn)
Try
objCmd.ExecuteNonQuery()
Catch e As Exception
Console.WriteLine(e.Message)
End Try
Console.WriteLine("Adicionar Gravação")
End Sub
Sub RemoveRecord()
Dim sConnectionString As String = "User ID=<username>;Password=<strong password>;Initial Catalog = pubs;Data Source = (local)"
Dim objConn As New SqlConnection(sConnectionString)
objConn.Open()
Dim sSQL As String = "DELETE FROM Employee WHERE emp_id = @emp_id"
Dim objCmd As New SqlCommand(sSQL, objConn)
objCmd.Parameters.Add("@emp_id", SqlDbType.Char, 9)
objCmd.Parameters.Item("@emp_id").Value = "MSD12923F"
Try
objCmd.ExecuteNonQuery()
Console.WriteLine("Apagar Gravação")
Catch e As Exception
Console.WriteLine(e.ToString)
End Try
Console.WriteLine("Apagar Gravação")
Console.ReadLine()
End Sub

Private Function sConnectionSt() As String
Throw New NotImplementedException()
End Function
End Module

Public Class Form1

Dim portacom As String = ""
Dim dadorecebido As String = ""
Dim str As String
Dim CONEXÃO As New OleDbConnection
Dim COMMAND As New OleDbCommand
Dim ADAPTADOR As New OleDbDataAdapter
Dim DADOS As New DataTable
Dim SQL As String




Private Sub BindingSource1_CurrentChanged(sender As Object, e As EventArgs) Handles BindingSource1.CurrentChanged

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DataSet1.usuario' table. You can move, or remove it, as needed.
Me.UsuarioTableAdapter.Fill(Me.DataSet1.usuario)
Control.CheckForIllegalCrossThreadCalls = False
End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.UsuarioTableAdapter.Insert(TXTNOME.Text, TXTREGISTRO.Text, TXTATIVIDADE.Text, TXTCODIGO.Text)
Me.UsuarioTableAdapter.Update(DataSet1.usuario)
MsgBox("Gravado com Sucesso!")
Me.UsuarioTableAdapter.Fill(Me.DataSet1.usuario)
End Sub

Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
portacom = ComboBox1.SelectedItem
If (portacom = "") Then
MsgBox("Selecione uma porta COM")
Else
portacom = ComboBox1.SelectedItem
Button2.Visible = False
Button3.Visible = True
SerialPort1.PortName = portacom
SerialPort1.BaudRate = 9600
Timer1.Enabled = True
SerialPort1.Open()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SerialPort1.Close()
Button2.Visible = True
Button3.Visible = False
Timer1.Enabled = True

End Sub


Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
dadorecebido = SerialPort1.ReadLine()

Dim CONEXAO As OleDbConnection = Nothing
COMMAND.Connection = CONEXAO
COMMAND.CommandText = SQL
ADAPTADOR.SelectCommand = COMMAND

str = "SELECT * FROM usiario WHERE TXTCODIGO.text = "

Label8.Text = dadorecebido

If dadorecebido = "" & vbCr Then

Else
If dadorecebido <> "" & vbCr Then

Label8.Text = "ACESSO NEGADO"

End If

Label8.Text = "ACESSO LIBERADO"

End If

End Sub

Private Sub BindingNavigator1_RefreshItems(sender As Object, e As EventArgs) Handles BindingNavigator1.RefreshItems

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub
End Class

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.