VB.NET Programming Corner!

[-CHZ-]

Good day po!

Sa mga nakapag-develop na po ng system na gumagamit ng bardcode reader / scanner o may knowledge, may tanong po sana ako.

Lahat po ba ng barcode scanner / reader ngayon ay may feature na after ma-scan / mag-scan ng barcode ay magpo-proceed kaagad sa next line? Yun po bang after mo ma-scan yung mismong barcode ay parang may ENTER keypress event or parang automatic na pong napindot yung ENTER key para mag-proceed sa next line.

Saan po ba magandang bumili ng barcode scanner / reader? Ano pong brand ng barcode scranner / reader ang maganda na may ganoong feature po at mga magkano po kaya? Plug and Play na po ba ang mga ito?

Maraming salamat po! God Bless!

 

[ease187]

Magandang umaga TS, matagal na kasi akong hindi nagccode, medyo nakalimutan ko na kung ano gagawin ko, pano po ba gumawa at gumamit ng template ng msword sa printing from access database.. printform kasi ginagamit ko nagbblured sya

 

[maskio]

Sir pwede po magtanong kung paano mag display ng "Table Name" na selected lang po. Sa akin kasi ay mag display lahat ng table name ko.

- - - Updated - - -

Sir patulong po. Paano po mag display ng Table name na Selected lang po?
Sa ginawa ko po kasi nag display lahat ng table ko pati yung sa User admin gusto ko sana hindi ma view ito sa combobox.

ito po yun.
View attachment 1267902

Patulong nmn po nagsisimula pa lang sa Vb net.

- - - Updated - - -

Sir patulong po. Paano po mag display ng Table name na Selected lang po?
Sa ginawa ko po kasi nag display lahat ng table name ko pati yung sa User Table ko gusto ko sana yung selected lang ang ma view sa combobox.

ito yun.

View attachment 1267903

Patulong po nagsisimula pa lang sa vb net.

sa command adapter mo, add ka ng parameter para may laman ang @position;

Dim mCommand As New SqlCommand
mCommand.parameters.commandtext = "SELECT column_names_here FROM table_name_here WHERE position = @position;"
mcommand.parameters.addwithvalue("@position", combobox1.selectedvalue)

adp2.SelectCommand = mcommand

 

[yullas]

Hello, good day po mga boss. tatanong ko lang sana dito kung may nakagamit na ng DigitalPersona dito sa inyu. Need ko codes pano basahin ang fingerprint.. Enrollment ng finger at verification po.. salamat po sa mga nakakaalam..

 

[-CHZ-]

Hello, good day po mga boss. tatanong ko lang sana dito kung may nakagamit na ng DigitalPersona dito sa inyu. Need ko codes pano basahin ang fingerprint.. Enrollment ng finger at verification po.. salamat po sa mga nakakaalam..

Di pa ako nakakagamit nito, pero isa to sa features ng isa sa mga project proposals namin kaya lang iba yung napili ng panelists. Anyways, afaik, may tutorial nito sa youtube. Ang problema lang sa Digital Persona, may bayad yung license ng SDK nito. Correct me if I am wrong.

 

[yullas]

Di pa ako nakakagamit nito, pero isa to sa features ng isa sa mga project proposals namin kaya lang iba yung napili ng panelists. Anyways, afaik, may tutorial nito sa youtube. Ang problema lang sa Digital Persona, may bayad yung license ng SDK nito. Correct me if I am wrong.

uu yung flexcodesdk.. kaso may bayad yun.. meron naman libre.. di ko lang alam ...

 

[webdeve]

Thanks for very informative.

 

[rapsoyso09]

Hello po sa inyu mga ka Symb.
I'm using VB.net 2010

Please help me po sa datagridview.
ito po ang codes ko:

Private Function reArrangeDatatable1(ByVal dt As DataTable) As DataTable
Dim newTable As New DataTable
newTable.Columns.AddRange({New DataColumn(dt.Columns(12).ColumnName)}) 'Converting column(database) to row(datagridview1)
For x As Integer = 0 To dt.Rows.Count - 1
newTable.Rows.Add(dt.Rows(x).Item(12)) ' Farm - Column Header
newTable.Rows.Add(dt.Rows(x).Item(0)) ' date
newTable.Rows.Add(dt.Rows(x).Item(1)) ' wof7
newTable.Rows.Add(dt.Rows(x).Item(2)) ' wof8
newTable.Rows.Add(dt.Rows(x).Item(3)) ' wof9
newTable.Rows.Add(dt.Rows(x).Item(4)) ' wof10
newTable.Rows.Add(dt.Rows(x).Item(5)) ' wof11
newTable.Rows.Add(dt.Rows(x).Item(6)) ' wof12
newTable.Rows.Add(dt.Rows(x).Item(7)) ' wof13
newTable.Rows.Add(dt.Rows(x).Item(8)) ' wof14
newTable.Rows.Add(dt.Rows(x).Item(9)) ' wof15
newTable.Rows.Add(dt.Rows(x).Item(10)) ' wof16
newTable.Rows.Add(dt.Rows(x).Item(11)) ' total
Next
Return newTable
end sub

Private Function reArrangeDatatable2(ByVal dt As DataTable) As DataTable ' Converting column(database) to row(datagridview1)
Dim newTable As New DataTable
newTable.Columns.AddRange({New DataColumn(dt.Columns(12).ColumnName)})
For x As Integer = 0 To dt.Rows.Count - 1
newTable.Rows.Add(dt.Rows(x).Item(12)) ' Farm - Column Header
newTable.Rows.Add(dt.Rows(x).Item(0)) ' date
newTable.Rows.Add(dt.Rows(x).Item(1)) ' wof7
newTable.Rows.Add(dt.Rows(x).Item(2)) ' wof8
newTable.Rows.Add(dt.Rows(x).Item(3)) ' wof9
newTable.Rows.Add(dt.Rows(x).Item(4)) ' wof10
newTable.Rows.Add(dt.Rows(x).Item(5)) ' wof11
newTable.Rows.Add(dt.Rows(x).Item(6)) ' wof12
newTable.Rows.Add(dt.Rows(x).Item(7)) ' wof13
newTable.Rows.Add(dt.Rows(x).Item(8)) ' wof14
newTable.Rows.Add(dt.Rows(x).Item(9)) ' wof15
newTable.Rows.Add(dt.Rows(x).Item(10)) ' wof16
newTable.Rows.Add(dt.Rows(x).Item(11)) ' total
Next
Return newTable
end sub

Private Sub farm1_farm2()

'name of my datagridview is datagridview1

Dim sSQLText1 As String = "SELECT top 1 * table1"
Using dbConnection1 As New SqlConnection(conn_string)
dbConnection1.Open()
Dim dbCommand1 As New SqlCommand(sSQLText1, dbConnection1)
Dim dsData1 As New DataSet
Dim dbAdapter1 As New SqlDataAdapter(sSQLText1, dbConnection1)
dbAdapter1.Fill(dsData1)
datagridview1.DataSource = reArrangeDatatable1(dsData1.Tables(0))
dbConnection1.Close()
End Using

Dim sSQLText2 As String = "SELECT top 1 * table2"
Using dbConnection2 As New SqlConnection(conn_string)
dbConnection2.Open()
Dim dbCommand2 As New SqlCommand(sSQLText2, dbConnection2)
Dim dsData2 As New DataSet
Dim dbAdapter2 As New SqlDataAdapter(sSQLText2, dbConnection2)
dbAdapter2.Fill(dsData1)
datagridview1.DataSource = reArrangeDatatable2(dsData2.Tables(0))
dbConnection2.Close()
End Using
end sub

Private Sub column_header()
datagridview1.ColumnCount = 1
datagridview1.Columns(0).Name = "PARTICULAR"
End Sub


Private Sub row_header()
' dview_daily_prod.RowCount = 13
datagridview1.Rows(0).Cells(0).Value = "date"
datagridview1.Rows(1).Cells(0).Value = "wof 7"
datagridview1.Rows(2).Cells(0).Value = "wof 8"
datagridview1.Rows(3).Cells(0).Value = "wof 9"
datagridview1.Rows(4).Cells(0).Value = "wof 10"
datagridview1.Rows(5).Cells(0).Value = "wof 11"
datagridview1.Rows(7).Cells(0).Value = "wof 12"
datagridview1.Rows(8).Cells(0).Value = "wof 13"
datagridview1.Rows(9).Cells(0).Value = "wof 14"
datagridview1.Rows(10).Cells(0).Value = "wof 15"
datagridview1.Rows(11).Cells(0).Value = "wof 16"
datagridview1.Rows(12).Cells(0).Value = "total"
end sub

Private Sub menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
column_header()
farm1_farm2()
row_header()
End Sub

table name
Table 1 - date Wof 7 Wof 8 Wof 9 Wof 10 Wof 11 Wof 12 Wof 13 Wof 14 Wof 15 Wof 16 total Farm 1
Table 2 - date Wof 7 Wof 8 Wof 9 Wof 10 Wof 11 Wof 12 Wof 13 Wof 14 Wof 15 Wof 16 total Farm 2

Ito po output
PARTICULAR Farm 2
date
Wof 7
Wof 8
Wof 9
Wof 10
Wof 11
Wof 12
Wof 13
Wof 14
Wof 15
Wof 16
Total



Ganito dapat output
Particular Farm 1 Farm 2
date
Wof 7
Wof 8
Wof 9
Wof 10
Wof 11
Wof 12
Wof 13
Wof 14
Wof 15
Wof 16
Total


MARAMING SALAMAT PO.
SANA AY MATULUNGAN NYU AKO..

 

[kalilinux25]

Ask ko lang po sana panu po gawan ng code ang button para maka edit sya sa table from ms access?? Nilagay ko yung table sa gridview
Gusto ko san may button sya ng IN - OUT para pag pipindutin ko yung IN mag add sya ng 1 quantity sa table. -1 naman kung out button?
Table : ID-ITEM-QUANTITY-CAPITAL-SRP
Ganyan po ang structure ng table ko.
Sana po matulungan ako.
Salamat!!!

 

[jayrwafuako]

Hello po sa inyu mga ka Symb.

Ito po output
PARTICULAR Farm 2
date
Wof 7
Wof 8
Wof 9
Wof 10
Wof 11
Wof 12
Wof 13
Wof 14
Wof 15
Wof 16
Total



Ganito dapat output
Particular Farm 1 Farm 2
date
Wof 7
Wof 8
Wof 9
Wof 10
Wof 11
Wof 12
Wof 13
Wof 14
Wof 15
Wof 16
Total


MARAMING SALAMAT PO.
SANA AY MATULUNGAN NYU AKO..

Try mo ilagay sa excel mas madali i-visualize un output. Then screenshot mo, then post.

 

[maskio]

Hello, good day po mga boss. tatanong ko lang sana dito kung may nakagamit na ng DigitalPersona dito sa inyu. Need ko codes pano basahin ang fingerprint.. Enrollment ng finger at verification po.. salamat po sa mga nakakaalam..

hanap ka ng SDK, may samples na doon kung papano.

 

[-CHZ-]

Good day po mga ka-symb! May itatanong po sana ako.

May dinedevelop po akong project ngayon para sa thesis namin. Gamit ko po ay VB.NET using Visual Studio 2015. Sa project ko po kasi, gumagagmit ko ng user-control. Nagandahan po kasi ako sa user control kasi halos iisang form na lang ang gagamitin.

Ganito po kasi ang ginawa ko:
- Sa loob ni UserControl may Button
- Kapag pinress si Button na nasa loob ni User Control, lalabas si Form1
- Paglabas ni Form1 after mapindot si Button na nasa loob ni User Control, madidisable siya (Button).
- Kapag kinlose (close) mo si Form1, gusto ko sana ma-enable ulit si Button na nasa loob ni User Control.

Ang tanong ko po ay, possible o may paraan po ba para magawa ko yung gusto ko? Yung ma-eenable ulit si Button na nasa loob ni User Control after ko i-close si Form1?

Na-try ko na po gumawa ng panibagong instance ni User Control na kagaya sa ginagawa sa WinForms. Wala naman pong error, pero hindi ko po talaga mapagana.

Sa may idea or nakaka-alam po, malaking tulong po ito talaga sa akin. Sana po matulungan nyo ako.

Maraming salamat po!

- - - Updated - - -

Okay na po pala. Nakahanap na ako ng solution sa problem ko. Maraming salamat po!

 

[rapsoyso09]

Try mo ilagay sa excel mas madali i-visualize un output. Then screenshot mo, then post.

ito po http://www.symbianize.com/attachment.php?attachmentid=1270822&stc=1&d=1533883205

maraming salamat po

 

[jbrooks]

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

Maraming salamat po sa post na ito! Makakatulong ito sa pag-aaral ko ng VB.NET.

 

[jayrwafuako]

ito po http://www.symbianize.com/attachment.php?attachmentid=1270822&stc=1&d=1533883205

maraming salamat po

Kung SQL 2012 server mo, gamit ka UNPIVOT function :
see ref https://docs.microsoft.com/en-us/sql/t-sql/queries/from-using-pivot-and-unpivot?view=sql-server-2017

kung hindi, new datatable, add ka 3 columns, iloop then add row

 

[rapsoyso09]

Kung SQL 2012 server mo, gamit ka UNPIVOT function :
see ref https://docs.microsoft.com/en-us/sql/t-sql/queries/from-using-pivot-and-unpivot?view=sql-server-2017

kung hindi, new datatable, add ka 3 columns, iloop then add row

salamat sa feedback, natry ko na new datatable ok sya sa 1 datatable pero pag multidatatable may conflict sya iwan ko kung ano.
try ko muna pivot at unpivot..

 

[JohnVic1994]

Maraming salamat!

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

 

[heinz12]

pa help po pano po magoutput ng ganito.salamat
https://www.symbianize.com/attachment.php?attachmentid=1271988&d=1534953463
eto po ung code

Sub ListRolling()
Dim X As Long, LastRow, row As Long, vArrIn As Variant, vArrOut As Variant
Dim ws As Worksheet
LastRow = Cells(Rows.Count, "aa").End(xlUp).row
row = LastRow / 3
vArrIn = Range("AA1:AA" & LastRow)

ReDim vArrOut(1 To row, 1 To Int(LastRow / row) + 1)
For X = 0 To LastRow - 1
vArrOut(1 + (X Mod row), 1 + Int(X / row)) = vArrIn(X + 1, 1)
Next
Range("a5").Resize(row, UBound(vArrOut, 2)) = vArrOut

End Sub

 

[EthanHunt28]

Any tutorials po ng VB.Net with ZKFingerprint Scanner?
Like enrolling of fingerprints and verifying?
Hirap maghanap sa google T.T
Thank you po..

 

[bolshevik]

Hello sa mga master ng programming dito. May itatanong lang po ako. THesis kase nmen ngayon. at nailagay namen s approved proposal namen ang ggmtn namen ay Visual studio 2012 and MSQL 2014 ung backend namen. meron pa ba kong need na idownload like a compiler kung kelangan man. what else po kaya need ko idownload para mapagana namen ung sales and inventory system namen..

Advance salamat sa stock knowledge nyo.