VB.NET Programming Corner!

Redxxx · Jan 12, 2017

ericgmejia said:
I made this thread for all programmers starting their adventure in VB.NET.

Please post relevant and sensible questions regarding VB.NET,
share your knowledge and expertise, share codes and techniques.

Post question on HOW TOs:
How to do this or that, ill supply bits of code to accomplish basic tasks.

Ill be posting series of samples leading to complete applications,
your suggestions are encouraged.
These samples will contain codes relevant to other tasks as well.

Platform = VS2003 to VS2012

i suggest learn and get the feel of VB.NET/VISUAL STUDIO IDE first before posting questions,
so that we can talk on the same page.

Topics:
VB.NET Winforms (not Web Applications)
ADO.NET as applied in VB.NET
Crystal Reports on VB.NET
SQLServer as used in VB.NET
MSAccess as used in VB.NET
Classes
UserControls

Technologies:
Serial - like using SMS, Barcode and other hardware
TCP/IP - chat applications, sockets, internet applications
MSMQ - message queuing
Remoting - executing assemblies in other computer
WebServices - using webservices in windows forms
Multithreading - executing more than 1 process at the same time

Suggested Third Party Tools:
DevXPress 2009 Free Edition
SQLServer 2005 Express Edition

Suggested references:
http://www.homeandlearn.co.uk/net/vbnet.html
http://www.java2s.com/Tutorial/VB/CatalogVB.htm

I currently use Visual Studio 2008 only, but basic codes will apply to all versions

Please do not ask for a complete system,
instead use the codes and assistance that you will find here
to build your own system.

***Thanks to moderators, STICKY na ang thread!

Lets share knowledge so that we can be a more flexible and well rounded programmer. Be it for school or work.

Links:

First Post: Populating DataGridView using MSAccess Database
Second Post : Basic VB.NET MSAccess Tutorial
SQLServer Sample

ty professional ITs

jessiebam · Jan 13, 2017

maraming salamat d2 idol..malaking tulong ito...thanks

speedgamer21 · Jan 14, 2017

May way ba para ma-search yung specific string sa isang row? Ayaw kasi mag-search kapag hindi full name yung ilalagay di niya nasesearch. I'm using vb.net + mysql with soundex function. I tried using 'concat' function ni mysql pero yung first word lang yung nakukuha niya kapag last word sa string naman di niya mahanap

eto yung code ko

Try

con.ConnectionString = "Server = '" & My.Settings.host & "'; " _
& "Database = '" & My.Settings.database & "'; " _
& "user id = '" & My.Settings.user & "'; " _
& "password = '" & My.Settings.password & "'"

Dim cmd As New MySqlCommand("SELECT * FROM donorprofile WHERE SOUNDEX(Name) LIKE CONCAT('%',SOUNDEX('" & frmsearchd.txtsearch.Text & "'),'%')", con)

con.Open()
da.SelectCommand = cmd
da.Fill(dt)
frmsearchd.dgvdonor.DataSource = dt

con.Close()

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Blood Bank Management System - Error!")
con.Close()
End Try

kudeta21 · Jan 16, 2017

speedgamer21 said:
May way ba para ma-search yung specific string sa isang row? Ayaw kasi mag-search kapag hindi full name yung ilalagay di niya nasesearch. I'm using vb.net + mysql with soundex function. I tried using 'concat' function ni mysql pero yung first word lang yung nakukuha niya kapag last word sa string naman di niya mahanap

eto yung code ko

sa SQL query mo lang sir, "select * from table where column like '%keyword%'"

UtakVerde · Jan 18, 2017

mga bossing ask lang po where to start... gusto ko pong gamitin yung vb.net to create a custom editor ng openstreetmap. just like JOSM

imperfects · Jan 19, 2017

Pa tambay

back read muna ako.. :upset:

joggy14 · Jan 20, 2017

sir paturo naman po kung pano gumawa ng auto sms sa vb.net salamat po

bluepearl · Jan 24, 2017

master meron kabang tut d2 paano yung gumamit ng LINQ para naman medjo mapaiksi ang code..

- - - Updated - - -

gud pm ..sir vb6.0 ako dati..gusto ko matuto ng vb.net..ano po ba kakaiba nila?..tulongan niu nman ako paano gumawa ng sample crud sa vb.net using linq..

kung pwdi lang po,..salamat

katboga · Jan 29, 2017

malaking tulong maraming salamt po master

TriGETZ · Jan 29, 2017

pa help mga kuya

can someone provide help? Trying to search data from data grid view using binding source

I'm using 2 text box with 2 different columns to search but only one can be search on at a time

Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
StudenName.Enabled = False
StudentNo.Enabled = True
StudenName.Text = Nothing
End Sub

Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
StudenName.Enabled = True
StudentNo.Enabled = False
StudentNo.Text = Nothing
End Sub
and this where i need to input the search code

Private Sub Search_Click(sender As System.Object, e As System.EventArgs) Handles Search.Click
If StuNo.Checked = True Then
'search code

Else
'search code
End If
End Sub
what i read in other thread is using binding source find and filter,

I'm Using visual studio 10 and access as databased

original post
http://stackoverflow.com/q/41918092/7478662

kudeta21 · Jan 30, 2017

TriGETZ said:
pa help mga kuya

can someone provide help? Trying to search data from data grid view using binding source

I'm using 2 text box with 2 different columns to search but only one can be search on at a time

Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
StudenName.Enabled = False
StudentNo.Enabled = True
StudenName.Text = Nothing
End Sub

Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
StudenName.Enabled = True
StudentNo.Enabled = False
StudentNo.Text = Nothing
End Sub
and this where i need to input the search code

Private Sub Search_Click(sender As System.Object, e As System.EventArgs) Handles Search.Click
If StuNo.Checked = True Then
'search code

Else
'search code
End If
End Sub
what i read in other thread is using binding source find and filter,

I'm Using visual studio 10 and access as databased

original post
http://stackoverflow.com/q/41918092/7478662

my database kang gamit sir?

XenoGears21 · Jan 30, 2017

mga master patulong naman , pano po ba gumamit ng overloading??

may ginagawa po kasi ako ordering system , tpos gumamit ako ng user control tpos pinapalabas ko sya sa panel, sa unang user control(product) ko nandun yung mga name ng product tpos may isang button don na mag a-add to cart , tpos may isa pakong user control (cart) nandun nmn yung listbox , kelangan pag nag add to cart ako dapat lumabas sya sa listbox ng cart ko . nag tanong npo ako sa mga group may isang nag sabi sakin gamit daw ako overloading ang kaso dko naman sya alam, may alam po ba kayong way para masolve problem ko ??? salamat po in advance mga master

URAZKY · Jan 31, 2017

Hi Guys,

Pa-help naman ako oh! may ginawa kasi akong system record management system. ang napansin ko sa system na ginawa bakit ganun po pag ni reretrieve ko na yung database ko ang tagal mag load ng data sa form ganun din yung pag mag sesearch ako ng record sa db ang bagal din. bale ang setup na ginawa ko is naka server siya. then yung record is may mga picture siya ng crew/employees. ano po kaya problem bakit ang tagal ko ma retrieve yung data ko from my server? salamat po.

Ito po yung screenshot ng form na ginawa ko pag ni run and nag search ako ang tagal bago lumabas po ng data po diyan.

View attachment 301719

Note:

pag naka stand alone ako mabilis naman po yung retrieval ng database.

maskio · Jan 31, 2017

URAZKY said:
Hi Guys,

Pa-help naman ako oh! may ginawa kasi akong system record management system. ang napansin ko sa system na ginawa bakit ganun po pag ni reretrieve ko na yung database ko ang tagal mag load ng data sa form ganun din yung pag mag sesearch ako ng record sa db ang bagal din. bale ang setup na ginawa ko is naka server siya. then yung record is may mga picture siya ng crew/employees. ano po kaya problem bakit ang tagal ko ma retrieve yung data ko from my server? salamat po.

Ito po yung screenshot ng form na ginawa ko pag ni run and nag search ako ang tagal bago lumabas po ng data po diyan.

View attachment 1179492

Note:

pag naka stand alone ako mabilis naman po yung retrieval ng database.

maraming factor ang possibleng nakakaapekto sa bagal ng pag retrieve ng data. isa is ang network mo, if nasa 100Mb ka na network at masyadong malaki ang data na hinuhugot mo, mabagal yun; kung may ibang gumagamit ng network mo at kinakain nya ang allocation mo ng 100Mb, isa din yun. pwede din na yung retrieval ng data mo on the database level is mabagal, like, walang index. pag lumaki kasi ang db, mas maraming rows ang kailangan basahin ng database. pwede din na may packet loss ka during transmission ng data. pwede din cguro sa firewall or antivirus (not sure).

kung may picture, medyo malaki na data ang e ttransfer mo over sa network, try mo kunin ang pic via backgroundworker, kung thumbnail lang naman ang ipapalabas mo sa form, add ka ng additional column sa database ng thumbnail tapos yun lang hugutin mo para maliit, lagyan mo nalang ng option to view full size image.

sana may idea kang nakuha.

- - - Updated - - -

XenoGears21 said:
mga master patulong naman , pano po ba gumamit ng overloading??

may ginagawa po kasi ako ordering system , tpos gumamit ako ng user control tpos pinapalabas ko sya sa panel, sa unang user control(product) ko nandun yung mga name ng product tpos may isang button don na mag a-add to cart , tpos may isa pakong user control (cart) nandun nmn yung listbox , kelangan pag nag add to cart ako dapat lumabas sya sa listbox ng cart ko . nag tanong npo ako sa mga group may isang nag sabi sakin gamit daw ako overloading ang kaso dko naman sya alam, may alam po ba kayong way para masolve problem ko ??? salamat po in advance mga master

ang ginagawa ko pag ganito, meron akong function sa form kung saan ang mga usercontrols ay napapaloob, tapos tatawagin ko lang ang function na yun. pwede mo din ilagay sa class ang function para recyclable na sa ibang forms.

e.g.

form_container -> dito ang function mo "public sub add_to_cart(byval myusercontrol as usercontrol_type_here)"
usercontrol_item -> dim myParentForm as form = me.findform
myParentForm.add_to_cart(me)

- - - Updated - - -

TriGETZ said:
pa help mga kuya

can someone provide help? Trying to search data from data grid view using binding source

I'm using 2 text box with 2 different columns to search but only one can be search on at a time

Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
StudenName.Enabled = False
StudentNo.Enabled = True
StudenName.Text = Nothing
End Sub

Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
StudenName.Enabled = True
StudentNo.Enabled = False
StudentNo.Text = Nothing
End Sub
and this where i need to input the search code

Private Sub Search_Click(sender As System.Object, e As System.EventArgs) Handles Search.Click
If StuNo.Checked = True Then
'search code

Else
'search code
End If
End Sub
what i read in other thread is using binding source find and filter,

I'm Using visual studio 10 and access as databased

original post
http://stackoverflow.com/q/41918092/7478662

dim mCommand as new sqlcommand ' or kung ano man ang equivalent na call neto sa access
mcommand.commandtext = "SELECT column1, column2 FROM table WHERE column1 = @filter1 AND column2 = @filter2;"
mcommand.parameter.addwithvalue("@filter1", your_textbox_here1.text)
mcommand.parameter.addwithvalue("@filter2", your_textbox_here2.text)

' execute sqlcommand here

or

SELECT column1, column2 FROM table;
ipasa mo sa datatable ang result then,
datatable.select(string.format("column1= {0} and column2 = {1}", filter1.text, filter2.text))

something similar to that...

URAZKY · Jan 31, 2017

maskio said:
maraming factor ang possibleng nakakaapekto sa bagal ng pag retrieve ng data. isa is ang network mo, if nasa 100Mb ka na network at masyadong malaki ang data na hinuhugot mo, mabagal yun; kung may ibang gumagamit ng network mo at kinakain nya ang allocation mo ng 100Mb, isa din yun. pwede din na yung retrieval ng data mo on the database level is mabagal, like, walang index. pag lumaki kasi ang db, mas maraming rows ang kailangan basahin ng database. pwede din na may packet loss ka during transmission ng data. pwede din cguro sa firewall or antivirus (not sure).

kung may picture, medyo malaki na data ang e ttransfer mo over sa network, try mo kunin ang pic via backgroundworker, kung thumbnail lang naman ang ipapalabas mo sa form, add ka ng additional column sa database ng thumbnail tapos yun lang hugutin mo para maliit, lagyan mo nalang ng option to view full size image.

sana may idea kang nakuha.

- - - Updated - - -

ang ginagawa ko pag ganito, meron akong function sa form kung saan ang mga usercontrols ay napapaloob, tapos tatawagin ko lang ang function na yun. pwede mo din ilagay sa class ang function para recyclable na sa ibang forms.

e.g.

form_container -> dito ang function mo "public sub add_to_cart(byval myusercontrol as usercontrol_type_here)"
usercontrol_item -> dim myParentForm as form = me.findform
myParentForm.add_to_cart(me)

- - - Updated - - -

dim mCommand as new sqlcommand ' or kung ano man ang equivalent na call neto sa access
mcommand.commandtext = "SELECT column1, column2 FROM table WHERE column1 = @filter1 AND column2 = @filter2;"
mcommand.parameter.addwithvalue("@filter1", your_textbox_here1.text)
mcommand.parameter.addwithvalue("@filter2", your_textbox_here2.text)

' execute sqlcommand here

or

SELECT column1, column2 FROM table;
ipasa mo sa datatable ang result then,
datatable.select(string.format("column1= {0} and column2 = {1}", filter1.text, filter2.text))

something similar to that...

Sir, pano yung sinasabi mong walang index? and yung backgroundworker pano ko po integrate sa system ko yun? patulong naman TS! yun nalang talaga problem ko sa system ko eh! since naka network nga siya. salamat

maskio · Jan 31, 2017

URAZKY said:
Sir, pano yung sinasabi mong walang index? and yung backgroundworker pano ko po integrate sa system ko yun? patulong naman TS! yun nalang talaga problem ko sa system ko eh! since naka network nga siya. salamat

post your code ng pag fetch ng data from the database.

URAZKY · Jan 31, 2017

maskio said:
post your code ng pag fetch ng data from the database.

Ito po yung code ko TS!

Private Sub MTGIDDetails_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles MTGIDDetails.CellClick
Try
TxtSeqNo.Text = MTGIDDetails.Item(1, e.RowIndex).Value.ToString
TxtSName.Text = MTGIDDetails.Item(2, e.RowIndex).Value.ToString
TxtFName.Text = MTGIDDetails.Item(3, e.RowIndex).Value.ToString
TxtMName.Text = MTGIDDetails.Item(4, e.RowIndex).Value.ToString
CBPos.Text = MTGIDDetails.Item(5, e.RowIndex).Value.ToString
CBVessel.Text = MTGIDDetails.Item(6, e.RowIndex).Value.ToString
TxtSalary.Text = MTGIDDetails.Item(7, e.RowIndex).Value.ToString
DTPValid.Text = MTGIDDetails.Item(8, e.RowIndex).Value.ToString
DTPCrewbirth.Text = MTGIDDetails.Item(9, e.RowIndex).Value.ToString
TxtBType.Text = MTGIDDetails.Item(10, e.RowIndex).Value.ToString
TxtINName.Text = MTGIDDetails.Item(11, e.RowIndex).Value.ToString
TxtINRela.Text = MTGIDDetails.Item(12, e.RowIndex).Value.ToString
TxtINAddress.Text = MTGIDDetails.Item(13, e.RowIndex).Value.ToString
TxtINContact.Text = MTGIDDetails.Item(14, e.RowIndex).Value.ToString
DTPStart.Text = MTGIDDetails.Item(17, e.RowIndex).Value.ToString
DTPEnd.Text = MTGIDDetails.Item(18, e.RowIndex).Value.ToString
CBStatus.Text = MTGIDDetails.Item(24, e.RowIndex).Value.ToString
CBComp.Text = MTGIDDetails.Item(25, e.RowIndex).Value.ToString
TxtSSS.Text = MTGIDDetails.Item(19, e.RowIndex).Value.ToString
TxtTIN.Text = MTGIDDetails.Item(20, e.RowIndex).Value.ToString
TxtPhil.Text = MTGIDDetails.Item(21, e.RowIndex).Value.ToString
TxtPag.Text = MTGIDDetails.Item(22, e.RowIndex).Value.ToString
TxtMyContact.Text = MTGIDDetails.Item(23, e.RowIndex).Value.ToString
LblAge.Text = MTGIDDetails.Item(29, e.RowIndex).Value.ToString
CBOfficer.Text = MTGIDDetails.Item(31, e.RowIndex).Value.ToString
Dim ms As New MemoryStream(ChangeImage(CInt(MTGIDDetails.SelectedCells(0).Value)))
Dim mss As New MemoryStream(ChangeImage2(CInt(MTGIDDetails.SelectedCells(0).Value)))
PicCrew.Image = Image.FromStream(ms)
PicCrewSign.Image = Image.FromStream(mss)
Catch ex As Exception
MsgBox(ex.ToString)
Finally
If cn.State = ConnectionState.Open Then cn.Close()
End Try

Dim firstname As String
Dim lastname As String
Dim middlename As String

firstname = TxtFName.Text
lastname = TxtSName.Text
middlename = TxtMName.Text

LblFullname.Text = firstname & " " & lastname
End Sub

- - - Updated - - -

ito naman po yung code ko pag pinapalabas ko sa datagrid yung records

Public Sub showrecord()

cn.Open()

With cmd
.Connection = cn
.CommandText = "spSelectCrewid"
End With

da5.SelectCommand = cmd
dt5.Clear()
da5.Fill(dt5)
FrmIDData.MTGIDDetails.DataSource = dt5
cn.Close()

End Sub

maskio · Feb 1, 2017

URAZKY said:
Ito po yung code ko TS!

Private Sub MTGIDDetails_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles MTGIDDetails.CellClick
Try
TxtSeqNo.Text = MTGIDDetails.Item(1, e.RowIndex).Value.ToString
TxtSName.Text = MTGIDDetails.Item(2, e.RowIndex).Value.ToString
TxtFName.Text = MTGIDDetails.Item(3, e.RowIndex).Value.ToString
TxtMName.Text = MTGIDDetails.Item(4, e.RowIndex).Value.ToString
CBPos.Text = MTGIDDetails.Item(5, e.RowIndex).Value.ToString
CBVessel.Text = MTGIDDetails.Item(6, e.RowIndex).Value.ToString
TxtSalary.Text = MTGIDDetails.Item(7, e.RowIndex).Value.ToString
DTPValid.Text = MTGIDDetails.Item(8, e.RowIndex).Value.ToString
DTPCrewbirth.Text = MTGIDDetails.Item(9, e.RowIndex).Value.ToString
TxtBType.Text = MTGIDDetails.Item(10, e.RowIndex).Value.ToString
TxtINName.Text = MTGIDDetails.Item(11, e.RowIndex).Value.ToString
TxtINRela.Text = MTGIDDetails.Item(12, e.RowIndex).Value.ToString
TxtINAddress.Text = MTGIDDetails.Item(13, e.RowIndex).Value.ToString
TxtINContact.Text = MTGIDDetails.Item(14, e.RowIndex).Value.ToString
DTPStart.Text = MTGIDDetails.Item(17, e.RowIndex).Value.ToString
DTPEnd.Text = MTGIDDetails.Item(18, e.RowIndex).Value.ToString
CBStatus.Text = MTGIDDetails.Item(24, e.RowIndex).Value.ToString
CBComp.Text = MTGIDDetails.Item(25, e.RowIndex).Value.ToString
TxtSSS.Text = MTGIDDetails.Item(19, e.RowIndex).Value.ToString
TxtTIN.Text = MTGIDDetails.Item(20, e.RowIndex).Value.ToString
TxtPhil.Text = MTGIDDetails.Item(21, e.RowIndex).Value.ToString
TxtPag.Text = MTGIDDetails.Item(22, e.RowIndex).Value.ToString
TxtMyContact.Text = MTGIDDetails.Item(23, e.RowIndex).Value.ToString
LblAge.Text = MTGIDDetails.Item(29, e.RowIndex).Value.ToString
CBOfficer.Text = MTGIDDetails.Item(31, e.RowIndex).Value.ToString
Dim ms As New MemoryStream(ChangeImage(CInt(MTGIDDetails.SelectedCells(0).Value)))
Dim mss As New MemoryStream(ChangeImage2(CInt(MTGIDDetails.SelectedCells(0).Value)))
PicCrew.Image = Image.FromStream(ms)
PicCrewSign.Image = Image.FromStream(mss)
Catch ex As Exception
MsgBox(ex.ToString)
Finally
If cn.State = ConnectionState.Open Then cn.Close()
End Try

Dim firstname As String
Dim lastname As String
Dim middlename As String

firstname = TxtFName.Text
lastname = TxtSName.Text
middlename = TxtMName.Text

LblFullname.Text = firstname & " " & lastname
End Sub

- - - Updated - - -

ito naman po yung code ko pag pinapalabas ko sa datagrid yung records

Public Sub showrecord()

cn.Open()

With cmd
.Connection = cn
.CommandText = "spSelectCrewid"
End With

da5.SelectCommand = cmd
dt5.Clear()
da5.Fill(dt5)
FrmIDData.MTGIDDetails.DataSource = dt5
cn.Close()

End Sub

gaano ka laki ang mga images, at ilang records ang niloload mo sa showrecord()? gumawa ka ng additional column sa table mo, thumbnail, e resize mo ang original image nung pag save para sa thumbnail, during showrecord, thumbnail lang ang kunin mo, wag mo kunin ang buong picture, pag click, dun mo na event ilagay ang pagkuha ng full size image para mas mabilis mag load ang showrecord

third143 · Feb 1, 2017

Update:

I already found a solution.

speedgamer21 · Feb 1, 2017

Paano makakapag search ng specific string sa loob ng column using soundex? let's say na may 2 words sa isang column then yung tinaype mo lang is yung isang word dapat ma-search niya with soundex.

pag hindi ako gumamit ng soundex, gumagana naman may lumabas na results pero kapag meron na ayaw lumabas ng results. tried using Concat,Trim and Trailing and still got nothing.

Here is my code

Code:

  Public Sub SearchDonor()

        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        Dim con As New MySqlConnection

        Try

            con.ConnectionString = "Server = '" & My.Settings.host & "';  " _
                                              & "Database = '" & My.Settings.database & "';  " _
                                              & "user id = '" & My.Settings.user & "';  " _
                                              & "password = '" & My.Settings.password & "'"




            Dim cmd As New MySqlCommand("SELECT * FROM donorprofile WHERE SOUNDEX(fname) LIKE SOUNDEX('%" & frmsearchd.txtfirst.Text & "'%)", con)

            con.Open()
            da.SelectCommand = cmd
            da.Fill(dt)
            frmsearchd.dgvdonor.DataSource = dt



            con.Close()



        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Blood Bank Management System - Error!")
            con.Close()
        End Try

    End Sub

VB.NET Programming Corner!

Recruit

Recruit

The Devotee

The Saint

Apprentice

Novice

Recruit

Professional

Novice

Novice

The Saint

Recruit

The Patriot

Attachments

The Devotee

The Patriot

The Devotee

The Patriot

The Devotee

The Martyr

The Devotee

Similar threads