Exclusively for Visual Basic 6.0 Programmers Only!

[nexysllanes]

Phingi nmn po ng SMS na form... n nkaka send and recieve syempre.. kht simple po... tpos sa listview ko mkkta yung inbox pti sent ..hiwalay po ...

 

[bluthugs]

Phingi nmn po ng SMS na form... n nkaka send and recieve syempre.. kht simple po... tpos sa listview ko mkkta yung inbox pti sent ..hiwalay po ...

text mo ako!!!

 

[nexysllanes]

text mo ako!!!

ate d2 nlng po thanks:...please help me yun nlng po tlga kulang eh def. n kc nmn

 

[rohan_schimmer]

patulong po ako sa system namin di ko kasi alam anu tawag sa codes na yun kaya di ko mahanap sa google


ordering menu system namin

"order ng costumer(pc1) mag-aappear sya sa kabilang screen ng cashier(pc2)"
kahit codes lang po

up up


sensya po di ko maafford magbayad sa mga programmer
sinu po mabait na programmer dyan?
kahit kunting tutz lang

 

[nexysllanes]

text mo ako!!!

ate d2 nlng po thanks:...please help me yun nlng po tlga kulang eh def. n kc nmn

 

[knowmeifyou]

ate d2 nlng po thanks:...please help me yun nlng po tlga kulang eh def. n kc nmn

hanap ka sa planetsourcecode marami yan

 

[jernel]

Phingi nmn po ng SMS na form... n nkaka send and recieve syempre.. kht simple po... tpos sa listview ko mkkta yung inbox pti sent ..hiwalay po ...

Meron akong gawa send and receive text, pero hindi nasesave sa list view. and wala din sent items kung ok lang sayo? hanapin ko lang ung code ko. nung college days pa kc un haha

 

[amdquad]

Meron akong gawa send and receive text, pero hindi nasesave sa list view. and wala din sent items kung ok lang sayo? hanapin ko lang ung code ko. nung college days pa kc un haha

pa share naman po ng code mo sir

 

[RozerO]

galing nila

 

[jernel]

pa share naman po ng code mo sir

Hmm try niyo to dito ako nagbase ng pag receive ng message galing text, hindi ko na makita yung sarili kong gawa haha sana makatulong. pero pag nakita ko yung sarili kong gawa, ise share ko

edit: matagal narin tong code ko to. nahalukat ko sa email ko hehe

 

[jyxae19]

hello po. Patulong naman po. Paano po ba mag e-edit tsaka e a-update ang birthdate na galing sa access tapos ipapasok isa-isa ang Month/Day/Year sa tatlong combo boxes? Ang nangyari po kasi ang mm/dd/year ay pumasok lang sa isang combo box. Gusto ku sanang ang Month sa isang combo box. Ang day sa isa rin tapos ang year sa isa din po. Nasa attachment po ang ss ng form ko. Tsaka ito po yung mali kong code. hehe. HELP.


Private Sub cmdAdd_Click()

AdodcReg.RecordSource = "select * from tbl_patron"


AdodcReg.Recordset.AddNew
AdodcReg.Recordset.Fields("PATRON_ID") = txtpatronID.Text
AdodcReg.Recordset.Fields("FIRSTNAME") = txtFirstName.Text
AdodcReg.Recordset.Fields("MIDDLENAME") = txtMidNym.Text
AdodcReg.Recordset.Fields("LASTNAME") = txtLastNym.Text
AdodcReg.Recordset.Fields("GENDER") = cboGender.Text
AdodcReg.Recordset.Fields("BIRTHDATE") = CDate(cboMonth.Text & "/" & cboDay.Text & "/" & cboYear.Text)
AdodcReg.Recordset.Fields("BRGY") = txtBrgy.Text
AdodcReg.Recordset.Fields("STREET") = txtStrt.Text
AdodcReg.Recordset.Fields("CITY") = txtCity.Text
AdodcReg.Recordset.Fields("PROVINCE") = txtPrv.Text
AdodcReg.Recordset.Fields("ZIPCODE") = txtZip.Text
AdodcReg.Recordset.Fields("COURSE") = txtCourse.Text
AdodcReg.Recordset.Fields("LEVEL") = txtLevel.Text
AdodcReg.Recordset.Fields("SY") = txtSY.Text
AdodcReg.Recordset.Fields("conNumber") = txtCntact.Text
AdodcReg.Recordset.Fields("EMAIL_ADD") = txtEmail.Text

AdodcReg.Recordset.Update

Call Form_Load
Call cmdReset_Click
End Sub


Private Sub cmdEdit_Click()
With AdodcReg
Label1.Caption = .Recordset.Fields("PATRON_ID")
txtpatronID = .Recordset.Fields("PATRON_ID")
txtFirstName.Text = .Recordset.Fields("FIRSTNAME")
txtMidNym.Text = .Recordset.Fields("MIDDLENAME")
txtLastNym.Text = .Recordset.Fields("LASTNAME")
cboGender.Text = .Recordset.Fields("GENDER")
cboMonth.Text = .Recordset.Fields("BIRTHDATE")
cboDay.Text = .Recordset.Fields("BIRTHDATE")
cboYear.Text = .Recordset.Fields("BIRTHDATE")
txtBrgy.Text = .Recordset.Fields("BRGY")
txtStrt.Text = .Recordset.Fields("STREET")
txtCity.Text = .Recordset.Fields("CITY")
txtPrv.Text = .Recordset.Fields("PROVINCE")
txtZip.Text = .Recordset.Fields("ZIPCODE")
txtCourse.Text = .Recordset.Fields("COURSE")
txtLevel.Text = .Recordset.Fields("LEVEL")
txtSY.Text = .Recordset.Fields("SY")
txtCntact.Text = .Recordset.Fields("conNumber")
txtEmail.Text = .Recordset.Fields("EMAIL_ADD")
End With
End Sub


Private Sub cmdUpdate_Click()
With AdodcReg
.RecordSource = "select * from tbl_patron where PATRON_ID=" & Label1.Caption
'.Refresh

AdodcReg.Recordset.Fields("PATRON_ID") = txtpatronID.Text
AdodcReg.Recordset.Fields("FIRSTNAME") = txtFirstName.Text
AdodcReg.Recordset.Fields("MIDDLENAME") = txtMidNym.Text
AdodcReg.Recordset.Fields("LASTNAME") = txtLastNym.Text
AdodcReg.Recordset.Fields("GENDER") = cboGender.Text
AdodcReg.Recordset.Fields("BIRTHDATE") = CDate(cboMonth.Text & "/" & cboDay.Text & "/" & cboYear.Text)
AdodcReg.Recordset.Fields("BRGY") = txtBrgy.Text
AdodcReg.Recordset.Fields("STREET") = txtStrt.Text
AdodcReg.Recordset.Fields("CITY") = txtCity.Text
AdodcReg.Recordset.Fields("PROVINCE") = txtPrv.Text
AdodcReg.Recordset.Fields("ZIPCODE") = txtZip.Text
AdodcReg.Recordset.Fields("COURSE") = txtCourse.Text
AdodcReg.Recordset.Fields("LEVEL") = txtLevel.Text
AdodcReg.Recordset.Fields("SY") = txtSY.Text
AdodcReg.Recordset.Fields("conNumber") = txtCntact.Text
AdodcReg.Recordset.Fields("EMAIL_ADD") = txtEmail.Text

.Recordset.Update


Call Form_Load
Call cmdReset_Click
End With
End Sub


Private Sub Label9_Click()
Dim db As Date
db = CDate(cboMonth.Text & "/" & cboDay.Text & "/" & cboYear.Text)
End Sub

 

[jernel]

cboMonth.Text = .Recordset.Fields("BIRTHDATE")
cboDay.Text = .Recordset.Fields("BIRTHDATE")
cboYear.Text = .Recordset.Fields("BIRTHDATE")

eto yung problem mo. kasi kung anu laman nung BIRTHDATE yan din ung lalabas sa textbox. ngayon ganitoang gawin mo

declare variables

dim strDate as string
dim varDate as variant

strdate = .Recordset.Fields("BIRTHDATE")

varDate = split(strDate, "/")

cboMonth.Text = varDate(0)
cboDay.Text = varDate(1)
cboYear.Text = varDate(2)

try mo

 

[jyxae19]

eto yung problem mo. kasi kung anu laman nung BIRTHDATE yan din ung lalabas sa textbox. ngayon ganitoang gawin mo

declare variables

dim strDate as string
dim varDate as variant

strdate = .Recordset.Fields("BIRTHDATE")

varDate = split(strDate, "/")

cboMonth.Text = varDate(0)
cboDay.Text = varDate(1)
cboYear.Text = varDate(2)

try mo

WOW. salamat po ng marami sir. hehe. salamat po talaga. Di ku mahanap hanap sa google kasi. di ku maintindihan dun HAHA. SALAMAT po talaga. hehe. sa uulitin po. Galing.

 

[d3m0nknlght]

hello po. Patulong naman po. Paano po ba mag e-edit tsaka e a-update ang birthdate na galing sa access tapos ipapasok isa-isa ang Month/Day/Year sa tatlong combo boxes? Ang nangyari po kasi ang mm/dd/year ay pumasok lang sa isang combo box. Gusto ku sanang ang Month sa isang combo box. Ang day sa isa rin tapos ang year sa isa din po. Nasa attachment po ang ss ng form ko. Tsaka ito po yung mali kong code. hehe. HELP.

padagdag lang po sa tanong niya pano po ba if gusto ko mag add ng username and password dito sa form niya pero magkahiwalay ung table nila ung tbllogin at tblmember?

 

[knowmeifyou]

padagdag lang po sa tanong niya pano po ba if gusto ko mag add ng username and password dito sa form niya pero magkahiwalay ung table nila ung tbllogin at tblmember?

mag insert ka sa tbllogin

 

[d3m0nknlght]

mag insert ka sa tbllogin

ano po bang ibig niyong sabihin ma'am? di ko kasi gets eh..pede po ex. salamat

jyxae19 - sir pano po ba ung ginawa niyo sa date combo box po ba yan? paturo naman po sir kung pano mo po ginawa ung date salamat po.

 

[simpleguyrakista]

mga tol pa help naman may program kasi kaming gagawin sa vb6: simple enrollment system po sya.
with search button,delete,edit,add po sya.

 

[jyxae19]

jyxae19 - sir pano po ba ung ginawa niyo sa date combo box po ba yan? paturo naman po sir kung pano mo po ginawa ung date salamat po.

naglagay lang po ako ng tatlong comboboxes. Ang isa para sa Month, isa para sa Day, isa sa Year. Tapus para mapasok sa Birthdate na field ko sa tbl_patron ko sa MAccess. Ganito lng po ginawa ko.

AdodcReg.Recordset.Fields("BIRTHDATE") = CDate(cboMonth.Text & "/" & cboDay.Text & "/" & cboYear.Text)

 

[nexysllanes]

Meron akong gawa send and receive text, pero hindi nasesave sa list view. and wala din sent items kung ok lang sayo? hanapin ko lang ung code ko. nung college days pa kc un haha

sir papost nmn dto sir...........ptingin n din bka maktulong

 

[jernel]

WOW. salamat po ng marami sir. hehe. salamat po talaga. Di ku mahanap hanap sa google kasi. di ku maintindihan dun HAHA. SALAMAT po talaga. hehe. sa uulitin po. Galing.

No problem

sir papost nmn dto sir...........ptingin n din bka maktulong

Naishare ko na po yun nga lang hindi talaga yan ung code ko, jan lang ako nagbase dati ng code para sa receive ng text, nahalukat ko lang sa email ko yan eh, di ko makita ung code ko.