0

hi. Experts

I'm developing a monitoring student in and out of residential college using RFID

My problem is i can scan the RFID tag but i did not know how to save it into database access.

here is the code i found on internet to connect detect rfid tag no

    Imports System
    Imports System.Threading
    Imports System.IO.Ports
    Imports System.ComponentModel


    Public Class Form1
        '------------------------------------------------
        Dim myPort As Array
        Delegate Sub SetTextCallback(ByVal [text] As String) 'Added to prevent threading errors during receiveing of data
        '------------------------------------------------
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

            myPort = IO.Ports.SerialPort.GetPortNames()
            ComboBox1.Items.AddRange(myPort)

            Button2.Enabled = False

        End Sub
        '------------------------------------------------
        Private Sub ComboBox1_Click(sender As System.Object, e As System.EventArgs) Handles ComboBox1.Click
        End Sub
        '------------------------------------------------
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            SerialPort1.PortName = ComboBox1.Text
            SerialPort1.BaudRate = ComboBox2.Text
            SerialPort1.Open()
            Button1.Enabled = False
            Button2.Enabled = True
            Button4.Enabled = True

        End Sub
        '------------------------------------------------
        Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

            SerialPort1.Write(RichTextBox1.Text & vbCr) 'concatenate with \n
        End Sub

        Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
            SerialPort1.Close()
            Button1.Enabled = True
            Button2.Enabled = False
            Button4.Enabled = False
        End Sub

        Private Sub SerialPort1_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
            ReceivedText(SerialPort1.ReadExisting())
        End Sub

        Private Sub ReceivedText(ByVal [text] As String) 'input from ReadExisting
            If Me.RichTextBox2.InvokeRequired Then
                Dim x As New SetTextCallback(AddressOf ReceivedText)
                Me.Invoke(x, New Object() {(text)})
            Else
                Me.RichTextBox2.Text &= [text] 'append text
            End If
        End Sub

        Private Sub RichTextBox2_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox2.TextChanged

        End Sub

        Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        End Sub

        Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

        End Sub

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

        End Sub

        Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

        End Sub

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

        End Sub
    End Class
2
Contributors
1
Reply
7
Views
2 Years
Discussion Span
Last Post by djjeavons
0

Hi

I don't see in your code anywhere where you are trying to save data to the database. What data do you want to save and what is the structure of your database (or table) where this data will reside?

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.