VB 6.0 guys pahelp naman,,,,salahat po ng maalam sa vb 6,,,wait ko po

[mikim]

Sir magandang araw po itatanung ko lang po sana ito po ang code ko sa search paano ko po kaya masesearch ang ID nd customer at Date ng sabay,,,
kasi po may parehas po kasing customer ID ngunit magkaiba ang date nila,,,,ang gusto ko po sanang mangyari ay ma filter ko yung ID at date ng sabay;;
Halimbawa po:
ID date
1 2/9/2017
1 2/10/2017
2 2/10/2017
2 2/9/2017

ang tinype ko po sa txtID ay 1 malabas po yung lahat ng may ID na 1 tapos
Pag nagtype na po me sa txtdate ng 2/9/2017 dapat po ang malabas po sa sa listview ay

ID date
1 2/9/2017


possible po kaya eto,,,paano po kya ,,,,salamat po,,,,vb6.0 po eto
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,


Set Connect = New Class1
Set rx = New ADODB.Recordset

With rx
rx.Open "Select * from xinstallmentsummary where ID like '" & txtID & "'", con, 3, 3
If rx.RecordCount >= 1 Then
ListView1.ListItems.Clear
Do While Not .EOF
ListView1.ListItems.Add , , !ID, 1, 1
ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = "" & !SalesInvoice
ListView1.ListItems(ListView1.ListItems.Count).SubItems(2) = "" & !CustomerID
ListView1.ListItems(ListView1.ListItems.Count).SubItems(3) = "" & !Customername
ListView1.ListItems(ListView1.ListItems.Count).SubItems(4) = "" & !Customerlastname
ListView1.ListItems(ListView1.ListItems.Count).SubItems(5) = "" & !Totalamount
ListView1.ListItems(ListView1.ListItems.Count).SubItems(6) = "" & !Tendered
ListView1.ListItems(ListView1.ListItems.Count).SubItems(7) = "" & !Balance
ListView1.ListItems(ListView1.ListItems.Count).SubItems(8) = "" & !Duedate
rx.MoveNext
Loop
.Close
Else
End If
End With
Set rx = Nothing
con.Close: Set con = Nothing

 

[xloverboyx]

Lagyan mo nalang ng AND sa query mo TS.

rx.Open "Select * from xinstallmentsummary where ID like '" & txtID & "' AND Date = '" & Datepicker.Value & "' ", con, 3, 3

OR pwede mo ring gawing variable ang AND Statement mo.

Dim sAnd as String
IF DatePicker.Value <> "" THEN
sAnd = "AND Date = '" & DatePicker.Value & "' "
ELSE
sAnd = ""
END IF

rx.Open "Select * from xinstallmentsummary where ID like '" & txtID & "'" & sAnd, con, 3, 3

 

[mikim]

Lagyan mo nalang ng AND sa query mo TS.

rx.Open "Select * from xinstallmentsummary where ID like '" & txtID & "' AND Date = '" & Datepicker.Value & "' ", con, 3, 3

OR pwede mo ring gawing variable ang AND Statement mo.

Dim sAnd as String
IF DatePicker.Value <> "" THEN
sAnd = "AND Date = '" & DatePicker.Value & "' "
ELSE
sAnd = ""
END IF

rx.Open "Select * from xinstallmentsummary where ID like '" & txtID & "'" & sAnd, con, 3, 3

salamat po,,,etatry ko po,,,,,natry mo na po ba etong gamitin yung ganitong style ng code

 

[xloverboyx]

Oo TS, nag mamaintain parin kasi ako ng system dito sa amin gamit ang vb6.

 

[mikim]

Oo TS, nag mamaintain parin kasi ako ng system dito sa amin gamit ang vb6.

PWEDE PO BANG MAHINGE EMAIL MO SA FACEBOOK,JUST IN CASE NA MAY TANOng pa po ako,,ma ppm nalang kita,hahahahh,,thanks po pala ng marami,,,nagwork po,,,,salamat po...

 

[mikim]

Oo TS, nag mamaintain parin kasi ako ng system dito sa amin gamit ang vb6.

Sir may tanong ako regarding sa search,,,pag kasi ako nagasearch using barcode scanner in vb6,tapos yung na search ko ay wala dun sa list,,,,,,,,,ang nangyayari ay paulit ulit na nalabas ang 'No Item found!' kung gano kadami yung letter o number sa Productcode.text ganun kadaming beses lumalabas yung "No Item found" kaya ang nangyayari madaming beses ako naga OK dun sa Msgbox na "No Item found" ,,,,,,,,nagtataka ako kasi after nung naman nung Msgbox ko,,,naglagay me ng Exit sub,,,,pero pagdating dun ganun padin,,,,nalabas padin sya,para kasi syang nagloloop.....




Ano po kaya ang solution para dito,,,,,Madaming salamat po sa inyong lahat,

Eto po ang code ko




Set Connect = New Class1
Set rx = New ADODB.Recordset

With rx
rx.Open "Select * from Inventory where Productcode like '" & Productcode.text & "'", con, 3, 3
If rx.RecordCount >= 1 Then
ListView1.ListItems.Clear
Do While Not .EOF
ListView1.ListItems.Add , , !ID, 1, 1
ListView1.ListItems(ListView1.ListItems.Count).Sub Items(1) = "" & !Productcode
ListView1.ListItems(ListView1.ListItems.Count).Sub Items(2) = "" & !CustomerID
ListView1.ListItems(ListView1.ListItems.Count).Sub Items(3) = "" & !Customername
ListView1.ListItems(ListView1.ListItems.Count).Sub Items(4) = "" & !Customerlastname
ListView1.ListItems(ListView1.ListItems.Count).Sub Items(5) = "" & !Totalamount
ListView1.ListItems(ListView1.ListItems.Count).Sub Items(6) = "" & !Tendered
ListView1.ListItems(ListView1.ListItems.Count).Sub Items(7) = "" & !Balance
ListView1.ListItems(ListView1.ListItems.Count).Sub Items(8) = "" & !Duedate
rx.MoveNext
Loop
.Close
Else
Msgbox"No Item found!"
exit sub
End If
End With
Set rx = Nothing
con.Close: Set con = Nothing

 

[xloverboyx]

Now lang naka update ulit TS,, busy kasi revised ng mga program dito.,haha.,

Hmmn..based sa sinabi mo sa problem mo TS, ang nakikita kong problema is dalawa:

First is yung query mo, instead of using "LIKE" in where clause, use equal "=" nalang. Kasi kung Productcode ang pag-uusapan, sure naman tayo jan na "one-is-to-one" yang product code nyo, to make sure na ma iwasan ang duplication ng products.

At second, which is cause sa pag proprompt ng msgbox na equal sa number of characters ng product code mo, is ung trigger ng Event mo sa search box mo. I'm assuming this only TS, pero sure din ako na malamang ito ang problema. Yung code mo sa searching (yung nasa post mo) ay nakalagay sa textbox_Change event ng Searchbox mo and everytime na nag i-scan ka using barcode ay nag titrigger ung event ng searchbox.

Ang nangyayari kasi TS, sa barcode scanner is ininput niya each letter ng product code na na iiscan nito dun sa searchbox mo in a fast pace, and every changes on the letters sa searchbox nag titrigger ung event. Kaya un laging lumalabas ang msgbox mo.

E.g. ITEMCODE1, pag scan nito first na malalagay sa searchbox is letter "I", trigger ka agad ung event, next is letter "T", trigger ulit, and so on.

Much better siguro ts na wag mo ilagay dun sa on change event ng searchbox mo ang searching, pwd mo ilagay ito sa button_click event, or keypress/keydown event kung pwede sa barcode scanner mo na after niya ma read ang barcode is automatic na mag eenter key xa.

Sana makatulong ito TS, kahit medu huli na. ^_^

PS: Mabuti naman at napagana mo ung first problem mo, keep up! At ibaon na natin tung vb6..kung pwd.. ahaha