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!

[TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataReport

Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

Bossing pano ko magagawang DB ang MS acces 2007?




Gawa ka po table dun tas connect mo lang sya. Pero po dpat po ang file extension nya is .mdb para magamit mo sya sa vb6
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

Sir @eric

i tried copying your codes and paste it to my own interface. Npalitan ko din lahat ng variables. But i keep getting syntax error in update

Eto pala ung code

Private Function UpdateProduct(sProductCode As String) As Boolean
Dim bReturn As Boolean
Dim strQuery As String

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = Con


cn.Open
strQuery = "UPDATE ProductMaster SET " 'try nyo nga i translate sa TAGALOG to
strQuery = strQuery & "ProductCode = '" & Text1.Text & "', "
strQuery = strQuery & "Description = '" & Text2.Text & "', "
' strQuery = strQuery & "Cost = '" & txtCost.Text & "', "
strQuery = strQuery & "Price = '" & Text4.Text & "', "
strQuery = strQuery & "Stocks = '" & Text3.Text & "', "
' strQuery = strQuery & "ReorderPoint = '" & txtReorder.Text & "', "
' strQuery = strQuery & "LastUpdated = '" & Now & "' "
strQuery = strQuery & "WHERE ProductCode = '" & sProductCode & "'"

'i UPDATE ang ProductsMaster GAWING (SET) text ng txtDescription ang colunm ng Description
'KUNG SAAN (WHERE) ANG ProductCode ay sProductCode

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command 'gumamit ng ADODB.Command sa mga query na walang ibinabalik na data like INSERT, UPDATE, DELETE
cmd.ActiveConnection = cn 'ang connection ng command ay.............
cmd.CommandText = strQuery 'ito yung SQL statement ng Command, ano kaya laman neto?
cmd.CommandType = adCmdText 'text or Stored procedure

Dim n As Integer
cmd.Execute n 'ayan EXECUTE/RUN the command
If n = 1 Then 'pag n ay 1 ibig sabihin may isang record na naupdate, pag ZERO, ano gagawin mo?
bReturn = True
MsgBox "Product was Updated", vbInformation
Else
bReturn = False
MsgBox "Product was not Updated", vbInformation
End If

End Function



Ayun ung error line ung kulay pula
 
Last edited:
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

Sir @eric

i tried copying your codes and paste it to my own interface. Npalitan ko din lahat ng variables. But i keep getting syntax error in update

Eto pala ung code

Private Function UpdateProduct(sProductCode As String) As Boolean
Dim bReturn As Boolean
Dim strQuery As String

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = Con


cn.Open
strQuery = "UPDATE ProductMaster SET " 'try nyo nga i translate sa TAGALOG to
strQuery = strQuery & "ProductCode = '" & Text1.Text & "', "
strQuery = strQuery & "Description = '" & Text2.Text & "', "
' strQuery = strQuery & "Cost = '" & txtCost.Text & "', "
strQuery = strQuery & "Price = '" & Text4.Text & "', "
strQuery = strQuery & "Stocks = '" & Text3.Text & "', "
' strQuery = strQuery & "ReorderPoint = '" & txtReorder.Text & "', "
' strQuery = strQuery & "LastUpdated = '" & Now & "' "
strQuery = strQuery & "WHERE ProductCode = '" & sProductCode & "'"

'i UPDATE ang ProductsMaster GAWING (SET) text ng txtDescription ang colunm ng Description
'KUNG SAAN (WHERE) ANG ProductCode ay sProductCode

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command 'gumamit ng ADODB.Command sa mga query na walang ibinabalik na data like INSERT, UPDATE, DELETE
cmd.ActiveConnection = cn 'ang connection ng command ay.............
cmd.CommandText = strQuery 'ito yung SQL statement ng Command, ano kaya laman neto?
cmd.CommandType = adCmdText 'text or Stored procedure

Dim n As Integer
cmd.Execute n 'ayan EXECUTE/RUN the command
If n = 1 Then 'pag n ay 1 ibig sabihin may isang record na naupdate, pag ZERO, ano gagawin mo?
bReturn = True
MsgBox "Product was Updated", vbInformation
Else
bReturn = False
MsgBox "Product was not Updated", vbInformation
End If

End Function



Ayun ung error line ung kulay pula

Walang bang screenshots ang Error Messagebox mo?
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

My way po ba na maexport yung data mula sa MS Access papunta sa MS Excel?
Kaylangan po daw muna idaan sa Excel yung information bago mapunta sa word eh.
Kung meron po, pano po ba gagawin iyon?

Salamat!
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

guys sino po senyo ung marunong doon sa crystal report pahelp naman po..Pahinge po ng sample code! thanks
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

pahinge namn po ng installer ng vb.net salamat . . :)
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

thanks po:)
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

sir pde po b iintegrate tong program nyu sa rfid?kung pde po.. panu? salamat po:praise:
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

pasubscribe sa thread ts :thanks: pwede bang magtanong kung sakaling may tanong ako? hehe salamat!
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

sir eric pwede makahingi ng tulong
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

ok yung ginawa mong system TS!
astig, pa-download ako nun ha! pati yung
mga e-books. thanks for sharing:clap:
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

my password po yung e-books
na complete idiots guide, TS!
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

:pray: pano po mag lagay ng pic/ icon sa button help po para sa baby thesis ko....
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

pasubscribe sir eric!~
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

july 2012 pa last activity ni sir eric
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

thanks TS....:clap:
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

Thanks TS for sharing headaches to everyone! Gusto ko rin mag aral ng Access DB kasi eto ang ginagamit namin sa barko. Salamat, more power!
 
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

Great Day! :)

Sir Eric Patulong po Thanks in Advanced :)

Panu ko po to gagawin/icocode sa vb6 + mysql + listview.
"Gusto ko sana palabasin na mag tototal sila by Category pero sunod sunod sila lilitaw like dito sa example na picture na nilagay ko"

Thanks po, alam ko po matutulungan niyo po ako dito :)
 

Attachments

  • Sample Table.JPG
    Sample Table.JPG
    28.5 KB · Views: 2
Last edited:
Re: [TUT] VB6 MSAccess Sample using ADO (UPDATED V3 20100216) now with ADD and DataRe

Great Day! :)

Sir Eric Patulong po Thanks in Advanced :)

Panu ko po to gagawin/icocode sa vb6 + mysql + listview.
"Gusto ko sana palabasin na mag tototal sila by Category pero sunod sunod sila lilitaw like dito sa example na picture na nilagay ko"

Thanks po, alam ko po matutulungan niyo po ako dito :)

parang walang native control na makakagawa nyan sa vb6, ewan kung may 3rd party

option mo nalang dyan ay i export sa excel, crystal or sa report

sorry tagal ko nawala,
off the radar ako ng matagal for ****** reasons
 
Back
Top Bottom