VB.NET Programming Corner!

jeffzhaynelene · Dec 3, 2013

Sir anu mas OK gamitin pang connect sa database ung ms access or ung Mysql? need po namin sa thesis

ericgmejia · Dec 3, 2013

jeffzhaynelene said:
Sir anu mas OK gamitin pang connect sa database ung ms access or ung Mysql? need po namin sa thesis

ano mas ok gamitin tricycle o truck?
depende kung saan ka pupunta at kung ano dala mo

ganun din po sa database
depende sa requirement ng project mo

- - - Updated - - -

MyEve said:
ty po sir, di nga po ngupdate nung nilagay ko yung code nyu. hindi na napindot yung buttong update.
nilipat ko yung id na code na parameters sa baba. ayun gumana delete button na po ako.

Code:

With dbCommand.Parameters .AddWithValue("@cid", txtCID.Text) .AddWithValue("@fname", txtFName.Text) .AddWithValue("@mname", txtMName.Text) .AddWithValue("@lname", txtLName.Text) .AddWithValue("@remarks", txtRemarks.Text) [COLOR="#FF0000"].AddWithValue("@eID", txteID.Text)[/COLOR] End With

hahaha
lagot kasalanan pala ng code ko, anong code ba nilagay mo?

hanapin mo muna bakit di mapindot
yun lang ba problema? hindi mapindot?

post mo po ung ibang code para makita natin problema

knives645 · Dec 3, 2013

Sir Eric,

Question...
Yung sa MicroPOS printing, db naka-set sa maliit na paper size yun?
Nagamit ko na sya sa C#, napagana ko na, kulang na lang ang Paper Size, 8.5x11 kasi ang gagamitin na papel.

nag-set nako sa PrintPageSettings.

Margins margins = new Margins(100, 100, 100, 100);
PrintPageSettings.Margins = margins;
PaperSize ps = new PaperSize("A4", 850, 1100);

PrintPageSettings.PaperSize = ps;

Tama ang Size,
kaso, cut ang output, hehe,

aling part ng code ang nagko-control sa PaperSize?

Thanks!

JajaDina · Dec 3, 2013

hello, may tanong lang po ako.

1. Ano po ba ang kahulugan sa inyo ng DESIGN PATTERN ? Gusto ko kasi dumepende ang coding style ko sa pattern eh.

2. object oriented approach of programming

3. ENCAPSULATION..

pls. give me a brief/clear example and explanation for this, sa mga nakaka alam. I know this is really a great help especially sa mga newbies, like me... thanks..

Just your POINT OF VIEW, KA-SYMB. thanks

ericgmejia · Dec 3, 2013

knives645 said:
Sir Eric,

Question...
Yung sa MicroPOS printing, db naka-set sa maliit na paper size yun?
Nagamit ko na sya sa C#, napagana ko na, kulang na lang ang Paper Size, 8.5x11 kasi ang gagamitin na papel.

nag-set nako sa PrintPageSettings.

Tama ang Size,
kaso, cut ang output, hehe,

aling part ng code ang nagko-control sa PaperSize?

Thanks!

tama naman yan, saan na cut?
hwag ka lang mag print sa labas ng paper size

- - - Updated - - -

JajaDina said:
hello, may tanong lang po ako.

1. Ano po ba ang kahulugan sa inyo ng DESIGN PATTERN ? Gusto ko kasi dumepende ang coding style ko sa pattern eh.

2. object oriented approach of programming

3. ENCAPSULATION..

pls. give me a brief/clear example and explanation for this, sa mga nakaka alam. I know this is really a great help especially sa mga newbies, like me... thanks..

Just your POINT OF VIEW, KA-SYMB. thanks

a design pattern is a general reusable solution to a commonly occurring problem within a given context in software design.

object oriented approach of programming - try google muna, mahaba po yan, ask ka ng details nalang

ENCAPSULATION -
get the definition then ask specifics;
basically nakatago na yung functionalites at di mo pwede galawin sa labas ng class,

kung assignment nyo po ito i suggest google and get all the definitions then saka natin pag usapan para may idea ka muna

nartz25 · Dec 3, 2013

good day VB.NET developers!!! we are about to create a project in our Soft Eng. subject,
it's a LIBRARY MGT SYSTEM..
can somebody help me.. pede pong maka hingi ng sample
codes and GUI na pag babasehan..

vb.net po kc yung language.
required yung system magcreate ng barcode for transactions of borrowing
and returning of books...

maraming salamat po symbianizers..

knives645 · Dec 3, 2013

ericgmejia said:
tama naman yan, saan na cut?
hwag ka lang mag print sa labas ng paper size

- - - Updated - - -

a design pattern is a general reusable solution to a commonly occurring problem within a given context in software design.

object oriented approach of programming - try google muna, mahaba po yan, ask ka ng details nalang

ENCAPSULATION -
get the definition then ask specifics;
basically nakatago na yung functionalites at di mo pwede galawin sa labas ng class,

kung assignment nyo po ito i suggest google and get all the definitions then saka natin pag usapan para may idea ka muna

Yes sir, oks na pala,
ito yung pinalitan ko,
SizeF xWIDTH = new SizeF(1500, 0);

ericgmejia · Dec 3, 2013

nartz25 said:
good day VB.NET developers!!! we are about to create a project in our Soft Eng. subject,
it's a LIBRARY MGT SYSTEM..
can somebody help me.. pede pong maka hingi ng sample
codes and GUI na pag babasehan..

vb.net po kc yung language.
required yung system magcreate ng barcode for transactions of borrowing
and returning of books...

maraming salamat po symbianizers..

maraming samples on how to read/write to database sa page1
as for working sample ng library system wala po dito nyan, we can help you build it kung gusto mo

pagdating sa GUI, gawin mo muna yung process flow at list ng functionalities na
gagawin ng system mo para alam mo kung ano ilalagay mo sa GUI
ano ba step 1? ano gagawin ng student para makahiram? ano gagawin ng librarian pag may hihiram?

sa barcode naman maraming paraaan dyan, simplest is using barcode font
reading ng barcode madali lang, parang keyboard lang yan

mas ok kung hwag ka na maghanap ng sample na kagaya ng system mo, focus ka sa design at functions
sa coding maraming samples dito

btw ang barcode di yan ginagawa sa transaction, ginagawa yan para maging ID ng books or id ng borrower

- - - Updated - - -

knives645 said:
Yes sir, oks na pala,
ito yung pinalitan ko,
SizeF xWIDTH = new SizeF(1500, 0);

yan yung size ng printing rectangle mo
mapapansin mo pag mag print ka ng text nasa loob sya ng rectangle, ma cut talaga kung labas ng rectangle na yung text

knives645 · Dec 3, 2013

oks na sir, pinalitan ko na lang yung width ng rectangle,
para sa mga mahahabanag text.

Mabilis nga to.

Maraming salamats...

arkkai058 · Dec 3, 2013

ericgmejia said:
teka bakit apat lang ang user?
sino ba mainly gagamit? client o cashier?

ang pagkakaintindi ko nito ay parang queueing kiosk na gaya sa mga bangko

pagpasok ng client input nya acount number nya at kung ano ang business na gagawin nya,
payment, deposit, etc
at input additional details tapos yung machine mag print ng queue number

then pag tatawagin ang pangalan nya mas mabilis na ang trasaction kasi nandun na sa cashier yung details
kukunin nalang yung pera para ma close yung transaction

natural ang system na yan ay naka network para makita ng cashier yung na input sa kiosk
pwede naman acess or sql depende sa alam mo
kung ako mas ok ang sql server dyan kasi maraming users

kelangan mo dito mag connect sa accounts database
meron kang messaging sa mga cashiers para sa status kung ilan pa ang naka pila
tapos meron function para pulutin ng cashier at i close yung pila kung natapos na yung isa
meron din function para i direct sa available na cashier depende sa type ng business
meron din function para ilipat sa isang cashier ang queue kung naka break or closed yung isa
meron din function para i close yung queue kung di a bumalik yung client
at dapat flexible para maski ilan yung cashier pwede
meron din function para kunin yung data mula sa queue system papunta sa payment system nila para di na kokopyahin
like yung account number at name, since queue lang yan at hindi payment system

ilan lang yan na naisip ko, i detalye mo base sa requirement mo

i design mo muna mabuti ang gusto mo gawin bago ka mag code
ilista mo yung functions at flow ng process

ahhh example palang nmn po ung hiningi ko po pero prang sa bangko dn po ung nsa icp ko about nmn po sa design prang sa mga bangko dn po ung balak ko, and anu po ba dpt gmtn na sql server pag gmt ay sql

ericgmejia · Dec 3, 2013

arkkai058 said:
ahhh example palang nmn po ung hiningi ko po pero prang sa bangko dn po ung nsa icp ko about nmn po sa design prang sa mga bangko dn po ung balak ko, and anu po ba dpt gmtn na sql server pag gmt ay sql

ano dapat na gamitin na sql server? e di sql server

meron naman free edition, ung express Edition
yung version maski 2005 ok lang naman, or 2008 or 2012, same lang yan para sa requirement nyo

at natural na sql ang gagamitin yung mag read/write ka sa sql database

read more about sql server at ADO.NET, check mo mga samples sa page1,
halos same lang naman ang way mag connect sa maski anong database, lalo kabisado mo ado.net

UMIEL04 · Dec 3, 2013

pa tambay po!

naglasnats · Dec 3, 2013

sir eric, maaari po bang gawin ito sa .net http://ui-patterns.com/collections/login-forms/entry/11816 na hindi na kailangang gumamit ng wpf/third party software? kung hindi, ano pa ba alternative para magawa yang textbox na may kadikit na image? badly need your answer. Thanks .

Soichiro Jin · Dec 4, 2013

Boss eric, pano po mag bind ba tawag dyan, like I have combobox and textbox with the database.

Table : Rooms
Columns: roomID, roomNumber, roomType

Ang laman ng combobox is from roomType ( Private, Semi and Ward )
Then after choosing one of the room types, automatic na lalabas yung roomID sa textbox.

Tama po ba yang code ko? Nalilito rin kasi ako sa ibang codes searched on google, yung iba may DataSet

Ano po ba ang mas mainam boss?

Code:

Try
            Dim sql As String = "SELECT * FROM Room"

            da = New MySqlDataAdapter(sql, CNN)
            da.Fill(dt)

            cmbWardType.DataSource = dt
            cmbWardType.ValueMember = "roomID"
            cmbWardType.DisplayMember = "roomType"

         
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            dr.Close()
        End Try

Code:

 Private Sub cmbWardType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbWardType.SelectedIndexChanged
        txtWardID.Text = cmbWardType.SelectedValue.ToString
    End Sub

ericgmejia · Dec 4, 2013

naglasnats said:
sir eric, maaari po bang gawin ito sa .net http://ui-patterns.com/collections/login-forms/entry/11816 na hindi na kailangang gumamit ng wpf/third party software? kung hindi, ano pa ba alternative para magawa yang textbox na may kadikit na image? badly need your answer. Thanks .

di kaya sa windows form yan unless i paint mo lahat or naka image
sa wpf pwede, madali lang yan

isipin mo magkakaiba ng design UI experience ang mga OS,
ang pinakita mo ay malamang gawa sa IOS or android or html5
bakit di mo tignan yung mga UI patterns ng winphone or winRT tablet

mas mahirap kasi kung gagayahin mo yung gawa ng kapitbahay mo, gawin mo kung ano meron sa bahay mo
otherwise gumamit ka ng ibang paraan

- - - Updated - - -

Soichiro Jin said:
Boss eric, pano po mag bind ba tawag dyan, like I have combobox and textbox with the database.

Table : Rooms
Columns: roomID, roomNumber, roomType

Ang laman ng combobox is from roomType ( Private, Semi and Ward )
Then after choosing one of the room types, automatic na lalabas yung roomID sa textbox.

Tama po ba yang code ko? Nalilito rin kasi ako sa ibang codes searched on google, yung iba may DataSet

Ano po ba ang mas mainam boss?

Code:

Try Dim sql As String = "SELECT * FROM Room" da = New MySqlDataAdapter(sql, CNN) da.Fill(dt) cmbWardType.DataSource = dt cmbWardType.ValueMember = "roomID" cmbWardType.DisplayMember = "roomType" Catch ex As Exception MessageBox.Show(ex.ToString) Finally dr.Close() End Try

Code:

Private Sub cmbWardType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbWardType.SelectedIndexChanged txtWardID.Text = cmbWardType.SelectedValue.ToString End Sub

tama lang naman yan
mas ok kung lagay mo yan sa isang function at naka restrict lang dun yung lahat ng variables at object
gaya nyan nag close ka ng dr, di ko makita kung saan galing yun
yung dt di ko makita ang declaration

try mo gumamit ng Using..End Using sa loob ng ng try catch

ako kasi ganito mag populate ng lookup combobox
lookup to ng employees na merong <ALL> na option

Code:

Private Sub EmployeeList(Optional pEmployeeNo As String = "")
        Try
'this is a lambda function, para pwede ko i call several times sa loob ng function, function inside a function
            Dim xEmp = Function()
                           Dim c As New TimekeepingPersonnelDB
                           Return c.DXListEmployeesActive(pEmployeeNo)
                       End Function

            Dim dt As DataTable = xEmp.Invoke

' add additional ROW sa sa datatable para may lalabas na <ALL EMPLOYEES> , 
'note na di kasama sa database yung <ALL> kay adinagdag
            Dim dr As DataRow = dt.NewRow
            dr("EmployeeNo") = ""
            dr("EmployeeName") = " <ALL EMPLOYEES> "
            dt.Rows.Add(dr)

'sort ko muna datatable bago lagay sa lookup
            Dim dv As DataView = dt.DefaultView
            dv.Sort = "EmployeeName ASC"

'then load ko sa Dropdown lookup ko na superduper combobox usercontrol na may autofilter at autocomplete
            LookUps.LoadLookUp(New LookUpParameter With {.LookUpName = "Employees",
                  .DisplayMember = "EmployeeName", .ValueMember = "EmployeeNo",
                  .LookUpControl = EmployeeLookUp,
                  .DefaultSelection = pEmployeeNo, .ValueVisible = False,
              .DataLookUpTable = dv.ToTable 
               })
        Catch ex As Exception
            log.Error(ex)
            Message1.ShowError(ex)
        End Try
    End Sub

pansin mo walang objects dyan na nakadeclare sa labas ng function except yung combobox lang

Soichiro Jin · Dec 4, 2013

ericgmejia said:

- - - Updated - - -

tama lang naman yan
mas ok kung lagay mo yan sa isang function at naka restrict lang dun yung lahat ng variables at object
gaya nyan nag close ka ng dr, di ko makita kung saan galing yun
yung dt di ko makita ang declaration

try mo gumamit ng Using..End Using sa loob ng ng try catch

ako kasi ganito mag populate ng lookup combobox
lookup to ng employees na merong <ALL> na option

Code:

Private Sub EmployeeList(Optional pEmployeeNo As String = "")
        Try
'this is a lambda function, para pwede ko i call several times sa loob ng function, function inside a function
            Dim xEmp = Function()
                           Dim c As New TimekeepingPersonnelDB
                           Return c.DXListEmployeesActive(pEmployeeNo)
                       End Function

            Dim dt As DataTable = xEmp.Invoke

' add additional ROW sa sa datatable para may lalabas na <ALL EMPLOYEES> , 
'note na di kasama sa database yung <ALL> kay adinagdag
            Dim dr As DataRow = dt.NewRow
            dr("EmployeeNo") = ""
            dr("EmployeeName") = " <ALL EMPLOYEES> "
            dt.Rows.Add(dr)

'sort ko muna datatable bago lagay sa lookup
            Dim dv As DataView = dt.DefaultView
            dv.Sort = "EmployeeName ASC"

'then load ko sa Dropdown lookup ko na superduper combobox usercontrol na may autofilter at autocomplete
            LookUps.LoadLookUp(New LookUpParameter With {.LookUpName = "Employees",
                  .DisplayMember = "EmployeeName", .ValueMember = "EmployeeNo",
                  .LookUpControl = EmployeeLookUp,
                  .DefaultSelection = pEmployeeNo, .ValueVisible = False,
              .DataLookUpTable = dv.ToTable 
               })
        Catch ex As Exception
            log.Error(ex)
            Message1.ShowError(ex)
        End Try
    End Sub

pansin mo walang objects dyan na nakadeclare sa labas ng function except yung combobox lang

Salamat talaga boss, i'll try and understand mabuti your codes na binibigay mo ,

Laki ng tulong mo, actually i'm doing our system for thesis :work:

Nahihiya na ako :lol:

Before ako matulog , may pahabol ako.

I have the a table in database with ID,Fname,Lname,Gender,Contact,Address

Then I have listview, ilagay natin with 3 columns (ID, Fname, Lname )

Then there's 6 textboxes for ID, Fname, Lname, Gender, Contact, Address

Balak ko po sana is when clicking 1 record sa listview, yung record ay mailalagay sa textboxes.

Yung sakin kasi is para mailagay lahat, if 6 textboxes, dapat din 6 columns ang laman ng listview

Code:

 With Me.listItems
            Dim i As Integer
            For Each item As ListViewItem In listItems.SelectedItems
                i = item.Index
            Next

            Dim innercounter As Integer = 0
            For Each subItem As ListViewItem.ListViewSubItem In listItems.Items(i).SubItems
                Dim myString As String = listItems.Items(i).SubItems(innercounter).Text
                Select Case innercounter
                    Case 0
                        txtID.Text = myString
                    Case 1
                        txtFname.Text = myString
                    Case 2
                        txtLname.Text = myString
                    Case 3
                        txGender.Text = myString
                    Case 4
                        txtContact.Text = myString
                    Case 5
                        txtAddress.Text = myString
                End Select
                innercounter += 1
            Next
        End With

ericgmejia · Dec 4, 2013

Soichiro Jin said:
Salamat talaga boss, i'll try and understand mabuti your codes na binibigay mo ,

Laki ng tulong mo, actually i'm doing our system for thesis

Nahihiya na ako

Before ako matulog , may pahabol ako.

I have the a table in database with ID,Fname,Lname,Gender,Contact,Address

Then I have listview, ilagay natin with 3 columns (ID, Fname, Lname )

Then there's 6 textboxes for ID, Fname, Lname, Gender, Contact, Address

Balak ko po sana is when clicking 1 record sa listview, yung record ay mailalagay sa textboxes.

Yung sakin kasi is para mailagay lahat, if 6 textboxes, dapat din 6 columns ang laman ng listview

Code:

With Me.listItems Dim i As Integer For Each item As ListViewItem In listItems.SelectedItems i = item.Index Next Dim innercounter As Integer = 0 For Each subItem As ListViewItem.ListViewSubItem In listItems.Items(i).SubItems Dim myString As String = listItems.Items(i).SubItems(innercounter).Text Select Case innercounter Case 0 txtID.Text = myString Case 1 txtFname.Text = myString Case 2 txtLname.Text = myString Case 3 txGender.Text = myString Case 4 txtContact.Text = myString Case 5 txtAddress.Text = myString End Select innercounter += 1 Next End With

bakit ka may loop e isang item lang naman i display mo?

kung ako yan meron akong unique tag sa isang column ng listview, usually ito yung unique key ng record
kung gusto mo hidden or mas mabuti kung datagridview para flexible

pag select ng item sa listview makukuha mo yung key
then gamitin mo yung key to get the record sa database
pag nakuha mo yung record then pwede mo na ilagay maski saang textbox

that way fresh parati yung ma display, importante lalo kung meron ibang gumagamit sa network.
at maski wala sa listview yung column madidisplay ko parin sa textbox kasi galing sya sa database

dyan na papasok yung OOP/class na gaya ng ginagawa ko,
di ko na kelangan i recode pa yung pag kuha ng record sa database kasi nasa class na

reuse nalang ng reuse

sa code na to

Code:

Private Sub dataGrid_DoubleClick(sender As Object, e As EventArgs) Handles dataGrid1.DoubleClick
        Try
            Dim rows As Object()
            rows = dataGrid1.SelectedDataRows 'hwag mo pansinin ang syntax, customized datagrid ko to, hindi datagridview

            If rows IsNot Nothing AndAlso rows.Length > 0 Then
                Dim row As DataRowView = CType(rows(0), DataRowView)
                Dim sEmpNo As String = row("EmployeeNo").ToString
                ShowValues(sEmpNo)
            End If
        Catch ex As Exception
            log.Error(ex) 'log4net logger para masave sa textfile ang error, usefull pag naka deploy sa client
            Message1.ShowError(ex) 'customized messagebox, naka theme at custom icons unlike sa ordinary messagebox
        End Try
    End Sub

dbl click ko yung datagrid
>>>>Private Sub dataGrid_DoubleClick

nakuha ko yung value sa column ng employeeno
>>>>sEmpNo = row("EmployeeNo").ToString

ipinasa ko sa function na maghahanap sa database at maglagay ng values
>>>>ShowValues(sEmpNo)
itong code na to ginagamit din sa ibang part ng code

note na may checking in case na walang laman yung grid pra hindi mag error
>>>> If rows IsNot Nothing AndAlso rows.Length > 0 Then

naglasnats · Dec 4, 2013

ericgmejia said:
di kaya sa windows form yan unless i paint mo lahat or naka image
sa wpf pwede, madali lang yan

isipin mo magkakaiba ng design UI experience ang mga OS,
ang pinakita mo ay malamang gawa sa IOS or android or html5
bakit di mo tignan yung mga UI patterns ng winphone or winRT tablet

mas mahirap kasi kung gagayahin mo yung gawa ng kapitbahay mo, gawin mo kung ano meron sa bahay mo
otherwise gumamit ka

ok na sir, dinaya ko na lang. ang problem ko po ngayon, paano ba magindent sa textbox? meron kayang API? Salamat ng marami.

maritesmacute · Dec 4, 2013

about sa ComboBox ng Datagridview.. Ginagamit nyo ba yun?

kasi ganun yung gusto nung officemate q.. kasi ganun yung ginawa q sa vb6..

pano q kaya ma bBind yung combobox nun sa table? :noidea:

divineMe · Dec 4, 2013

ericgmejia said:
pag aaral or CTRL+C/CTRL+V?

best way dyan is
UNDERSTAND/CTRL+C/CTRL+V/UNDERSTAND

hehehe... sir, kuha mo rin kahit hindi ko banggitin yung idea of copy paste and let it run, if hindi gumana tanong tanong na...

Note to all programmers: try to understand also the pattern practice of Sir Eric, napakaganda, it is the MVVM pattern, kung hindi ako nagkakamali alam di ni sir yung PRISM.

VB.NET Programming Corner!

Recruit

The Immortal Symbianizer

The Saint

Professional

The Immortal Symbianizer

Recruit

The Saint

The Immortal Symbianizer

The Saint

Apprentice

The Immortal Symbianizer

Amateur

The Devotee

Proficient

The Immortal Symbianizer

Proficient

The Immortal Symbianizer

The Devotee

The Martyr

Recruit

Similar threads