Exclusively for Visual Basic 6.0 Programmers Only!

[chocobo162002]

Guys pa help naman ako sa problem ko.. Gumagawa ako now ng system sa vb6. ang problem ko po eh. ung sa listview. Ganito po yung scenario, gumawa ako ng mga textbox, command button at listview na pag niclick ko yung command button, yung laman ng textbox eh ma-aadd sa listview. Ang problema ko, pag niclick ko na yung command button, lumalabas yung error na "Run-time Error 13: Type mismatch. Nung ginagawa ko po sya sa isang blank na project, working sya. Kaya lang pag nilagay ko na sya sa system na ginagawa ko, nakukuha ko naman yung error na nabanggit ko. Ito nga po pala yung code ko...

Dim AddTransaction As ListItem

If Len(cbo_itemcode.Text) = 0 Or Len(cbo_itemname.Text) = 0 Or Len(txt_itemqty.Text) = 0 Then
MsgBox "Please fill all fields", vbOKCancel + vbCritical, "Error"
Else
Set AddTransaction = lst_transaction.ListItems.Add(1, , txt_itemnum.Text, , 0)
'AddTransaction.Text = txt_itemnum.Text

AddTransaction.SubItems(1) = cbo_itemcode.Text
AddTransaction.SubItems(2) = cbo_itemname.Text
AddTransaction.SubItems(3) = txt_itemtype.Text
AddTransaction.SubItems(4) = txt_itemdesc.Text
AddTransaction.SubItems(5) = txt_supname.Text
AddTransaction.SubItems(6) = txt_supcode.Text
AddTransaction.SubItems(7) = txt_supprice.Text
AddTransaction.SubItems(8) = txt_itemsrp.Text
AddTransaction.SubItems(9) = txt_itemqty.Text
Set AddTransaction = Nothing

End If

Please help po... Badly need ko po talaga ang help.

 

[pnxstan23]

mga k symb pahingi naman ng installer ng visual basic 6.0
thanks...

sir penge nmn ako ng installer ng vb 6.0 salamat po

Check my signature below

 

[eon3131]

sir penge nmn ako ng installer ng vb 6.0 salamat po

 

[sentihtic]

MGA SIR:

BAKA PO PEDE

MAY MAG POST PO NG PWEDENG MAG DOWNLOADAN NG

"VISUAL BASIC 6.0 BLACK BOOK"

 

[lesterluma]

Hello ka'symb. matagal na rin ako di nakakapost dito ah. hehe..

may nakaka alam ba nito ? see attached pix..


1. paano ko mapag sama sama sa isang row yung mga duplicate na items sa listview ??

Ex.

sa column 1
1000 - 1100 ------- first column
1000 - 1100 -------second column

paano siya magiging isa ? I mean blank nlng yung mga next item..

Expected Output..
1000 - 1100 ----------- first column lang hindi na kasama yung second column kasi same lang sila ng value eh.



thx ka symb .

 

[jess1993]

hello ka'symb. Matagal na rin ako di nakakapost dito ah. Hehe..

May nakaka alam ba nito ? See attached pix..


1. Paano ko mapag sama sama sa isang row yung mga duplicate na items sa listview ??

Ex.

Sa column 1
1000 - 1100 ------- first column
1000 - 1100 -------second column

paano siya magiging isa ? I mean blank nlng yung mga next item..

Expected output..
1000 - 1100 ----------- first column lang hindi na kasama yung second column kasi same lang sila ng value eh.



Thx ka symb .

di ba manual listing gingamit sa listview..try nyo po lagyan mo po ng ifelse condItion..

 

[lesterluma]

di ba manual listing gingamit sa listview..try nyo po lagyan mo po ng ifelse condItion..

bigay ka nga po halimbawa ng If-Else condition sa LISTVIEW...



may tanong po ulit ako.. etoo/


here's the link

http://www.symbianize.com/attachment.php?attachmentid=780747&d=1377827137




eh.. paano naman kapag nag click ako ng button dapat mahihighlight yung next item ng listview tapos ma'kClick yung na highlight na next item tapos show yung next form.


see nyo yung attached picture..


ex.

once na knlick ko yung BUTTON dapat pupunta siya sa next item ng listview..


dapat mahihighlight yung next row.. then Click yung next row na yun.. then form.show...

thanks..

 

[jess1993]

bigay ka nga po halimbawa ng If-Else condition sa LISTVIEW...



may tanong po ulit ako.. etoo/


here's the link

http://www.symbianize.com/attachment.php?attachmentid=780747&d=1377827137




eh.. paano naman kapag nag click ako ng button dapat mahihighlight yung next item ng listview tapos ma'kClick yung na highlight na next item tapos show yung next form.


see nyo yung attached picture..


ex.

once na knlick ko yung BUTTON dapat pupunta siya sa next item ng listview..


dapat mahihighlight yung next row.. then Click yung next row na yun.. then form.show...

thanks..

para po dun sa selection http://www.w3schools.com/sql/sql_distinct.asp

 

[lesterluma]

para po dun sa selection http://www.w3schools.com/sql/sql_distinct.asp

yup.. di ko pa na ttry yan.. pero sa tingin ko tama yan.. okay na yung 1st..

yung 2nd problem ko nlng

thanks

 

[jess1993]

pwedi pakipost nman code mo sa paglilist ng data sa listview para mas madali ipaliwanag?

 

[vinz_rage]

Sir patulong po.gagawa kasi kami ng tabulation system para sa isang pageant sa school.eh ang problema ko po di po averaging yung pangkuha nung final score kundi ranking system.parang ganito po :

kunwari

best in costume scores : A = 86% rank 3
B = 98% rank 1
C = 78% rank 4
D = 94% rank 2
best in . . . scores : A = 77% rank 3
B = 69% rank 4
C = 79% rank 2
D = 90% rank 1

bale iaadd lng po yung rank.yung letter D po mananalo kasi siya may pinakamaliit na accumulated rank points.ang problema ko po ngayun kapag nagkaron ng pare parehong scores yung mga contestant.bale ididivide ko po yung rank points na dapat sa kanila.parang ganito

A = 78% rank 3
B = 88% rank 2
C = 78% rank 3
D = 90% rank 1
E = 90% rank 1

bale yung D at E po maghahati sa 1 at 2 ranks.bale tig 1.5 po sila ng points
yung A at C naman maghahati sa 4 at 5 ranks. bale tig 4.5 sila kasi 9 yung total niyan.

panu po kaya logic nito?sa lunes ko na po ipapasa eh...

pki'up nman po ne2..need ko din po kac toh for upcoming pageant..ranking din kc ung scoring base..help nman poh..tnx!

 

[lesterluma]

pwedi pakipost nman code mo sa paglilist ng data sa listview para mas madali ipaliwanag?

okay na po papsi..


PROBLEM SOLVED na thnx

 

[jess1993]

okay na po papsi..


PROBLEM SOLVED na thnx

ok..

 

[jess1993]

mga master my code ba na nad ra-round of ng numbers? example: 123.4567 dapat maging 123.46 na lang xa.. salamat...

try this one


roundednum = Format(NumbertoRound,"#.##")

 

[jess1993]

sir pa help tama po ba toh for 3 attempts error in login form

Dim counter As Integer
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then
MsgBox " The Username And/Or Password Entered Is Incorrect "
Else
If Text1.Text = "username" And Text2.Text = "password" Then
MsgBox " The Username And/Or Password Entered Is Correct!!!"
Form1.Show
Else
counter = counter + 1
End If
If counter = 3 Then
MsgBox "Program terminated. Contact your admin", vbCritical, "Terminated"
End
End If
End If
End Sub

Private Sub Form_Load()
X = 0
End Sub
tnx

try this one:

Dim counter as Integer

Private Sub Form_Load()
counter=0
End Sub

Private Sub LogIn_Click()

If Text1.Text="username" and Text2.Text="Password Then
MsgBox("The UserName/PassWord is Correct!",vbInformation+vbOkOnly,"Access Granted")
Form1.Show
Exit Sub
End IF

If Trim(Text1.Text)="" or Trim(Text2.Text)="" or Text1.Text<>"username" or Text2.Text<>"password" Then
MsgBox("The UserName/PassWord is Incorrect!",vbCritical+vbOkOnly,"Access Denied!")
counter=counter+1
End If

If counter=3 Then
MsgBox("Program terminated. Contact your admin.",vbCritical+vbOkOnly,"Terminated")
End If
End Sub

 

[tangnayan]

parequest namn, pwede pa lagay nung mga sample program o url sa 1st page. para madaling mahanap kung nand2 ba hinahanap ng iba. katulad ko, hirap maghanap, dami nang page eh.
salamat na din sa thread. hehe

 

[brinhildr]

Good Day guys,

patulong naman po, simple Log In / Register lang naman po to Using VB6 and Microsoft Access . Di pa kasi samin tinuturo to eh, kailangan ko na kasi talaga siyang magawa :/ thanks in advance sa mga tutulong sakin mga ka sb

andyan po yung interface na gagawin kahit di po katulad na katulad, kailangan ko lang po talaga malaman yung syntax na gagawin Thanks

 

[karloy]

pa help naman po..
ano po ba yung code para ma prevent ang duplicate entry sa database ng mysql through vb6?

 

[mleo]

pa help naman po..
ano po ba yung code para ma prevent ang duplicate entry sa database ng mysql through vb6?

search mo muna sa database "SELECT" kapag meron edi meron

 

[flamehazeshana13]

Patambayyyyy! Para makatulong naman ako kaso wala akong experience sa SQL Queries at Databases, hanggang Game Dev lang ako sa VB6.. Haha

Kaya kung may tanong kayo tungkol sa DX8 on VB6 tanong niyo lang sa akin, try ko kung kaya ko sagutin.