Exclusively for Visual Basic 6.0 Programmers Only!

[dart99999]

mga sir meron po bang installer nito pang 64bit. .may naDL ako not compatible daw kasi

 

[triggerishtehman]

patulong naman po sa stock management na to need ko po para sa inventory management system project ko. im a new bscs btw. kelangan ko po kung pano gawin to

beg stock - sales = rem stock
(on the next day ) previous rem stock + add more stock = (rem stock final ) or kung may dedeliver na naman stock on the other mag aadd ulit sya

gets nyu po medyo d po ako magaling sa explaining
thanks po

 

[jocno1212]

Mga boss, pahelp naman. My "Sytax Error in FROM clause" daw eh.
Yung Dbase ko is agemast.mdb at may table na agemast with fields: Acct, CustomerName, DRDate, TPenalty

Private Function SearchNames(txtSearch As String) As Boolean
On Error GoTo ERROR_LINE
Dim bReturn As Boolean
Dim sSql As String
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Agemast.mdb"

sSql = "SELECT Agemast.AcctNo FROM Agemast" 'ORDER BY AcctNo
sSql = sSql & "WHERE AcctNo like '" & txtSearch & "' "
sSql = sSql & "ORDER BY AcctNo"

lvw.ListItems.Clear
Dim xList As ListItem
lvw.ListItems.Clear
If con.State = adStateOpen Then

rs.Open sSql, con, adOpenForwardOnly
Do While Not rs.EOF 'habang wala pa sa dulo
Do While Not rsADO.EOF 'habang wala pa sa dulo

Set xList = lvw.ListItems.Add(, , Trim(rs("AcctNo")))
xList.SubItems(1) = Trim(StrConv(rs("CustomerName"), vbProperCase))
xList.SubItems(2) = Trim(rs("DRDate"))
xList.SubItems(3) = "Php" & Trim(Format(rs("TotalPenalty"), "#,##0.00"))

xList.Tag = rs("AcctNo")

rs.MoveNext

Loop
If lvw.ListItems.Count <> 0 Then
lvw.SetFocus
Else
txtSearch.SetFocus
txtSearch.SelStart = 0
txtSearch.SelLength = Len(txtSearch.Text)

End If
Else
Err.Raise vbObjectError + 513, ERR_CAN_NOT_OPEN_CONNECTION
End If
bReturn = True
EXIT_FUNCTION:
SearchNames = bReturn
Set rs = Nothing
con.Close
Set con = Nothing
Exit Function
ERROR_LINE:
MsgBox Err.Description
bReturn = False
Resume EXIT_FUNCTION
End Function

O kaya paano ba mag finditems sa listview na may umuulit na record?

Ito kasi yung code ko, ang kaso, dapat specific yung text na hinahanap tapos halimbawa na may kaparehas na record, di nya yun pupuntahan, doon siya magstick sa unang search niya.

Private Sub cmdSearch_Click()
Dim itm As MSComctlLib.ListItem

Set itm = lvw.FindItem(txtSearch.Text, lvwSubItem, , lvwPartial)
'for partial search use this:
'**Set itm = ListView1.FindItem("partial text goes here", lvwSubItem, , lvwPartial)
If Not itm Is Nothing Then
itm.EnsureVisible
itm.Selected = True
lvw.SetFocus
End If
Ens Sub

 

[acelleb]

Mga boss, pahelp naman. My "Sytax Error in FROM clause" daw eh.
Yung Dbase ko is agemast.mdb at may table na agemast with fields: Acct, CustomerName, DRDate, TPenalty

sSql = "SELECT Agemast.AcctNo FROM Agemast" 'ORDER BY AcctNo
sSql = sSql & "WHERE AcctNo like '" & txtSearch & "' "
sSql = sSql & "ORDER BY AcctNo"


Walang space between "Agemast" at "WHERE" mo kaya error in FROM clause
Lage ka maglalagay ng space sa simula or sa dulo para sure like this

sSql = " SELECT Agemast.AcctNo FROM Agemast" 'ORDER BY AcctNo
sSql = sSql & " WHERE AcctNo like '" & txtSearch & "' "
sSql = sSql & " ORDER BY AcctNo"

- - - Updated - - -

 

[jocno1212]

sSql = "SELECT Agemast.AcctNo FROM Agemast" 'ORDER BY AcctNo
sSql = sSql & "WHERE AcctNo like '" & txtSearch & "' "
sSql = sSql & "ORDER BY AcctNo"


Walang space between "Agemast" at "WHERE" mo kaya error in FROM clause
Lage ka maglalagay ng space sa simula or sa dulo para sure like this

sSql = " SELECT Agemast.AcctNo FROM Agemast" 'ORDER BY AcctNo
sSql = sSql & " WHERE AcctNo like '" & txtSearch & "' "
sSql = sSql & " ORDER BY AcctNo"

- - - Updated - - -

Bwahaha, ou nga noh? yun lang pala, hahaha.

E yung pangalawang tanong ko boss? baka alam mo?

 

[denicio21]

mga pards pahelp naman po kung pano maindicate ung days sa textbox base sa calendar na maconsume ng customer..tnx
View attachment 184374

 

[knives645]

mga pards pahelp naman po kung pano maindicate ung days sa textbox base sa calendar na maconsume ng customer..tnx
View attachment 961110

Gamitan mo lang po ng DateDiff na function.
Ex.
txtDays.Text = DateDiff("d", "09/08/2014", "09/12/2014")

'will return 4

 

[01reren]

Mga sir pano po ilagay sa autohotkey script yung alt + v + t+s (example)? para pag click nang button mawawala nalang yung status bar :|

 

[xboifriend]

Mga bossing, patulong naman po sa codes ko hindi ko sya maexecute ng tama,

Heres the code that im using,

Dim Qty As Integer
For Qty = 1 To frmSKUMaster.lvShow.ListItems.Count

executeQuery "UPDATE Stocks SET DeliveredQty = '" & frmSKUMaster.lvShow.ListItems(Qty).SubItems(1) + Val(Me.Text1.Text) & "' WHERE SKUNo = '" & frmSKUMaster.lblSKUSelector & "';"
Next
frmSKUMaster.lvShow.ListItems.Clear


PLease see attached file for screenshots.

 

[URAZKY]

Guys, Please help me naman on my project. I already attached na po yung gusto ko mangyari sa program ko. bale my combobox po ako na ginamit then syempre po my Item list siya, once na pumili po sana ako ng values dun sa combobox, yung value dun sa range and yung pinili ko na value sa combobox ay magsasama. for example po ganito RANGE: Prime3 CLASS: CA magiging value niya sa RANGE CLASS: Prime3 CA. patulong naman guys, pano gawin to.

View attachment 184882

 

[mattvidal977]

MSDN baka gusto nyo
msdn october 2001
http://www.mediafire.com/download/n0tsudgq5xvf5ho/msdn_oct_2001.part1.rar
http://www.mediafire.com/download/ll7d74btreqbbe5/msdn_oct_2001.part2.rar
http://www.mediafire.com/download/l1c71dsjar21bw7/msdn_oct_2001.part3.rar
http://www.mediafire.com/download/hcajuo67f4gkj2g/msdn_oct_2001.part4.rar
http://www.mediafire.com/download/lglmwhd5b9zz25e/msdn_oct_2001.part5.rar
http://www.mediafire.com/download/2g8ydycruw35kdf/msdn_oct_2001.part6.rar
http://www.mediafire.com/download/yq5bw1p3taw5lhh/msdn_oct_2001.part7.rar

gamit nalang kayo virtual drive pag-install nyo

 

[vergel2014]

sir tanong ko lang po advicesable bang gamitin ang VB6 kahit may visual studio 2010,2012,2013 na po ?

 

[shiiver0214]

tanong lng po mga t-cher ACTIVE pa po ba tong thread na to.. tpus pano po i link ung vb6 para kunin nya ung data sa msql or mssql kase sa ms access plang alam ko e

 

[silversaint07]

mga kaSym. pahelp lang po pls ..

pano gumawa ng filtering option sa vb6?
kagaya din ng filter sa MsExcell....
datagrid gamit ko na table,
Ms access naman for database.

Bale ang Set-up ay ganito..
* May combobox na sya yung kukuha ng mga records sa isang collumn.
* Pag browse nya sa combobox mag-aapear yung mga record sa isang collumn (pero walang redundant).
* tapos pag click sa isang certain record, magpi-filter yung table,
maga-apear na nalang is yung may kaparehong record ng combobox na finilter nya.
(Parang MsExcell filter option pero sa Vb gagawin.)

- - - Updated - - -

mga kaSym. pahelp lang po pls ..

pano gumawa ng filtering option sa vb6?
kagaya din ng filter sa MsExcell....
datagrid gamit ko na table,
Ms access naman for database.

Bale ang Set-up ay ganito..
* May combobox na sya yung kukuha ng mga records sa isang collumn.
* Pag browse nya sa combobox mag-aapear yung mga record sa isang collumn (pero walang redundant).
* tapos pag click sa isang certain record, magpi-filter yung table,
maga-apear na nalang is yung may kaparehong record ng combobox na finilter nya.
(Parang MsExcell filter option pero sa Vb gagawin.)

 

[zharluth]

link po ng visual studio 2013 kung san pwde ma i download salamat po

 

[Hotsause03]

link po ng visual studio 2013 kung san pwde ma i download salamat po

sir tanung ka po kay uncle google

tapos para sa licience key ? crack it nalang po

- - - Updated - - -

mga ka sym

pde po ba patulong may code din po ba sa vb6 na kayang pagalawin ang GIF picture ?

 

[rysajhien03]

patulong naman po sa project ko newbies lan po ako sa visual basic 6.0

sample standard deviation , mean , mode, median lahat po un group data

nd ko po tlaga alam un mga code dun

help po pleaseee...

 

[genber0814]

Ex. po ung function nya po e "End" pero nakahide po sya pero pag pinindut mo po ung location ng button kahit na nakahide e magfufunction po .

 

[Galferdz]

Re: Exclusive for Visual Basic 6.0 Programmers Only!

1000 VISUAL BASIC6 source codes of programs.
File size: 60.32 MB

http://www.mediafire.com/download/ayb4hcjxzej/1000_Visual_Basic_Source_Code.rar

may simple client server winsock ado database sample ba kau jan ung wala ng module2x nalulula kasi qdun beginer plang ako sa vb 6 project namin yan bukas na deadline huhuhu lam beses na q umulit d ko tlaga makuha huhuhu notification lang naman ung title ng aken thanks sa makakatulong

 

[damageklang]

pagawa po ng library database sa vb 6 exam namin now na sana asap