What's new

Closed Need help

Status
Not open for further replies.

kingki

Addict
Joined
Jan 30, 2016
Posts
11
Reaction
4
Points
65
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
 
Status
Not open for further replies.
Back
Top