Update database records after printing Follow

0
Avatar
xi men

  1.  
  2.  
  3. There’s an option for an event “OnPrintJobEnd”. 
  4. Dim SQL
    Dim ordno
    Set objConn = CreateObject("ADODB.Connection")
    set rs = createobject("adodb.recordset")
    connstr="DSN=SQL Anywhere 11 Demo;UID=dba;PWD=sql"
    objConn.Open connstr
    ordno = "order_id"
    SQL ="UPDATE products set name='yest' where description='" & ordno & "'"
    objConn.execute SQL
    objConn.close

 

 

After updating this statement, there is no problem to update the data.

 

Dim SQL
Dim ordno
Set objConn = CreateObject("ADODB.Connection")
set rs = createobject("adodb.recordset")
connstr="DSN=SQL Anywhere 11 Demo;UID=dba;PWD=sql"
objConn.Open connstr

SQL ="UPDATE products set name='yest' where description='Cotton Cap'"
objConn.execute SQL
objConn.close

 

 

 

 

If a reference to a variable ordno

 

Please sign in to leave a comment.