Help me.

by myphuong244@[EMAIL PROTECTED] (nguyenthi myphuong) Mar 13, 2008 at 07:17 PM
--0-955443689-1205461045=:23448
Content-Type: text/plain; charset=us-ascii

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

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:
--0-955443689-1205461045=:23448
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>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>1_:I using adodc for insert data into table of postgres.</DIV>
<DIV>Table name: tbl_order_printer(loc_id varchar(20),</DIV>
<DIV>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; item_id
varchar(50),</DIV>
<DIV>In VB6.0 i using code:</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='" &amp; Mod_Sysvar.V_LocId &amp; "'&nbsp;
" _<BR>&nbsp;&nbsp;&nbsp; &amp; " and area_id='" &amp;
Trim(Me.SSOleDBCombo_khuvuc.Value) &amp; "'&nbsp; "
_<BR>&nbsp;&nbsp;&nbsp; &amp; " and print_id='" &amp;
Trim(Me.SSOleDBCombo_print.Value) &amp; "' " _<BR>&nbsp;&nbsp;&nbsp; &amp;
" and item_id='" &amp; Trim(Me.txt_Item_Id) &amp; "'", cn, adOpenKeyset,
adLockOptimistic, admcdtext<BR>If rs.EOF = True Then<BR>&nbsp;&nbsp;&nbsp;
rs.AddNew<BR>&nbsp;&nbsp;&nbsp; rs.Fields("loc_id") =
Mod_Sysvar.V_LocId<BR>&nbsp;&nbsp;&nbsp; rs.Fields("area_id") =
Me.SSOleDBCombo_khuvuc.Value<BR>&nbsp;&nbsp;&nbsp; rs.Fields("item_id") =
Trim(Me.txt_Item_Id)<BR>&nbsp;&nbsp;&nbsp; rs.Fields("print_id") =
Me.SSOleDBCombo_print.Value<BR>&nbsp;&nbsp;&nbsp; rs.Update<BR>End
If</DIV>
<DIV>&nbsp;</DIV>
<DIV>Table name:tbl_rollback(frm_name varchar(50),</DIV>
<DIV>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; action_descrition
varchar(50),</DIV>
<DIV>
<DIV>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; record_no
varchar(20),</DIV>
<DIV>
<DIV>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; user_id
varchar(20),</DIV>
<DIV>
<DIV>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; computer_name
varchar(50),</DIV>
<DIV>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; last_update
TIMESTAMPTZ)</DIV>
<DIV>In VB6.0:</DIV>
<DIV>&nbsp;</DIV></DIV></DIV></DIV></div></body></html>
--0-955443689-1205461045=:23448--
1 Posts in Topic:
Help me.
myphuong244@[EMAIL PROTEC
2008-03-13 19:17:25
Post A Reply:
About - Advertising - Contact - Frequently Asked Questions - Privacy Policy - Terms of Use - Signup
tan13V112 Sun Jul 6 18:46:58 CDT 2008.