--0-376674237-1205462759=:91472
Content-Type: text/plain; charset=us-ascii
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.
--0-376674237-1205462759=:91472
Content-Type: text/html; charset=us-ascii
<html><head><style type="text/css"><!-- DIV {margin:0px;}
--></style></head><body><div style="font-family:times new roman, new york,
times, serif;font-size:12pt"><DIV>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman, new york,
times, serif">
<DIV> </DIV>
<DIV>Dear,</DIV>
<DIV>Sorry this fist email error when i'm writing.</DIV>
<DIV>I am a new using postgres. I have a project using writen via VB6.0
and using database Postgres.</DIV>
<DIV>But when i using ia have error:</DIV>
<DIV><STRONG>1_:</STRONG>I using adodc for insert data into table of
postgres.</DIV>
<DIV>Table name: tbl_order_printer(loc_id varchar(20),</DIV>
<DIV>
<DIV>
item_id
varchar(50),</DIV>
<DIV>
<DIV>
print_id varchar(50),</DIV>
<DIV>
<DIV>
area_id varchar(50))</DIV></DIV></DIV></DIV>
<DIV>In VB6.0 i using code for insert data.</DIV>
<DIV>Dim rs As New ADODB.Recordset<BR>Set rs =
Nothing<BR>rs.CursorLocation = adUseClient<BR>rs.Open "select * from
TBL_ORDER_PRINTER where loc_id='" & Mod_Sysvar.V_LocId & "'
" _<BR> & " and area_id='" &
Trim(Me.SSOleDBCombo_khuvuc.Value) & "' "
_<BR> & " and print_id='" &
Trim(Me.SSOleDBCombo_print.Value) & "' " _<BR> &
" and item_id='" & Trim(Me.txt_Item_Id) & "'", cn, adOpenKeyset,
adLockOptimistic, admcdtext<BR>If rs.EOF = True Then<BR>
rs.AddNew<BR> rs.Fields("loc_id") =
Mod_Sysvar.V_LocId<BR> rs.Fields("area_id") =
Me.SSOleDBCombo_khuvuc.Value<BR> rs.Fields("item_id") =
Trim(Me.txt_Item_Id)<BR> rs.Fields("print_id") =
Me.SSOleDBCombo_print.Value<BR> rs.Update<BR>End
If</DIV>
<DIV> But when run i have error:</DIV>
<DIV>"-<SPAN class=yshortcuts id=lw_1205462633_0>2147217887</SPAN>
Multiple-step operation generation errors. check each status value"</DIV>
<DIV><STRONG>2_</STRONG>Table name:tbl_rollback(frm_name
varchar(50),</DIV>
<DIV>
action_descrition
varchar(50),</DIV>
<DIV>
<DIV>
record_no
varchar(20),</DIV>
<DIV>
<DIV>
user_id
varchar(20),</DIV>
<DIV>
<DIV>
computer_name
varchar(50),</DIV>
<DIV>
last_update
TIMESTAMPTZ)</DIV>
<DIV>I have a function:</DIV>
<DIV>CREATE OR REPLACE FUNCTION "public"."fun_rollback" (field1 varchar,
field2 varchar, field3 varchar, field4 varchar, field5 varchar) RETURNS
SETOF "public"."tbl_rollback" AS<BR>$body$<BR>BEGIN<BR> INSERT INTO
public.tbl_rollback(frm_name, action_descrition,<BR>
record_no,<BR>
user_id,<BR>
computer_name)
<BR>
VALUES(field1,<BR>
field2,<BR>
field3,<BR>
field4,<BR>
field5);<BR> SELECT
public.tbl_rollback.* FROM
public.tbl_rollback;<BR>END<BR>$body$<BR>LANGUAGE 'plpgsql' VOLATILE
CALLED ON NULL INPUT SECURITY INVOKER;</DIV>
<DIV>______________In VB6.0 i call with code follow:</DIV>
<DIV>Dim cmd As New ADODB.Command<BR> Dim p1 As
ADODB.Parameter<BR> Dim p2 As
ADODB.Parameter<BR> Dim p3 As
ADODB.Parameter<BR> Dim p4 As
ADODB.Parameter<BR> Dim p5 As
ADODB.Parameter<BR> cmd.ActiveConnection =
cn<BR> cmd.CommandType =
adCmdStoredProc<BR> cmd.CommandText =
"FUN_ROLLBACK"<BR> 'p1</DIV>
<DIV> Set p1 = cmd.CreateParameter("Input", adVarChar,
adParamInput, 50)<BR> cmd.Parameters.Append
p1<BR> p1.Value = "test"<BR>
'p2<BR> Set p2 = cmd.CreateParameter("Input", adVarChar,
adParamInput, 50)<BR> cmd.Parameters.Append
p2<BR> p2.Value = "test"<BR>
'p3<BR> Set p3 = cmd.CreateParameter("Input", adVarChar,
adParamInput, 20)<BR> cmd.Parameters.Append
p3<BR> p3.Value = "test"<BR>
'p4<BR> Set p4 = cmd.CreateParameter("Input", adVarChar,
adParamInput, 20)<BR> cmd.Parameters.Append
p4<BR> p4.Value = "test"<BR>
'p5<BR> Set p5 = cmd.CreateParameter("Input", adVarChar,
adParamInput, 50)<BR> cmd.Parameters.Append
p5<BR>
p5.Value = "test"<BR> cmd.Execute</DIV>
<DIV> </DIV>
<DIV>But when i execute it I have recieve error:</DIV>
<DIV>"Parameterized calls of store procedure is not implemented"</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Can you help me.Thank you very much.</DIV>
<DIV>Best regards,</DIV>
<DIV>My
Phuong. </DIV></DIV></DIV></DIV></DIV></DIV></div></body></html>
--0-376674237-1205462759=:91472--
|
