Exclusively for Visual Basic 6.0 Programmers Only!

[arceus2121]

Mga sir pa request naman,meron po ba kyung libro ng vb6?pero softc0py po,.pahingi nga po ng copy sa mga meron,gusto ko kasi matuto neto,thanks po sa mgpapahingi,

 

[charlesaighine]

ask lang po kung pano mag update yung lastday ng bawat month per year.

programing language = visual basic.net

pls help!

 

[Muzik]

Private Sub cmdBuy_Click()
Set rs = New ADODB.Recordset
Dim temp As String

If MsgBox("Do you want to purchase this item?", vbQuestion + vbYesNo, "Verify!") = vbNo Then: Exit Sub
rs.Open "Select *from tbleMaster where ProductCode = '" & txtCode.Text & "'", cn, adOpenKeyset, adLockOptimistic
If txtStock.Text <= 0 Then
MsgBox "Out Of Stock(s)", vbCritical, "Error!"

Else
If txtQ.Text > txtStock.Text Then
MsgBox "Your request is larger than our Stock(s)", vbExclamation, "Error!"

Else
temp = rs!Stock - Val(txtQ)

rs!Stock = temp
rs.Update
MsgBox " Successfully purchase! as of '" & Date & "", vbInformation, "Congratulations!"

Me.temp
End If
End If
rs.Close
Set rs = Nothing
cmdBuy.Enabled = False

Me.clear
End Sub
Sub temp()
Dim rs As ADODB.Recordset
Dim strsql As String
strsql = "insert into tbleTemp (ProductCode, Description, Price, Stock, Quantity, Date) values (" _
& "'" & txtCode.Text & "'," _
& "'" & txtDes.Text & "'," _
& "'" & txtPrice.Text & "'," _
& "'" & txtStock.Text & "'," _
& "'" & txtQ.Text & "'," _
& "'" & CStr(Date) & "')"

Set rs = cn.Execute(strsql)
Set rs = Nothing
End Sub

Please Help Master(s) .. I want to save the Change data in Table1 in table2..
Example: I want to Transact the 1Stock to be decrease, then I save the Remaining stocks , The quantity Decrease and Date etc. Saved in table2..I really appreciated if someone help me with my codes..Thank you.And God Bless SB

 

[jcjam]

Re: Exclusively for Visual Basic 6.0 Programmers Only! / Icon Error

Hello... matatanong lang po ako. Ang icon ko i folder ng XP na galing sa shell32.dll pero execute na siya. Pagdinala ko siya ng WIN7 or VISTA hindi siya nagbabago XP parin, ang icon ko na folder. Gusto kong, mangyari kahit nasa WIN7 or VISTA ang program ko. Ang icon ko paring ay folder ng WIN7 or VISTA hindi XP. At mapunta man ako ng XP ang icon ko XP na folder pero execute na ang program ko. Gamit ko VB6. Tulong naman jan. Salamat sa inyo.. :

 

[clovis_94]

Nagloloko yung VB ko, kapag nagdedelete ako ng tool sa form, eto lumalabas: "Visual Basic has stopped working"
Tapos halimbawa kapag gumawa ako ng project, kapag ie-exit ko na ayaw ma-exit.
Help naman po...

 

[ryonin]

Hello mga sir..



May Video Tutorials po ba kayu jan sa VB 6.0??

Gusto Ko kasi Matutunan to?

kahit link lang po ok lang po..


Salamat po ng marami!!!

 

[kimsyboy]

penge nman po ng mga links qng san mkakadownload ng mga ebooks...about vb6.0

 

[napangas]

Puro Request naman d2...Dapat On topic naman... Sa PC Application po at E-books request

Help naman po ung problem ni Muzik

 

[clovis_94]

may installer ba kayo nito? ung licence? ung sa akin kasi ayaw ung ibang tools

Mga sir pa request naman,meron po ba kyung libro ng vb6?pero softc0py po,.pahingi nga po ng copy sa mga meron,gusto ko kasi matuto neto,thanks po sa mgpapahingi,

penge nman po ng mga links qng san mkakadownload ng mga ebooks...about vb6.0

Kung installer at e-book tutorial ang hanap niyo, punta kayo sa thread ko. --->>> HERE Hanap po muna tayo bago post kasi di lahat magpopost ng url para sa inyo.

 

[dead060898]

Mga Programmers pwede humingi ng link kung san makadownload ng update visual basic 6.0 or visual basic 2010..indi ung vb.net huh..ung update version lang ng vb6.0..salamat.

 

[baboyxx]

penge nman po ng mga links qng san mkakadownload ng mga ebooks...about vb6.0

search mo na lang dito yung thread na WORLD'S BEST PDF meron dung link.. pero alam ko kasi sira website nila these past few days e.. try mo

 

[jcjam]

Nagloloko yung VB ko, kapag nagdedelete ako ng tool sa form, eto lumalabas: "Visual Basic has stopped working"
Tapos halimbawa kapag gumawa ako ng project, kapag ie-exit ko na ayaw ma-exit.
Help naman po...

Uninstall mo nalang yung lumang naka install sayo at mag install ka nalang ng bagong VB para mawala yung lumang error... Sana makatulong ito sayo.....

 

[clovis_94]

Uninstall mo nalang yung lumang naka install sayo at mag install ka nalang ng bagong VB para mawala yung lumang error... Sana makatulong ito sayo.....

ilang beses ko na ginagawa yun, ganun pa din.

 

[rockhyvez]

@clovis, kung lagi tlgang nag'eeror, siguro nasa driver na yan, , iupdate m0 yung mga driver,

 

[clovis_94]

@clovis, kung lagi tlgang nag'eeror, siguro nasa driver na yan, , iupdate m0 yung mga driver,

paano po ia-update?

try ko po sa ASUS live update ng laptop ko, yung may BIOS and drivers po ba yun?

 

[calamity06]

meron po ba kyu sample codes about manipulating firefox sa vb 6.0

 

[RDJ216]

pwede po ba makahingi ng simple vb6 code ng payroll system. thx

 

[rockhyvez]

@clovis, ang tinutukoy ko bro, yung tulad ng .net framework o java runtime environment na driver.

@RDJ, punta ka bro sa pscode.com, daming sample dyan, search ka lang

 

[grazier]

hi po mga kuya...my site pla dto ng vb6?? pede po b ako mgtanong ..my gngwa kc aq, ...
panu po mgsave ng pix sa databse tpos iddisplay ??? eto po pla code ko sa save..
connect
If rs.State = 1 Then rs.Close
rs.Open "select * from tbl_emp where ID = '" & Me.txtID & "' and fld_name = '" & Me.txtName.Text & "'", con, 2, 3

If rs.BOF = False Then
MsgBox "Already exist in the database!", vbCritical, "Saving..."
Set rs = Nothing
Me.txtID.SetFocus
SendKeys "{home}+{end}"
Exit Sub
End If

With rs
.AddNew
!Id = Me.txtID.Text
!fld_name = Me.txtName.Text
!fld_position = Me.cbopos.Text
!fld_dept = Me.cbodept.Text
!fld_status = Me.cbostatus.Text
!fld_type = Me.cbotype.Text
!fld_gender = Me.cbosex.Text
!fld_birthdate = Me.DTPicker1.Value
!fld_birthplace = Me.txtbirthplace.Text
!fld_permanent = Me.txtPermanent.Text
!fld_residential = Me.txtresidential.Text
.Update
MsgBox "ID No.: " & txtID.Text & "with Employee Name" & txtName.Text & " successfully saved!", vbInformation, "System Info"
Me.Hide
frm_addemp.Show
load_listview
End With

 

[pnxstan23]

hi po mga kuya...my site pla dto ng vb6?? pede po b ako mgtanong ..my gngwa kc aq, ...
panu po mgsave ng pix sa databse tpos iddisplay ??? eto po pla code ko sa save..
connect
If rs.State = 1 Then rs.Close
rs.Open "select * from tbl_emp where ID = '" & Me.txtID & "' and fld_name = '" & Me.txtName.Text & "'", con, 2, 3

If rs.BOF = False Then
MsgBox "Already exist in the database!", vbCritical, "Saving..."
Set rs = Nothing
Me.txtID.SetFocus
SendKeys "{home}+{end}"
Exit Sub
End If

With rs
.AddNew
!Id = Me.txtID.Text
!fld_name = Me.txtName.Text
!fld_position = Me.cbopos.Text
!fld_dept = Me.cbodept.Text
!fld_status = Me.cbostatus.Text
!fld_type = Me.cbotype.Text
!fld_gender = Me.cbosex.Text
!fld_birthdate = Me.DTPicker1.Value
!fld_birthplace = Me.txtbirthplace.Text
!fld_permanent = Me.txtPermanent.Text
!fld_residential = Me.txtresidential.Text
.Update
MsgBox "ID No.: " & txtID.Text & "with Employee Name" & txtName.Text & " successfully saved!", vbInformation, "System Info"
Me.Hide
frm_addemp.Show
load_listview
End With

Anu gamit mong Database?. MySQL ba?

kapag ndi change mo nalang yung "ConnectionString" try mo tong puntahan:
http://myinfonow.blogspot.com/2012/05/store-image-in-mysql-database-using.html