bros,
I feel it Intricate to load data from Access to vb6 by sql with two conditions.
I like to load if EM_ID = 81 and month = January.
The date field in access table is short date format, I need to look into month.
I get error " Data type mismatch in criteria expression"
do you have any idea?
thanks
vb kid
My code:
I feel it Intricate to load data from Access to vb6 by sql with two conditions.
I like to load if EM_ID = 81 and month = January.
The date field in access table is short date format, I need to look into month.
I get error " Data type mismatch in criteria expression"
do you have any idea?
thanks
vb kid
My code:
Code:
Private Sub Load_Indi_Payroll()
Dim lvItem As MSComctlLib.ListItem
On Error GoTo err_trap
If RS.State = adStateOpen Then
RS.Close
End If
ListView1.ListItems.Clear
ListView1.SmallIcons = ImageList1r
ListView1.Icons = ImageList1r
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "Emp.No", 830
ListView1.ColumnHeaders.Add , , "Name", 1350
ListView1.ColumnHeaders.Add , , "Month", 1350
ListView1.ColumnHeaders.Add , , "Basic", 700
ListView1.ColumnHeaders.Add , , "Gross", 850
ListView1.ColumnHeaders.Add , , "Advance", 800
ListView1.ColumnHeaders.Add , , "GOSI", 700
ListView1.ColumnHeaders.Add , , "Other", 700
ListView1.ColumnHeaders.Add , , "Total", 950
ListView1.ColumnHeaders.Add , , "Net", 950
ListView1.ColumnHeaders.Add , , "Remarks", 4600
RS.Open "Select * from tblPayroll where EM_ID ='" & Me.cboID.Text & "' And Month(dDate)='" & Month(Me.DTPick.Value) & "' ORDER BY tblPayroll.EM_ID;", cn, adOpenKeyset, adLockPessimistic
Do While RS.EOF = False
Set lvItem = ListView1.ListItems.Add(, , RS.Fields("EM_ID").Value, , 1)
lvItem.SubItems(1) = RS.Fields("EM_NAME").Value
lvItem.SubItems(2) = RS.Fields("dDate").Value
lvItem.SubItems(3) = RS.Fields("Basic").Value
lvItem.SubItems(4) = RS.Fields("Gross").Value
lvItem.SubItems(5) = RS.Fields("Advance").Value
lvItem.SubItems(6) = RS.Fields("GOSI").Value
lvItem.SubItems(7) = RS.Fields("otherdeduct").Value
lvItem.SubItems(8) = RS.Fields("Deduction").Value
lvItem.SubItems(9) = RS.Fields("Net").Value
lvItem.SubItems(10) = RS.Fields("Remarks").Value
lvItem.ListSubItems(4).Bold = True
lvItem.ListSubItems(2).ForeColor = vbBlue
lvItem.ListSubItems(2).Bold = True
lvItem.ListSubItems(1).Bold = True
lvItem.ListSubItems(4).ForeColor = vbBlue
RS.MoveNext
Loop
Exit Sub
err_trap:
MsgBox err.Description, vbCritical, "Error"
Set RS = Nothing
End Sub