Pahelp namn newbie lang ako sa programming ang gamit ko pong language is VB.NET naconnect ko na po ung ginagawa kong form using RFID sa database kaso pag naglalagay ako ng rfid number sa textbox di naman lumalabas ung info na nandun sa access database q. d ko pa naliling ung rfid reader kasi wala pa akong pambili and textbox lang gamit ko
eto po ung code na ginawa ko
Imports System.Data.OleDb
Public Class Form2
Dim con As New OleDbConnection
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.ConnectionString = "provider= microsoft.jet.oledb.4.0; data source = C:\Users\Patricio\Documents\AKINTO LOYALTY PROGRAM.accdb"
con.Open()
showitems()
End Sub
Private Sub showitems()
Dim ds As New DataSet
Dim dt As New DataTable
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter("Select * From Accounts", con)
da.Fill(dt)
txtRfid.Text = dt.Rows(0).Item(0)
txtCompany.Text = dt.Rows(0).Item(1)
txtAddress.Text = dt.Rows(0).Item(2)
txtCperson.Text = dt.Rows(0).Item(3)
txtCnumber.Text = dt.Rows(0).Item(4)
txtDissued.Text = dt.Rows(0).Item(5)
txtVuntil.Text = dt.Rows(0).Item(6)
con.Close()
End Sub
eto po ung code na ginawa ko
Imports System.Data.OleDb
Public Class Form2
Dim con As New OleDbConnection
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.ConnectionString = "provider= microsoft.jet.oledb.4.0; data source = C:\Users\Patricio\Documents\AKINTO LOYALTY PROGRAM.accdb"
con.Open()
showitems()
End Sub
Private Sub showitems()
Dim ds As New DataSet
Dim dt As New DataTable
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter("Select * From Accounts", con)
da.Fill(dt)
txtRfid.Text = dt.Rows(0).Item(0)
txtCompany.Text = dt.Rows(0).Item(1)
txtAddress.Text = dt.Rows(0).Item(2)
txtCperson.Text = dt.Rows(0).Item(3)
txtCnumber.Text = dt.Rows(0).Item(4)
txtDissued.Text = dt.Rows(0).Item(5)
txtVuntil.Text = dt.Rows(0).Item(6)
con.Close()
End Sub