Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

Exclusively for Visual Basic 6.0 Programmers Only!

di naman problema kung papano mag start

read the concepts; maging familiar ka sa mga keywords at objects at kung papano gamitin
tapos mag code ka lang; itry mo sa code yung nabasa mo
read the concepts ulit; pag di mo nagets, basa ulit, see samples kung paano ginawa
tapos mag code ulit; do it on your own once na naget mo yung concept

gawa ka ng simple project na nandun ang mga dapat mo malaman like using controls
basic codes like "if then else", error handling, etc

may internet
may ebooks
meron din samples dito

nasa sa sariling determination mo na yan
at walang ibang makakatulong dyan na iba kundi ikaw
sariling palo kumbaga




START SOMEWHERE AND START NOW

boss san po mga download links ng ebook? or mga codes balak ko sana magaral (self study) gus2 ko kasi gumawa ng database. . mas ok cguro vb kesa sa ms access noh? TIA
 
Private Sub cmdAdd_Click()



clearform
MasterAction = "ADD"
resetFormControl True, vbWhite
blnchangemade = False
If empdeptrs.RecordCount > 0 Then
empbookmark = empdeptrs.Bookmark
End If

'Generate_no

Dim rsdb As Recordset

Set rsdb = employeedb.OpenRecordset("Select max(auid) as cntr from empPosition", dbOpenSnapshot)

' Set rsdb = employeedb.OpenRecordset("Select Max(" & strY & ") from " & strX & "")


If rsdb.RecordCount > 0 Then
rsdb.MoveLast
' Me.lbltry.Caption = rsdb!cntr + 1
Me.Text1 = rsdb!cntr + 1

'Me.Text1 = 1
' Else
' Me.Text1 = 1
End If


empdeptrs.AddNew
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True

Text2.SetFocus
OktoExit = False



End Sub


============================


May TAO po ba dito???
pede mag pa tulong...

ask ko lang po kung paano po kumuha ng maxID i mean na max ID

HAL: I add record 1 - 10 then i delete record #9 then the #9 record will be automatically available.

dapat wen i click the ADD button instead of 11 ang lalabas sa textbox. mag kakaroon ng message box "OPTION" asking for the number that is not yet avail...



may makaktulong po ba?
 
Private Sub cmdAdd_Click()



clearform
MasterAction = "ADD"
resetFormControl True, vbWhite
blnchangemade = False
If empdeptrs.RecordCount > 0 Then
empbookmark = empdeptrs.Bookmark
End If

'Generate_no

Dim rsdb As Recordset

Set rsdb = employeedb.OpenRecordset("Select max(auid) as cntr from empPosition", dbOpenSnapshot)

' Set rsdb = employeedb.OpenRecordset("Select Max(" & strY & ") from " & strX & "")


If rsdb.RecordCount > 0 Then
rsdb.MoveLast
' Me.lbltry.Caption = rsdb!cntr + 1
Me.Text1 = rsdb!cntr + 1

'Me.Text1 = 1
' Else
' Me.Text1 = 1
End If


empdeptrs.AddNew
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True

Text2.SetFocus
OktoExit = False



End Sub


============================


May TAO po ba dito???
pede mag pa tulong...

ask ko lang po kung paano po kumuha ng maxID i mean na max ID

HAL: I add record 1 - 10 then i delete record #9 then the #9 record will be automatically available.

dapat wen i click the ADD button instead of 11 ang lalabas sa textbox. mag kakaroon ng message box "OPTION" asking for the number that is not yet avail...



may makaktulong po ba?


bakit kelangan mo pa gamitin ang #9, counter lang naman yan so leave it as is
bakit di mo namang gamitin yung autonumber ng database mo

it will take lots of effort ang processing time kasi pag nag implement ka ng ganyan

kung may realtionship kasi yung table na yan, di mo dapat i delte yung #9, just mark it as inactive

pero kung gusto mo idelete ok lang

ang solution dyan is magahanap ka ng UNUSED na number
by looping, one by one po yun
imagine kung may 1million records ka.

mag loop ka sa;
if n = n+1 then

else

endif


obsseesed din ako dyan dati sa numbering noong bata pa ako sa programming
pero ngayon, meron lang akong autonumber at isang autogenerated number/string na series lang
pero still using MAX sa sql

di naman importante na sunod sunod yan
importante is naka index at unique

isang technique din ay i store mo yung ID ng nadelete na record
at gamitin mo yun muna before generating another

pero still the same, effort parin sa part mo to code, debug and test
the more code, the more tendency for bugs
 
hello boss ericgmejia papansin naman po sa tanong ko . .TIA
 
Pasubscribe po,. magsisimula pa lang po ako sa vb6. Pwede po bang makahingi ng link ng vb6 wala pa po kasi ako. TIA
 
Last edited:
hello boss ericgmejia papansin naman po sa tanong ko . .TIA

wala akong ebooks dito sa office e

maybe later kung abutan mo ako mamayang madaling araw,
thru ym lang at ibigay ko yung link sa dropbox ko

i cant post it here kasi i make sure available lang yun for 12hours

ito
http://www.symbianize.com/showthread.php?t=163979
halos complete sample na yan at marami pang codes na kasama
marami ka na mapupulot dyan

fot the meantime, try mo rin mag search at mag collect ng mga ebooks sa programing
maski di mo kelangan today, malay mo magagamit mo rin bukas

pero hwag kalimutan basahin ha
 
Last edited:
bakit kelangan mo pa gamitin ang #9, counter lang naman yan so leave it as is
bakit di mo namang gamitin yung autonumber ng database mo

it will take lots of effort ang processing time kasi pag nag implement ka ng ganyan

kung may realtionship kasi yung table na yan, di mo dapat i delte yung #9, just mark it as inactive

pero kung gusto mo idelete ok lang

ang solution dyan is magahanap ka ng UNUSED na number
by looping, one by one po yun
imagine kung may 1million records ka.

mag loop ka sa;
if n = n+1 then

else

endif


obsseesed din ako dyan dati sa numbering noong bata pa ako sa programming
pero ngayon, meron lang akong autonumber at isang autogenerated number/string na series lang
pero still using MAX sa sql

di naman importante na sunod sunod yan
importante is naka index at unique

isang technique din ay i store mo yung ID ng nadelete na record
at gamitin mo yun muna before generating another

pero still the same, effort parin sa part mo to code, debug and test
the more code, the more tendency for bugs





pero dahil Hotel Reservation ang system na ginagawa ko na POS kelangan ko tlga yung details...

2nd question total na sabi mo na rin ang inactive...

panu gawin yun??

text1.enabled lang? e panu ung index ng mga number etc???



pero thanks na din sa advice... siguro mag reresign n lang ako dito... T_T

habang bata pa ako...
 
pero dahil Hotel Reservation ang system na ginagawa ko na POS kelangan ko tlga yung details...

2nd question total na sabi mo na rin ang inactive...

panu gawin yun??

text1.enabled lang? e panu ung index ng mga number etc???



pero thanks na din sa advice... siguro mag reresign n lang ako dito... T_T

habang bata pa ako...

bilib ako sa disposisyon mo bro....
kung siguro ganyan ang ugali ko noon di ako aabot posiiotn ko ngayon

kung noon konting hirap lang sa company ay mag resign na ako
siguro di ako ganito ngayon, siguro isa lang akong simpleng malungkot na employee sa sulok
hindi siguro gaya ngayon na may accomplishment, may fulfillment at nag eenjoy sa ginagawa
 
biro lang yun sir...
xempre sa larangan ng programming marami pede pag daanan...

wala pa ako 1 year sa company na to.. pero may experience na ako sa work related in IT...


yun nga lang......regarding sa POS system at vb6 pa gamit and then DAO 3.6 ang dapat gamitin hindi ako ganun ka bihasa pag dating sa mga ito...


anyway alam ko naman po na may position kna regarding in programming at wala pa ako sa kalahati ng hirap at dugo rito...

pero nag susumikap aq sa kabila ng MURA at SISI ng mga boss...

buti nalang at mabaet ang manager ko na laging nag tatanggol samin 2 programmer sa kabila ng paninisi at walang araw na walang mura MURA mula sa boss namin...

at sunod sunod na project at deadlines ng mga cliente... :weep::weep::weep:
 
biro lang yun sir...
xempre sa larangan ng programming marami pede pag daanan...

wala pa ako 1 year sa company na to.. pero may experience na ako sa work related in IT...


yun nga lang......regarding sa POS system at vb6 pa gamit and then DAO 3.6 ang dapat gamitin hindi ako ganun ka bihasa pag dating sa mga ito...


anyway alam ko naman po na may position kna regarding in programming at wala pa ako sa kalahati ng hirap at dugo rito...

pero nag susumikap aq sa kabila ng MURA at SISI ng mga boss...

buti nalang at mabaet ang manager ko na laging nag tatanggol samin 2 programmer sa kabila ng paninisi at walang araw na walang mura MURA mula sa boss namin...

at sunod sunod na project at deadlines ng mga cliente... :weep::weep::weep:

ganun talaga, pero kung enjoy ka sa ginagawa mo then walang hirap magtrabaho maski ganyan na tambak ka ng projects

importante gusto mo yung ginagawa mo
find a way para maging komportable ka sa trabaho mo
 
sa VB6 meron Form QueryUnload Event
pag close ng form malalaman mo kung sino ang nag close neto
click ba yung X button?
tinerminate ba yung app sa task manager?
nag shutdown ba ang OS
etc....



Code:
Private Sub frmData_QueryUnload(Cancel as Integer,  UnloadMode As Integer)
[INDENT]Select Case  UnloadMode 
[INDENT]Case vbAppWindows 
' opps nag shutdown
Case vbAppTaskManager
'ooops pinatay nag task manager
Case Else[/INDENT]
Ende Select[/INDENT]End Sub


salamat dito sir eric... ehehehe:praise:

ttry ko ito bukas sa office..,

thanks a lot:thumbsup:
 
ganun talaga, pero kung enjoy ka sa ginagawa mo then walang hirap magtrabaho maski ganyan na tambak ka ng projects

importante gusto mo yung ginagawa mo
find a way para maging komportable ka sa trabaho mo

tama si sir eric about dito...

naaalala ko tuloy nung nag aaral pa ako.., binuhat ko sa programming ang isang section at iba pang section.., kahit mga sabog sabog na codes na di ko masyado naiintindihan ok lang basta banat kc kailangan eh..., halos araw gabi may pasok man o wala gumagawa ako ng program para sa group ko at sa group ng iba..., hanggang sa dumugo ilong ko sa puyat at hirap 1 hour pahinga ehehehe..

after ng graduation tumigil na ako sa programming.., umiiwas na ako kc medyo natatakot ako kc limited lang alam ko.., pero ngaun ang work ko programmer sa isang shipping company.., kaka start ko plang sa programming ulit kaya need ko ulit mag aral aral kahit medyo tinatamad na ako...ehehehehe...

pero dahil sa advice na nababasa ko dito mula kay sir eric mukhang need ko ibalik ung sarili ko 2 years ago... ehehehe...
:lol::weep:
 
wala akong ebooks dito sa office e

maybe later kung abutan mo ako mamayang madaling araw,
thru ym lang at ibigay ko yung link sa dropbox ko

i cant post it here kasi i make sure available lang yun for 12hours

ito
http://www.symbianize.com/showthread.php?t=163979
halos complete sample na yan at marami pang codes na kasama
marami ka na mapupulot dyan

fot the meantime, try mo rin mag search at mag collect ng mga ebooks sa programing
maski di mo kelangan today, malay mo magagamit mo rin bukas

pero hwag kalimutan basahin ha

sayang sir hindi ako online madaling araw e. . hayy. . i hope matutu din ako ng programming hindi ko kc pinagtuunan ng pansin ang programming noong college life ko e. . ayun ngaun more on hardware lng alam q pero programming napakaliit lng prang wla n nga e. . :noidea:
 
Back
Top Bottom