Thread: Help me.
I am a new using postgres. I have a project using writen via VB6.0 and using database Postgres.
But when i using ia have error:
1_:I using adodc for insert data into table of postgres.
Table name: tbl_order_printer(loc_id varchar(20),
item_id varchar(50),
In VB6.0 i using code:
Dim rs As New ADODB.Recordset
Set rs = Nothing
rs.CursorLocation = adUseClient
rs.Open "select * from TBL_ORDER_PRINTER where loc_id='" & Mod_Sysvar.V_LocId & "' " _
& " and area_id='" & Trim(Me.SSOleDBCombo_khuvuc.Value) & "' " _
& " and print_id='" & Trim(Me.SSOleDBCombo_print.Value) & "' " _
& " and item_id='" & Trim(Me.txt_Item_Id) & "'", cn, adOpenKeyset, adLockOptimistic, admcdtext
If rs.EOF = True Then
rs.AddNew
rs.Fields("loc_id") = Mod_Sysvar.V_LocId
rs.Fields("area_id") = Me.SSOleDBCombo_khuvuc.Value
rs.Fields("item_id") = Trim(Me.txt_Item_Id)
rs.Fields("print_id") = Me.SSOleDBCombo_print.Value
rs.Update
End If
Set rs = Nothing
rs.CursorLocation = adUseClient
rs.Open "select * from TBL_ORDER_PRINTER where loc_id='" & Mod_Sysvar.V_LocId & "' " _
& " and area_id='" & Trim(Me.SSOleDBCombo_khuvuc.Value) & "' " _
& " and print_id='" & Trim(Me.SSOleDBCombo_print.Value) & "' " _
& " and item_id='" & Trim(Me.txt_Item_Id) & "'", cn, adOpenKeyset, adLockOptimistic, admcdtext
If rs.EOF = True Then
rs.AddNew
rs.Fields("loc_id") = Mod_Sysvar.V_LocId
rs.Fields("area_id") = Me.SSOleDBCombo_khuvuc.Value
rs.Fields("item_id") = Trim(Me.txt_Item_Id)
rs.Fields("print_id") = Me.SSOleDBCombo_print.Value
rs.Update
End If
Table name:tbl_rollback(frm_name varchar(50),
action_descrition varchar(50),
record_no varchar(20),
user_id varchar(20),
computer_name varchar(50),
last_update TIMESTAMPTZ)
In VB6.0: