Exclusively for Visual Basic 6.0 Programmers Only!

[bench1015]

patulong naman po sa FILE MAINTENANCE..
dapat po sa textbox ng LNAME MNAME at FNAME itratrap nya na hindi iaccept ang numbers and letters... thanks po

Private Sub LNAME_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Then
msg = MsgBox("Numbers not Allowed!", vbOKOnly + vbExclamation, "Retry")
KeyAscii = 0
End If

If KeyAscii >= 97 And KeyAscii <= 121 _
Or KeyAscii >= 65 And KeyAscii <= 90 Then
ans = MsgBox("Letters not allowed!!", vbOKOnly + vbExclamation, "Confirmation")
KeyAscii = 0
End If

End Sub


same din sa FNAME and MNAME..

 

[bench1015]

pa help naman po sa assignment ko. pano po ung codes?

dapat po pag click nung checkbox ng surname tapos nagsearch(ex. "am") tapos lalabas po sa listbox ung mga surname na may am.. parang mafifilter po ata. tapos pag click dun sa pangalan sa listbox.. lalabas ung details sa baba.. un po.. patulong po sa codes.. thank you

listbox ba talaga?mas appropriate ata pag datalist eh.. parang listbox din sya pero connected sa database..

 

[jammhie]

hi po new member lang po ako dito, i just want to ask po if sino po ung may thesis ng sales & inventory system or billing system na visual basic 6.0 po. i really really need your help po.. salamat po sa tutulong. godbless po

 

[bench1015]

hi po new member lang po ako dito, i just want to ask po if sino po ung may thesis ng sales & inventory system or billing system na visual basic 6.0 po. i really really need your help po.. salamat po sa tutulong. godbless po

just ask what you want to know about those systems.. im sure maraming tutulong sa yo..

 

[hidan56]

ayaw mo ng listview?

ae sir gawa raw kame ng Program na CLOCK SYSTEM...nose nga aq eh di kz kami naturuan ng dati naming teacher tapos ngaun wala nmn kakainis mag tratransfer na tlga ako ng school ponyetang school toh sayang lng tuition ko ang lakas pa mag bigay ng pagagawang defence ang KAPAL ng MUKHA!!

 

[bench1015]

ae sir gawa raw kame ng Program na CLOCK SYSTEM...nose nga aq eh di kz kami naturuan ng dati naming teacher tapos ngaun wala nmn kakainis mag tratransfer na tlga ako ng school ponyetang school toh sayang lng tuition ko ang lakas pa mag bigay ng pagagawang defence ang KAPAL ng MUKHA!!

Challenge yan tol.. it's up to you how are you going to deal with it..
It wont also help if you keep blaming your instructors or school..

Good Luck!

 

[sjonlloyd13]

listbox ba talaga?mas appropriate ata pag datalist eh.. parang listbox din sya pero connected sa database..

listbox po kasi ung pinapagawa samin.. pero sige po try ko po ung datalist.. pano po ba un?

beginner lng po kasi ako sa vb

 

[sjonlloyd13]

listbox ba talaga?mas appropriate ata pag datalist eh.. parang listbox din sya pero connected sa database..

ay opo.. connected din po sa database ung listbox parang mafifilter po ung data gamit ung checkbox.. tapos pag nag type sa search box. then click ung command button. sa listbox lalabas ung mga na search.. then pag click dun sa laman ng listbox. magshoshow dun sa mga textboxes na nasa baba

 

[bench1015]

listbox po kasi ung pinapagawa samin.. pero sige po try ko po ung datalist.. pano po ba un?

beginner lng po kasi ako sa vb

add mo muna ung compinent na Microsoft DataList Controls 6.0

then choose datalist.. sa properties window connect mo ung datasource (adodc), Datafield(fieldname sa database), Rowsource and Listfield..

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

Filtering:

assuming name ng Textbox=TxtSearch;
Command Button= CmdSearch


Private Sub CmdSearch_Click()

Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select * from TblName where FieldName like '%" & Trim$(TxtSearch.Text) & "%'"
Adodc1.Refresh

End Sub

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

Details:

Private Sub DataList1_Click()

Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select * from TblName where FieldName='" & DataList1.Text & "'"
Adodc1.Refresh

if Adodc1.Recordset.Recordcount=1 then

TxtLN.Text=Adodc1.Recordset.Fields("FieldNameForLastName")
TxtFN.Text=Adodc1.Recordset.Fields("FieldNameForFirstName")

..and so on..

End if

End Sub

===================================
i hope nkatulong..

 

[sjonlloyd13]

add mo muna ung compinent na Microsoft DataList Controls 6.0

then choose datalist.. sa properties window connect mo ung datasource (adodc), Datafield(fieldname sa database), Rowsource and Listfield..

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

Filtering:

assuming name ng Textbox=TxtSearch;
Command Button= CmdSearch


Private Sub CmdSearch_Click()

Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select * from TblName where FieldName like '%" & Trim$(TxtSearch.Text) & "%'"
Adodc1.Refresh

End Sub

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

Details:

Private Sub DataList1_Click()

Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select * from TblName where FieldName='" & DataList1.Text & "'"
Adodc1.Refresh

if Adodc1.Recordset.Recordcount=1 then

TxtLN.Text=Adodc1.Recordset.Fields("FieldNameForLastName")
TxtFN.Text=Adodc1.Recordset.Fields("FieldNameForFirstName")

..and so on..

End if

End Sub

===================================
i hope nkatulong..

thank you po.. gumana sya hehe... kea lng po may problem pa.. may nilagay po ako screen shot ng project ko.. may checkboxes po kasi dun.. pano ko po xa papaganahin? if chineck ko ung id/firstname/lastname .. un po ung lalabas sa datalist

 

[bench1015]

thank you po.. gumana sya hehe... kea lng po may problem pa.. may nilagay po ako screen shot ng project ko.. may checkboxes po kasi dun.. pano ko po xa papaganahin? if chineck ko ung id/firstname/lastname .. un po ung lalabas sa datalist

connected n kc ung unang datalist sa LastName db? so gawa k n lang cguro ng 2 png datalist..ung isa connected sa fieldname ng firstname tpos ung isa sa ID.. ioverlap mu n lang ung tatlong datalist..

assuming na name ng options mu for ID=Option1; LastName=Option2; FirstName=Option3..

DataList1=connected sa Lastname;
DataList2=connected sa Firstname;
DataList3=connected sa ID..

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

Private Sub Form_Load()

Option1.Value=True
Datalist3.Visible=True
DataList1.Visible=False
DataList2.Visible=False

End Sub

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

Private Sub Option1_Click()

DataList3.Visible=True
DataList1.Visible=False
DataList2.Visible=False

End Sub

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

Private Sub Option2_Click()

DataList1.Visible=True
DataList2.Visible=False
DataList3.Visible=False

End Sub

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

Private Sub Option3_Click()

DataList2.Visible=True
DataList1.Visible=False
DataList3.Visible=False

End Sub

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

Ganito ngaun mangyayare sa CmdSearch:

Private Sub CmdSearch_Click()

if Option1.Value=True Then

Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select * from TblName where IDField like '%" & Trim$(TxtSearch.Text) & "%'"
Adodc1.Refresh

elseif Option2.Value=True then


Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select * from TblName where LastNameField like '%" & Trim$(TxtSearch.Text) & "%'"
Adodc1.Refresh

Elseif Option3.Value=True Then

Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select * from TblName where FirstNameField like '%" & Trim$(TxtSearch.Text) & "%'"
Adodc1.Refresh

End if

End Sub

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

EWAN KUNG TAMA TO..HAHAHAHA

 

[sjonlloyd13]

connected n kc ung unang datalist sa LastName db? so gawa k n lang cguro ng 2 png datalist..ung isa connected sa fieldname ng firstname tpos ung isa sa ID.. ioverlap mu n lang ung tatlong datalist..

assuming na name ng options mu for ID=Option1; LastName=Option2; FirstName=Option3..

DataList1=connected sa Lastname;
DataList2=connected sa Firstname;
DataList3=connected sa ID..

.....

bossing.. ayaw po gumana ung sa search.. saka(for ex. datafield set to id) kung ung datafield po and listfield is nka set. edi once na maging visible ung datalist. mawawala na po ung use ng search..o kea, once na iclick ung search. ayaw lumabas ng filtered results sa datalist

ayaw din po gumana ng Adodc1.Refresh

the rest po gumagana.. thank you

 

[agentedx44]

mga boss bago lang po ako dito.. baka pwede nman po sample code dyan to make input box as password character... nagsearch po ako ke kuya google.. hirap po ako intindihin.. thanks po in advance.. sana me makatulong po sakin?

 

[sjonlloyd13]

add mo muna ung compinent na Microsoft DataList Controls 6.0

then choose datalist.. sa properties window connect mo ung datasource (adodc), Datafield(fieldname sa database), Rowsource and Listfield..

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

Filtering:

assuming name ng Textbox=TxtSearch;
Command Button= CmdSearch


Private Sub CmdSearch_Click()

Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select * from TblName where FieldName like '%" & Trim$(TxtSearch.Text) & "%'"
Adodc1.Refresh

End Sub

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

Details:

Private Sub DataList1_Click()

Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "Select * from TblName where FieldName='" & DataList1.Text & "'"
Adodc1.Refresh

if Adodc1.Recordset.Recordcount=1 then

TxtLN.Text=Adodc1.Recordset.Fields("FieldNameForLastName")
TxtFN.Text=Adodc1.Recordset.Fields("FieldNameForFirstName")

..and so on..

End if

End Sub

===================================
i hope nkatulong..

may prob pa po pala .. regarding this..

dito po sa
if Adodc1.Recordset.Recordcount=1 then

pano po kapag marami ung lumabas sa datalist? for example.. dalawa or tatlo. pano po lalabas un?

 

[sjonlloyd13]

mga boss bago lang po ako dito.. baka pwede nman po sample code dyan to make input box as password character... nagsearch po ako ke kuya google.. hirap po ako intindihin.. thanks po in advance.. sana me makatulong po sakin?

kung textbox ang tinutukoy mo. punta ka lang sa properties >> passwordchar

then lagyan mo lang ng *(asterisk sign)

pag ni run mo ung program.. pag nag type ka dun sa textbox mo.. asterisk sign na ung lalabas

hope nkatulong to

 

[bench1015]

bossing.. ayaw po gumana ung sa search.. saka(for ex. datafield set to id) kung ung datafield po and listfield is nka set. edi once na maging visible ung datalist. mawawala na po ung use ng search..o kea, once na iclick ung search. ayaw lumabas ng filtered results sa datalist

ayaw din po gumana ng Adodc1.Refresh

the rest po gumagana.. thank you

open mo to..

 

[sjonlloyd13]

open mo to..

boss.. ayaw din.. haha ) try ko nlng kalikutin ung mga binigay mong codes.. tas try ko nlng humanap ng ibang codes sa book sa library sa school.. thank you ng madami

 

[bench1015]

boss.. ayaw din.. haha ) try ko nlng kalikutin ung mga binigay mong codes.. tas try ko nlng humanap ng ibang codes sa book sa library sa school.. thank you ng madami

nagrrun nman saken..cge gudluck

 

[i_ignore08]

matanong ko lang mga tsong
bakit mas ok ang ADODB kesa ADODC ?

 

[iluvcha]

san po ba pde madownload ang visual basic 6.0?