Can you help me.
| От | nguyenthi myphuong |
|---|---|
| Тема | Can you help me. |
| Дата | |
| Msg-id | 596969.83594.qm@web32606.mail.mud.yahoo.com обсуждение исходный текст |
| Список | pgadmin-support |
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
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;
$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
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
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.
В списке pgadmin-support по дате отправления: