Can You help me.

[nguyenthi myphuong <myphuong244(at)yahoo(dot)com>]

 

Dear,

Sorry this fist email error when i'm writing.

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),

                                                print_id varchar(50),

                                                area_id varchar(50))

In VB6.0 i using code for insert data.

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

 But when run i have error:

"-2147217887 Multiple-step operation generation errors. check each status value"

2_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)

I have a function:

CREATE OR REPLACE FUNCTION "public"."fun_rollback" (field1 varchar, field2 varchar, field3 varchar, field4 varchar, field5 varchar) RETURNS SETOF "public"."tbl_rollback" AS
$body$
BEGIN
 INSERT INTO public.tbl_rollback(frm_name, action_descrition,
           record_no,
           user_id,
           computer_name)  
                                VALUES(field1,
           field2,
           field3,
           field4,
           field5);
  SELECT  public.tbl_rollback.* FROM public.tbl_rollback;
END
$body$
LANGUAGE 'plpgsql' VOLATILE CALLED ON NULL INPUT SECURITY INVOKER;

______________In VB6.0 i call with code follow:

Dim cmd As New ADODB.Command
    Dim p1 As ADODB.Parameter
    Dim p2 As ADODB.Parameter
    Dim p3 As ADODB.Parameter
    Dim p4 As ADODB.Parameter
    Dim p5 As ADODB.Parameter
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "FUN_ROLLBACK"
    'p1

    Set p1 = cmd.CreateParameter("Input", adVarChar, adParamInput, 50)
    cmd.Parameters.Append p1
    p1.Value = "test"
    'p2
    Set p2 = cmd.CreateParameter("Input", adVarChar, adParamInput, 50)
    cmd.Parameters.Append p2
    p2.Value = "test"
    'p3
    Set p3 = cmd.CreateParameter("Input", adVarChar, adParamInput, 20)
    cmd.Parameters.Append p3
    p3.Value = "test"
    'p4
    Set p4 = cmd.CreateParameter("Input", adVarChar, adParamInput, 20)
    cmd.Parameters.Append p4
    p4.Value = "test"
    'p5
    Set p5 = cmd.CreateParameter("Input", adVarChar, adParamInput, 50)
    cmd.Parameters.Append p5
    p5.Value = "test"
    cmd.Execute

 

But when i execute it I have recieve error:

"Parameterized calls of store procedure is not implemented"

 

 

Can you help me.Thank you very much.

Best regards,

My Phuong.