I am on a contract and I need to do an insert, pull back the PK assigned to the row.
Dim InsSql As String
InsSql = ” insert into informix.cc_recur_setup(crs_recur_setup_id, crs_customer_id, crs_cc_masked_no, crs_cc_expire_dt, crs_sbt_cus_id, crs_crg_source_cd, crs_cdt_crd_typ_cd, crs_cc_holder_nm , crs_cc_address, crs_cc_postal_cd, crs_crg_recur_fl, crs_create_dtm, crs_create_user, crs_lst_upd_dtm, crs_lst_upd_user ) values (0,” & Me.mUniqueCustID & “, ‘” & Me.mMasked & “‘, ‘” & Trim(Me.txtExpireOn.Text) & “‘, ‘” & Trim(Me.txtSBTno.Text) & “‘, ‘” & Me.cboSource.ItemData & “‘, ‘” & cardtypeNum & “‘, ‘” & Me.txtName.Text & “‘, ‘” & Me.txtAddr1.Text & “‘, ‘” & Me.txtZip.Text & “‘, ‘” & mRecurFlag & “‘, ” & mNow & “‘, ‘” & mUser & “‘”
‘ pick up that Key’
InsSql2 = ” select SQLCA.SQLERRD[2] from cc_recur_setup ”
Now how do I just get back the value from InsSql2 ?
I know that VB6 is outdated and all ;-> but this is contract work and they don’t care.
TIA
__Stephen
