No Error!! But cant Update in VB6 Help pls..

[ventura]

---

Hi, guys any good heart there? heheh,

anybody help me. what is the main problem? with my code: see below:
assuming that i have the connection.. called CN..

Dim sSQL As String

If cmdUpdate.Caption = "UPDATE" Then
Set CMD = New ADODB.Command
sSQL = "Update header Set line='" & cboLine & "'"
sSQL = sSQL & ",grpHead='" & txtGrphead.Text & "',shift='" & txtShift.Text & "'"
sSQL = sSQL & ",supervisor='" & txtSupervisor.Text & "',jn='" & txtJn.Text & "'"
sSQL=sSQL & ",shfSched='" & txtSched.Text & "',dte='" & txtDate.Text & "'"
sSQL = sSQL & " Where id_edit=" & Val(lngid)
With CMD
.ActiveConnection = CN
.CommandType = adCmdText
.CommandText = sSQL
.Execute

End With

End If
MsgBox "DATA ADDED TO DATABASE ", vbInformation, "TO DATABASE"
Set CMD = Nothing



guys?... provider nako ge use kai provider=Microsoft.jet.OLEDB.4.0;Data Source = " & App.Path & "\Database\access.mdb"

anyone pls... or u can email me in this email----> it2@firstflory-ph.com

[moz_k2]

wlay error pero wlay ma update

so more likely kay wlay record nga nakit.an sa condition nga imo gi set

[cold_fusion]

print sSQL in the debug pane (debug.print sSQL) and post here the result.

[ventura]

moz_k2: what do u mean no record,,.. i inserted a record, 2nd is to search next is to update.. but no update done..

[ventura]

Hi, cold_fusion: below is the Debug print

Update header Set line='6C',grpHead='EVAThisUpdate',shift='A',superv isor='EVA',jn='4988-A',shfSched='2PM-10PM',dte='17-OCT-2008' Where id_edit=0

debug.print sSQL


i wonder why the id_edit=0 ??

[cold_fusion]

Having the resulting SQL statement can help you debug your problem.
The problem is that Val(lngid) will result to 0.
Check "Ingid" field.
Hint: debug.print Ingid, val(Ingid)

[moz_k2]

You just answered your question.

moz_k2: what do u mean no record,,.. i inserted a record, 2nd is to search next is to update.. but no update done..

Hi, cold_fusion: below is the Debug print

Update header Set line='6C',grpHead='EVAThisUpdate',shift='A',superv isor='EVA',jn='4988-A',shfSched='2PM-10PM',dte='17-OCT-2008' Where id_edit=0

debug.print sSQL


i wonder why the id_edit=0 ??

No record where id_edit=0

Check that lngid variable.

[kibotizer]

sa WHERE dapit...

wala siguroy record nga nakit-an para i-update


yeah! bling bling men...abz'

[ventura]

mokz :

wala jud zero zero ang id_edit=0, id_edit kai autonumber cia sa database access 2000

the question here is unsaon nia pag kita sa id_edit? pls.

[ventura]

Hi all,
tnx sa inyo help... i fix it nahh weeeeeeeeeeeeeeeeeeeeeeeeeee......

ako ra gikuha ang ---> where id_edit=0 this line ako ge delete......
like these..

Update header Set line='6C',grpHead='EVAThisUpdate',shift='A',superv isor='EVA',jn='4988-A',shfSched='2PM-10PM',dte='17-OCT-2008'