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