Exclusively for Visual Basic 6.0 Programmers Only!

[knives645]

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

Try mo dito ate,

http://www.symbianize.com/showthread.php?t=163979

meron sample code dyan,
credits to Sir Eric...

 

[grazier]

hi po...MS access po...
cge po ill try po... thanks..knina pko ngbbsa dto...ntutuwa ako..my mga ngglit dn pla...hehehe

 

[grazier]

edit lng po meron xa e..wala pong add...ung inupload ni sir eric...
ngets ko n...
hehehe thanks po ulit saka kay sir eric...

 

[knives645]

edit lng po meron xa e..wala pong add...ung inupload ni sir eric...
ngets ko n...
hehehe thanks po ulit saka kay sir eric...

oks lang yan, hija, normal lang naman dito mga nagagalit,

pagbutihin mo lang, pag nalilito ka, tanong ka lang, madami
sasagot at tutulong sayo..

Good Luck...

 

[knives645]

edit lng po meron xa e..wala pong add...ung inupload ni sir eric...
ngets ko n...
hehehe thanks po ulit saka kay sir eric...

pwede mo naman integrate ang pag-upload nang pictures when adding new records,
nagawa ko na yun dati sa isang project ko nuon...

 

[pnxstan23]

hi po...MS access po...
cge po ill try po... thanks..knina pko ngbbsa dto...ntutuwa ako..my mga ngglit dn pla...hehehe

Palitan mo nalang yung connection dun kung gagamitin mo man tapos pwede na dun lahat
Yung data type ng "Field" mo nun kung san magsasave yung picture is "OLE Object"

 

[grazier]

hala triny ko dami error..hahaha..pede po b ung simple lng d nmn kc po aq expert e ktulad ni sire eric at kayo po e...
gmgwa po kc ako employee system e..psenxa n po..thanks po ng madami...

 

[hmx_ryan]

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

Try to explore the ADODB.Stream... gamitin mo sa RS mo...

kung baga ganito:

dim myImageStream= CreateObject("ADODB.Stream")

myImageStream.type=1
myImageStream.open()
myImageStream.LoadFromFile("Your://Image/Location")

rs!fld_picrture=myImageStream.Read 'Dagdag mo sa code mo above before the Update

 

[grazier]

pa elp nlng po..sa mga tumutulong n, thanks po, s mga tutulong...thanks dn po....

 

[andots]

nandito lang pala itong software na kailangan ko!!! salamat sa inyo

 

[grazier]

update po...sa add button ko po lalagay ...

 

[grazier]

yan po ...pktry po..yan po gngwa ko e..hehe pcnxa my nkta kc aqng background copy ko..thanks po pla sa ng upload ng file n un..thanks po...

 

[knives645]

Tama sir Master Ryan, Stream na lang gamitin mo,
dito po mga sample codes pa..
http://forums.devshed.com/firebird-sql-development-61/how-to-use-blob-field-in-vb6-0t-403493.html
http://forums.codeguru.com/showthread.php?t=403049

pasensya na, hindi na po ma-explain, nasa work po kasi...

 

[pnxstan23]

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!!!

Link : Click Here

Enjoy

 

[amf29]

yan po ...pktry po..yan po gngwa ko e..hehe pcnxa my nkta kc aqng background copy ko..thanks po pla sa ng upload ng file n un..thanks po...

daming missing components sa computer ko. haha hindi ko marun

 

[grazier]

kuya knives, pede ko po b mkuha ym mo..kng pede kta mkchat about prob ko.

 

[grazier]

hehhe... kea mu yan kaya ...run!!! elp nmn!

 

[grazier]

mga kuya...
amf29
pnxstan23's
knives645

pede ko b mkuha mga ym nyo kng meron po ...alam ko po my mga work p kyo e...para mea nlng po ask if pede po...thanks po...!!!

 

[knives645]

user name ko, knives645, ym ko na rin yan

 

[grazier]

chat kta mea kuya ha...pede b???