VB.NET Programming Corner!

[maskio]

mga sir patulong naaman ako d2 sa problem n to. tnx

Write a function called elapsedTime() with two parameters, the start time and the end time. Each parameter is a structure with three fields showing the hours, minutes, and seconds of a specific time. The function is to return a time structure containing the time elapsed between the two parameters. You must handle the situation when the start time is in the previous day.
yan ang problem

3:00pm - 2:00pm (convert time to military time)

if time1 > time2 then
'this is the other day
day1 = 24 - time1
elapse = day1 + time2
else
elapse = time2 - time1
end if

 

[Gamecore]

ask ko lang po kung ok lang na may forgot password ? (hihingin muna yung password / permission sa admin para ma-aaceess yung account)

at kung ok lang po kahit may show characters sa login form ?

salamat po

 

[ericgmejia]

ask ko lang po kung ok lang na may forgot password ? (hihingin muna yung password / permission sa admin para ma-aaceess yung account)

at kung ok lang po kahit may show characters sa login form ?

salamat po

kung maganda ang design mo, wala dapat makaka alam ng password at di kaya ibalik sa user yung password nya

instead mag generate ng new password nalang.

di password yan kung may show characters (except sa mobile)
password is supposed to be protected, di lang masking ng ***

 

[kimcarl0s]

Good afternoon.

Meron po ba kayong installer ng vb.net 2008 para sa windows 8?

 

[Gamecore]

salamat po sir

 

[cyrilkun]

yoh~!

May I ask how to sort my database to descending method?

hhe... that's my problem right now.. I have successfully connected my database to my form, using the code method that I've studied,, but I can't sort it from largest to smallest. by the way the database that I am talking is the one that recording the player name and it's score,, I want it to be on descending form so that players will view the top players there.. thanks

 

[Verio]

Pahelp naman po mga sir, ganito po sana gusto kong gawin:

EmployeeIDNo. | MonthPaid | PaymentAmount | TotalPaymentAmount
1 | 1 | 500 | 500
1 | 2 | 500 | 1000
1 | 3 | 500 | 1500

Yung totalpayment po kasi yan po yung kabuoan ng paymentamount(binabayad)
ng borrower per month, bale kada bayad po inaadd lang sa totalpayment..

Nagkakaproblema po ako pag kukunin ko na yung pangatlong totalpayment,
ang nakuha nya po kasing value ng totalpayment yung sa panguna(500) parin..
kaya 1000 parin po nalabas. Yung employeeid din po kasi yung ginagamit
kong pangretrieve ng value kaya po siguro nagkakaganun.. paano po ba mangyayari
na ang pipiliin nya ng value yung sa pangalawang(1000) payment? ano po bang
gagawin ko? ito po kasi gustong makita ng prof. namin.

Pahelp po please!

 

[cyrilkun]

Pahelp naman po mga sir, ganito po sana gusto kong gawin:

EmployeeIDNo. | MonthPaid | PaymentAmount | TotalPaymentAmount
1 | 1 | 500 | 500
1 | 2 | 500 | 1000
1 | 3 | 500 | 1500

Yung totalpayment po kasi yan po yung kabuoan ng paymentamount(binabayad)
ng borrower per month, bale kada bayad po inaadd lang sa totalpayment..

Nagkakaproblema po ako pag kukunin ko na yung pangatlong totalpayment,
ang nakuha nya po kasing value ng totalpayment yung sa panguna(500) parin..
kaya 1000 parin po nalabas. Yung employeeid din po kasi yung ginagamit
kong pangretrieve ng value kaya po siguro nagkakaganun.. paano po ba mangyayari
na ang pipiliin nya ng value yung sa pangalawang(1000) payment? ano po bang
gagawin ko? ito po kasi gustong makita ng prof. namin.

Pahelp po please!

hhe yoh!

I have an Idea for the solution of your problem. but it seems na kulang yung information na binigay mu?

Do you have button to add the total payment? do we need to click it? or what? hhe

 

[ericgmejia]

yoh~!

May I ask how to sort my database to descending method?

hhe... that's my problem right now.. I have successfully connected my database to my form, using the code method that I've studied,, but I can't sort it from largest to smallest. by the way the database that I am talking is the one that recording the player name and it's score,, I want it to be on descending form so that players will view the top players there.. thanks

you dont need to sort your data while its in the database
if you read and display data dun ka mag sort

now gawin mo sa SELECT statement ang sorting by adding
ORDER BY sa dulo

SELECT * FROM Table1 ORDER BY Field1
when you get the dataset, sorted yan

 

[ericgmejia]

Pahelp naman po mga sir, ganito po sana gusto kong gawin:

EmployeeIDNo. | MonthPaid | PaymentAmount | TotalPaymentAmount
1 | 1 | 500 | 500
1 | 2 | 500 | 1000
1 | 3 | 500 | 1500

Yung totalpayment po kasi yan po yung kabuoan ng paymentamount(binabayad)
ng borrower per month, bale kada bayad po inaadd lang sa totalpayment..

Nagkakaproblema po ako pag kukunin ko na yung pangatlong totalpayment,
ang nakuha nya po kasing value ng totalpayment yung sa panguna(500) parin..
kaya 1000 parin po nalabas. Yung employeeid din po kasi yung ginagamit
kong pangretrieve ng value kaya po siguro nagkakaganun.. paano po ba mangyayari
na ang pipiliin nya ng value yung sa pangalawang(1000) payment? ano po bang
gagawin ko? ito po kasi gustong makita ng prof. namin.

Pahelp po please!

hjmmm
meron ka month paid pero walang year, pano yan next year?
walang date ang bayad, alam mo ba kung ano date nagbayad si employee?

a little knowledge sa SQL lang ok ka na dito

kung kukunin mo yung LAST payment, pwede mo i sort descending

SELECT TOP 1 FROM Table WHERE EMployeeID = 1
ORDER BY MonthPaid DESC

ang lalabas dyan ay yung record ng TOP or BIGGEST MonthPaid

kapag yung pangalawa e di gamitin mo nalang yung MonthPaid

SELECT * FROM Table WHERE MonthPaid = 2 AND EMployeeID = 1

 

[cyrilkun]

you dont need to sort your data while its in the database
if you read and display data dun ka mag sort

now gawin mo sa SELECT statement ang sorting by adding
ORDER BY sa dulo

SELECT * FROM Table1 ORDER BY Field1
when you get the dataset, sorted yan

hhe you don't understand what I mean, hhe..

di mismo sa dtabase yung sorting nya.. kase I have a form that shows the record nung playename and score nya, peru kung anu lang nakalagay sa db na una un yung nalabas pag click ku ng next button..

 

[ericgmejia]

hhe you don't understand what I mean, hhe..

di mismo sa dtabase yung sorting nya.. kase I have a form that shows the record nung playename and score nya, peru kung anu lang nakalagay sa db na una un yung nalabas pag click ku ng next button..

hehhe? very nice of you
sorry di ko mareach siguro yung level ng ginagawa mong design

so kindly explain it further then....

 

[ONBUXaddict]

sir meron n po b kyong ngawa n tutorial about SEARCH, EDIT, UPDATE and DELETE sa VBNET MS access Database?? qng ala p po pede po b kyong gumawa kc sa vb6 lng ang alam aq d q nmn maintindihan ung ibang tutorials sa net...please help po thanks......

 

[cyrilkun]

hehhe? very nice of you
sorry di ko mareach siguro yung level ng ginagawa mong design

so kindly explain it further then....

hhe..

ganto pu kase sir.. sorry malabu pu pala explanation ku..

hhe..

I have a form with 2 labels that will show the records on the database..

with 2 buttons next and previous..

hhe when I clicked one of this button it will show the playernames and score they got on the quiz na pinapatulong ku date sa inyu,, hhe

na natapus ku na syempre because of the help of all of you here,,

now, I've provided the codes for connecting it and showing it,, di ku lang naka soft from highest to lowes.. or in descendingorder para maipakita kuyung order kung sinu yun pinakamataas ang nakukkuhang iskor,,

this is the one part ng code ku na I know dito ku lang sya icocode please help..

hhe

Public Class PlayerName
    Dim inc As Integer
    Dim MaxRows As Integer
    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String
    Dim dbSource As String
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim dsNewRow As DataRow
        dsNewRow = ds.Tables("DataBase3").NewRow

        dsNewRow.Item(1) = txtName.Text
        dsNewRow.Item(2) = score

        ds.Tables("DataBase3").Rows.Add(dsNewRow)

        da.Update(ds, "DataBase3")

        'MsgBox("New Record added to the database")
        HallOfFame.Show()
        Me.Hide()
    End Sub

    Private Sub PlayerName_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        Dim fldr As String

        fldr = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "/DataBase3.mdb"
        dbSource = "Data Source = " & fldr

        con.ConnectionString = dbProvider & dbSource

        con.Open()

        sql = "SELECT * FROM PlayerName"
        da = New OleDb.OleDbDataAdapter(Sql, con)
        da.Fill(ds, "DataBase3")
        con.Close()

        MaxRows = ds.Tables("DataBase3").Rows.Count
        inc = -1

    End Sub


Public Class HallOfFame
    Dim inc As Integer
    Dim MaxRows As Integer
    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String
    Dim dbSource As String
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String

    Private Sub HallOfFame_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblName.Text = playernames
        lblScore.Text = high
        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        Dim fldr As String

        fldr = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "/DataBase3.mdb"
        dbSource = "Data Source = " & fldr

        con.ConnectionString = dbProvider & dbSource

        con.Open()

        sql = "SELECT * FROM PlayerName"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "DataBase3")
        con.Close()

        MaxRows = ds.Tables("DataBase3").Rows.Count
        inc = -1
    End Sub
    Private Sub NavigateRecords()

        lblName.Text = ds.Tables("DataBase3").Rows(inc).Item(1)
        lblScore.Text = ds.Tables("DataBase3").Rows(inc).Item(2)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMainMenu.Click
        StartQuiz.Show()
        Me.Hide()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        If inc <> MaxRows - 1 Then
            inc = inc + 1
            NavigateRecords()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
        If inc > 0 Then
            inc = inc - 1
            NavigateRecords()
        End If
    End Sub
End Class
Module Module2
    Public playernames As String
    Public score As Integer
    Public high As Integer
End Module

thanks..

 

[ericgmejia]

sir meron n po b kyong ngawa n tutorial about SEARCH, EDIT, UPDATE and DELETE sa VBNET MS access Database?? qng ala p po pede po b kyong gumawa kc sa vb6 lng ang alam aq d q nmn maintindihan ung ibang tutorials sa net...please help po thanks......

Signature and
PAGE 1

 

[cyrilkun]

sir meron n po b kyong ngawa n tutorial about SEARCH, EDIT, UPDATE and DELETE sa VBNET MS access Database?? qng ala p po pede po b kyong gumawa kc sa vb6 lng ang alam aq d q nmn maintindihan ung ibang tutorials sa net...please help po thanks......

hhe I think merun aku..

saka sa pag coconect sa may db using only code.. peru di ku sya dala nakarent lang kase aku.. hhe, I will link it heree, pag nag online ulit aku..

 

[ericgmejia]

hhe..

ganto pu kase sir.. sorry malabu pu pala explanation ku..

hhe..

I have a form with 2 labels that will show the records on the database..

with 2 buttons next and previous..

hhe when I clicked one of this button it will show the playernames and score they got on the quiz na pinapatulong ku date sa inyu,, hhe

na natapus ku na syempre because of the help of all of you here,,

now, I've provided the codes for connecting it and showing it,, di ku lang naka soft from highest to lowes.. or in descendingorder para maipakita kuyung order kung sinu yun pinakamataas ang nakukkuhang iskor,,

this is the one part ng code ku na I know dito ku lang sya icocode please help..

hhe

Public Class PlayerName
    Dim inc As Integer
    Dim MaxRows As Integer
    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String
    Dim dbSource As String
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim dsNewRow As DataRow
        dsNewRow = ds.Tables("DataBase3").NewRow

        dsNewRow.Item(1) = txtName.Text
        dsNewRow.Item(2) = score

        ds.Tables("DataBase3").Rows.Add(dsNewRow)

        da.Update(ds, "DataBase3")

        'MsgBox("New Record added to the database")
        HallOfFame.Show()
        Me.Hide()
    End Sub

    Private Sub PlayerName_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        Dim fldr As String

        fldr = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "/DataBase3.mdb"
        dbSource = "Data Source = " & fldr

        con.ConnectionString = dbProvider & dbSource

        con.Open()

        sql = "SELECT * FROM PlayerName"
        da = New OleDb.OleDbDataAdapter(Sql, con)
        da.Fill(ds, "DataBase3")
        con.Close()

        MaxRows = ds.Tables("DataBase3").Rows.Count
        inc = -1

    End Sub


Public Class HallOfFame
    Dim inc As Integer
    Dim MaxRows As Integer
    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String
    Dim dbSource As String
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String

    Private Sub HallOfFame_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblName.Text = playernames
        lblScore.Text = high
        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        Dim fldr As String

        fldr = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "/DataBase3.mdb"
        dbSource = "Data Source = " & fldr

        con.ConnectionString = dbProvider & dbSource

        con.Open()

        sql = "SELECT * FROM PlayerName"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "DataBase3")
        con.Close()

        MaxRows = ds.Tables("DataBase3").Rows.Count
        inc = -1
    End Sub
    Private Sub NavigateRecords()

        lblName.Text = ds.Tables("DataBase3").Rows(inc).Item(1)
        lblScore.Text = ds.Tables("DataBase3").Rows(inc).Item(2)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMainMenu.Click
        StartQuiz.Show()
        Me.Hide()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        If inc <> MaxRows - 1 Then
            inc = inc + 1
            NavigateRecords()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
        If inc > 0 Then
            inc = inc - 1
            NavigateRecords()
        End If
    End Sub
End Class
Module Module2
    Public playernames As String
    Public score As Integer
    Public high As Integer
End Module

thanks..

AS I SAID
ITS ALL IN THE SQL COMMANDS

ang sql ang hindi lang SELECT * FROM Table
meron din
WHERE
ORDER BY
INNER JOIN
SUM
etc

 

[Verio]

hjmmm
meron ka month paid pero walang year, pano yan next year?
walang date ang bayad, alam mo ba kung ano date nagbayad si employee?

a little knowledge sa SQL lang ok ka na dito

kung kukunin mo yung LAST payment, pwede mo i sort descending

SELECT TOP 1 FROM Table WHERE EMployeeID = 1
ORDER BY MonthPaid DESC

ang lalabas dyan ay yung record ng TOP or BIGGEST MonthPaid

kapag yung pangalawa e di gamitin mo nalang yung MonthPaid

SELECT * FROM Table WHERE MonthPaid = 2 AND EMployeeID = 1

Ok na po ako sa date kung kelan nagbayad sir,
tyaka di na po aabutin ng year kasi 6months lang po ang term nito..
yung monthpaid po kasi ang tinutukoy dun kung ilang beses na po
yung borrower nagbayad. mali pala nalagay ko dapat 1st, 2nd, 3rd para mas clear..

ito naman code sir yung ginagamit kong pangretrieve ng data:

Friend Class PaymentApp
Public cscmd As New OleDb.OleDbCommand
Public csconn As New OleDbConnection
Public csdr As OleDbDataReader
Public csda As New OleDbDataAdapter
Public strngsql As String

Private Sub Connect()
csconn.ConnectionString = "Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\Database\Coop.mdb;"
csconn.Open()
If csconn.State = ConnectionState.Open Then
Else
MsgBox("Error", MsgBoxStyle.Critical, "Error")
End If
End Sub

Private Sub btnRetrieve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRetrieve.Click
'From LoanAppForm
strngsql = "SELECT * FROM LoanAppForm where EmployeeIDNumber='" & txtEmployeeIDNumber.Text & "'"
cscmd.CommandText = strngsql
cscmd.Connection = csconn
csda.SelectCommand = cscmd
csdr = cscmd.ExecuteReader
If (csdr.Read() = True) Then
txtLastName.Text = (csdr("LastName"))
txtFirstName.Text = (csdr("FirstName"))
txtMiddleName.Text = (csdr("MiddleName"))
txtLoanAmount.Text = (csdr("LoanAmount"))
txtLoanTerms.Text = (csdr("TermsofPayment"))
txtPayableAmount.Text = (csdr("TotalMonthlyPayables"))
dtpDateReleased.Text = (csdr("DateReleased"))
dtpDueMonths.Text = (csdr("DueDate"))
Else
MsgBox("ID Number does not exist", MsgBoxStyle.Exclamation, "Check your ID Number")
End If
cscmd.Dispose()
csdr.Close()

'From LoanAppForm
strngsql = "SELECT * FROM LoanPayment where EmployeeIDNumber='" & txtEmployeeIDNumber.Text & "'"
cscmd.CommandText = strngsql
cscmd.Connection = csconn
csda.SelectCommand = cscmd
csdr = cscmd.ExecuteReader
If (csdr.Read() = True) Then
txtTPADummy.Text = (csdr("TotalPaymentAmount"))
End If
cscmd.Dispose()
csdr.Close()


End Sub

Kung may kulang pa pong info sabihin nyo lang sir.. salamat po

 

[Verio]

hhe yoh!

I have an Idea for the solution of your problem. but it seems na kulang yung information na binigay mu?

Do you have button to add the total payment? do we need to click it? or what? hhe

Automatic po yung pang compute ng total payment sir kasi naka textchange po siya.. ito po yun code:

Private Sub txtPaymentAmount_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPaymentAmount.TextChanged
Call RemainingBalance()
End Sub

Private Sub RemainingBalance()
Dim tpadum As Double
Dim tpayamt As Double
Dim payamt As Double
Dim rembal As Double
Dim loanamt As Double

tpadum = Val(Me.txtTPADummy.Text)
payamt = Val(Me.txtPaymentAmount.Text)

Me.txtTotalPaymentAmount.Text = payamt + tpadum

loanamt = Val(Me.txtLoanAmount.Text)
tpayamt = Val(Me.txtTotalPaymentAmount.Text)

rembal = loanamt - tpayamt
Me.txtRemainingBalance.Text = rembal

End Sub

Ano pa po bang kulang? sabihin nyo lang sir.. salamat po

 

[ericgmejia]

Ok na po ako sa date kung kelan nagbayad sir,
tyaka di na po aabutin ng year kasi 6months lang po ang term nito..
yung monthpaid po kasi ang tinutukoy dun kung ilang beses na po
yung borrower nagbayad. mali pala nalagay ko dapat 1st, 2nd, 3rd para mas clear..

ito naman code sir yung ginagamit kong pangretrieve ng data:

Friend Class PaymentApp
Public cscmd As New OleDb.OleDbCommand
Public csconn As New OleDbConnection
Public csdr As OleDbDataReader
Public csda As New OleDbDataAdapter
Public strngsql As String

Private Sub Connect()
csconn.ConnectionString = "Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\Database\Coop.mdb;"
csconn.Open()
If csconn.State = ConnectionState.Open Then
Else
MsgBox("Error", MsgBoxStyle.Critical, "Error")
End If
End Sub

Private Sub btnRetrieve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRetrieve.Click
'From LoanAppForm
strngsql = "SELECT * FROM LoanAppForm where EmployeeIDNumber='" & txtEmployeeIDNumber.Text & "'"
cscmd.CommandText = strngsql
cscmd.Connection = csconn
csda.SelectCommand = cscmd
csdr = cscmd.ExecuteReader
If (csdr.Read() = True) Then
txtLastName.Text = (csdr("LastName"))
txtFirstName.Text = (csdr("FirstName"))
txtMiddleName.Text = (csdr("MiddleName"))
txtLoanAmount.Text = (csdr("LoanAmount"))
txtLoanTerms.Text = (csdr("TermsofPayment"))
txtPayableAmount.Text = (csdr("TotalMonthlyPayables"))
dtpDateReleased.Text = (csdr("DateReleased"))
dtpDueMonths.Text = (csdr("DueDate"))
Else
MsgBox("ID Number does not exist", MsgBoxStyle.Exclamation, "Check your ID Number")
End If
cscmd.Dispose()
csdr.Close()

'From LoanAppForm
strngsql = "SELECT * FROM LoanPayment where EmployeeIDNumber='" & txtEmployeeIDNumber.Text & "'"
cscmd.CommandText = strngsql
cscmd.Connection = csconn
csda.SelectCommand = cscmd
csdr = cscmd.ExecuteReader
If (csdr.Read() = True) Then
txtTPADummy.Text = (csdr("TotalPaymentAmount"))
End If
cscmd.Dispose()
csdr.Close()


End Sub

Kung may kulang pa pong info sabihin nyo lang sir.. salamat po

mag run ka lang ng AGGREGATE QUERY (yung may SUM) para makuha mo ang total