Help 
Author Message
 Help

How to fix the problem of "SEQ_INT_REF_NO.NEXTVAL"? Does it need to use
INSERT query?

Set Conn = New ADODB.Connection
With Conn
    .ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=HITHKG;User
ID=scott;Password=tiger;"
    .CursorLocation = adUseClient
    .ConnectionTimeout = 180
    .Open
End With
Set Rs = New ADODB.Recordset
StrSql = "SELECT * FROM SYSTEM WHERE COMPANY_CODE = '" & m_CompanyCode & "'"
With Rs
    .Source = StrSql
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
End With
If Rs.EOF Then
        Rs.AddNew
        Rs("COMPANY_CODE") = m_CompanyCode
        Rs("COMPANY_NAME") = m_CompanyName
        Rs("COMPANY_ADD1") = m_CompanyAddr1
        Rs("COMPANY_ADD2") = m_CompanyAddr2
        Rs("COMPANY_ADD3") = m_CompanyAddr3
        Rs("COMPANY_ADD4") = m_CompanyAddr4
        Rs("TELEPHONE_NO") = m_CompanyTel
        Rs("FAX_NO") = m_CompanyFax
        Rs("EMAIL_ADDRESS") = m_CompanyEmail
        Rs("OPERATION_PERIOD") = m_CompanyOper
        Rs("CLOSING_PERIOD") = m_CompanyCls
'        Rs("INTERNAL_REFERENCE_NO") = vbNullString
        Rs("INTERNAL_REFERENCE_NO") = SEQ_INT_REF_NO.NEXTVAL
"'SEQ_INT_REF_NO.NEXTVAL" is Sequence No
        Rs.Update
End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing



Fri, 14 May 2004 21:09:20 GMT  
 Help
First of all, i don't see Rs.Open  method in this code fragment...


Fri, 14 May 2004 21:35:50 GMT  
 Help
I have added Rs.Open but the problem is "SEQ_INT_REF_NO.NEXTVAL".



Quote:
> First of all, i don't see Rs.Open  method in this code fragment...



Fri, 14 May 2004 22:03:39 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. help,help,help,help,help,help,help,help,help,help,help,help,help,

2. Help,Help,Help,Help,Help,Help,Help,Help,Help,Help,Help,Help,Help,Help,Help,Help,Help,Help,

3. Help, Help, Help, Help, Help, Help, Help, Help, Help, Help, Help, Help, Help, Help, Help, Help, Help,

4. HELP HELP HELP HELP HELP HELPHELP HELP HELPHELP HELP HELP

5. PLEASE HELP, PLEASE HELP, PLEASE HELP, PLEASE HELP, PLEASE HELP, PLEASE HELP, PLEASE HELP,

6. HELP HELP HELP HELP HELP HELP HELP HEL P HELP HE LP HELP HELP HEL P HELP HELP

7. Help Help Help Help Help Help !!!!!

8. HELP HELP HELP Set document name of print job from VB HELP HELP HELP

9. HELP HELP HELP Early Binding Excel 5.0 HELP HELP HELP

10. HELP HELP HELP HELP HELP

11. Help - Print - Help -Print - Help - Print - Help - Print - Help

12. help help help help help

 

 
Powered by phpBB® Forum Software