sybperl-l Archive

From: Brazier Stephen F Civ 27 IS/SCOS <stephen dot brazier at langley dot af dot mil>
Subject: RE: update question
Date: Aug 17 1999 9:37PM

Daz,  
Just a thought - in your code:

>    foreach $thisrow (@rows) {
>         my $test2 = ${$thisrow}[0];
>         print qq[
$test2
];
>         my $test3=("$test2" . "$test");
>     $cmd = qq[UPDATE calls SET resolution = "$test3" where CALLNUMBER 

 Where you concatenate "$test2" with "$test" 
make sure the spaces in the sql are imbedded correctly - 
this has bit me in my code too...  :>

Michael is right in his latest message:  Print out your SQL stmnt prior to
sending it so you can tear it apart and test it in ISQL

Good Luck,
Steve

-----Original Message-----
From: Daz [mailto:dazol@patriot.net]
Sent: Tuesday, August 17, 1999 4:33 PM
To: SybPerl Discussion List
Subject: Re: update question


If this is not the correct list to post this to, my apologies.  Which
list would be better?  Im not asking for a fix(example code), just a
'why' this is happening.  Even a flame would be appreciated at this
point (Im going crazy not being able to figure this out)
David

Daz wrote:
> 
> New to the list so please bear with me :)
> Also new to perl, so more 'bearing' please ;)
> 
> I am trying to write a CGI script that will call a certain row from
> MSSQL 6.5, save the results into one variable, take the cgi input as the
> second variable concatonate the two, then update the previously called
> row with the new information (making sure to keep the original
> information).  the newest problem (Ive solved most, I think) is this
> error:
> 
> Server message:
> Message number: 105, Severity 15, State 1, Line 1
> Server 'SERVERNAME'
> Message String: Unclosed quote before the character string 'how'.
> 
> Server Message:
> Message number: 170, Severity 15, State 1, Line 1
> Server 'SERVERNAME'
> Message String: Line 1: Incorrect syntax near 'how'.
> 
> The only text this particular column has is the word 'how'.
> Here is the code I am using(I know its goulish, but Ive only been using
> perl for a month or so)
> 
> #!/usr/bin/sybperl
> BEGIN {
>         $ENV{SYBASE} = '/home/opt/sybase';
> }
> use CGI;
> use Sybase::CTlib;
> use CGI qw (:standard);
> my $query= new CGI;
> print $query->header;
> print $query->start_html(-title =>"Update a Ticket",
>                           -bgcolor => '#FFFFFF');
> print qq[
Upate a ticket
];
> print $query->startform;
> print qq[
Put in some garbage
];
> print $query->textfield( -name => 'test' );
> print $query->submit;
> print $query->endform;
> 
> #attempt the sql part
> $dbh = new Sybase::CTlib ('username', 'password', 'DATABASE');
> if ($query->param('test')) {
>    $dbh->ct_sql("use DATABASE");
>    $test = $query->param('test');
> 
>  my  $cmd1 = qq[SELECT resolution FROM calls WHERE callnumber = 30000];
>    my @rows = $dbh->ct_sql($cmd1);
>    my $thisrow;
>    foreach $thisrow (@rows) {
>         my $test2 = ${$thisrow}[0];
>         print qq[
$test2
];
>         my $test3=("$test2" . "$test");
>     $cmd = qq[UPDATE calls SET resolution = "$test3" where CALLNUMBER =
> 30000];
> $dbh->ct_sql("use DATABASE");
> $dbh->ct_sql($cmd);
> 
> print qq[
$test3
];
> }
> }
> print $query->end_html;
> 
> Any suggestions would be most appreciated.
> David

begin 600 winmail.dat
M>)\^(A,5`0:0"``$```````!``$``0>0!@`(````Y`0```````#H``$(@`<`
M&````$E032Y-:6-R;W-O9G0@36%I;"Y.;W1E`#$(`06``P`.````SP<(`!$`
M$0`E`!0``@`[`0$@@`,`#@```,\'"``1`!$`)0`/``(`-@$!"8`!`"$````S
M,D0Y-#(V-T4X-31$,S$Q038P,S`P,C`T.#`T14(T-0#0!@$$@`$`%````%)%
M.B!U<&1A=&4@<75E`""`&``````#`````````1@`````1A0````````,`"8`(
M(`8``````,````````!&`````!B%````````'@`*@`@@!@``````P```````
M`$8`````-H4```$````!`````````!X`"X`((`8``````,````````!&````
M`#>%```!`````0`````````>``R`""`&``````#`````````1@`````XA0``
M`0````$`````````"P`-@`L@!@``````P````````$8``````(@````````+
M``Z`"R`&``````#`````````1@`````%B`````````(!"1`!````.0@``#4(
M``!>#P``3%I&=>8UR/L#``H`(R`T-T97@%00$#`??_"H`"I`/D
M!Q,"@`_S`%`$5C\(50>R$24.40,!`@!C:.$*P'-E=#(&``;#$27V,P1&$[
V.Q@?#C`U$2(,8&,`4+,+"0%D,S864`NG8P$PP"!$87HL(`KC
M"H`(2G5S!4!A('1H20A@9V@%0"T@"X`@VGD(82`%H`$`.AV4'90^/AUP'7`"
M$!@@`-!H()XD'F`$``-@!^`H0"&Q/',I`S```"!((P-M>70%#$](5`B
M<"%F7+!]6S!=&3`BK7`%$`$","!Q<5L\<#XY(\0\+R<`)4\CAS,]A"@B(\0B
M("X@*92$(BDGVR1C;60D(8$FP5501$%411]P10=`;`9!150@&"!S<0;P=71I
M`B`D(2F4,RDJ`'=H!)!E$B!!3(!,3E5-0D52'86Y'90@5RZS'S$?<6XLH/T.
ML&XQ82HU*?$#\!Y@*C;K'84`P&LNX',(<"[@'F"[,]$*L&,'D1\!-$-Q`R#W
M"L`NX`=P8@F``0`KP`6A\1@@8W1L(Z`>X!V4(7+V(!/@!"!B,H`C@#7!`Z#'
M(Y$?@AY0;V\N.7`=<+0Z/A_:30W@$^!E`R#_-[$%$!ZB'P$WH@M@(](X4=D$
M$&%G'[`=<%`F(3]P0*$>$3@Q;1\!23XA']I'.5`KP$PI&M!K
M+!V44PZP=F7U']HM19)/.U$+@`=`!=!W/*1%DQV41@-A/0`=,2#.6P#``Q`Y
M0#ID'4`&\(I`"K!T/M%T+FX4(%9=1"4)\'0]`%0*4',U2+!Y'6!!'I`>`C$W
M"1U@,3E+X"`T.C-J,ST@31V45$B0%%%BUE`$D`,@1`0`8QX``)`5+<%,!`!T
M1"5U8FK+-K$]`%(\\75P2+`QL9YQ2J$MHA_:'91)9AY1^S>Q-[%N26`T,S9U
M/!!.A1A`'D#F1,(`ZL1V4]5.3=PA@;"O`
M-@!7,0)`9020/QUP26U2@S?P:X<_DB#A'C%F:7@H#L!<86T+4%+R`0`I'6!J
MRQX#'90G+J!Y)U('$^#<<'`)\#^1.9%%1+`#H/]9(0M@.&%6YUPA-J$',`ZP
MORO`,6!2`QV45!`F@BA8`?YG7]$_L`4`'4`CH%*2-@#_/Y(!H%G1/R%90$M`
M-!,WL)V?R/Y%;
M<&>%.VC7(#;N21XP6!!),'D_DC\A9/#W,H!>$1(@1VTP!/4>8%[Q_P/P+,`L
MDQXQ-+``(`MQ+3`?(<$#4B`V!>`^(C8N-=]J86.P-"0M05<`=#32/R'[`B`N
MX'9K,6'"'6`!D#/!]U+31A`>\7`]H3?Q-$$@-O\4$#$A*\!T-C$5`B`QHC1"
M_G16X'2Q+K`#H$_5-$)>4?MCP`A@P%!`KP%!`91'_5S$@XE+$$^$`
MT%>A/E%K0N-J\!YP=R&FA"L&0KR!C5/U^\FXVX0ZS-Y-!0@W@5P#_"L$7D8A`.\$W
M\8/S78(+(/V;C4@NPI^%./-M,QX`/Y'_8"!^@%*0?+%S<6!@5P`$`/IH'6!B
M/:&"4ITS-@!Y4O^BDB`V:B)8U01@`C`A0`6Q(RU@;"\C(2\>`'(OZ3@@;B^:
MT&)J(B`V+W"-;K!.(F\K<45.5JJ`<%-90D$M`"4`)"$GYB\><`>`+V\%,*DB
M9['^)R?7)0`@-AX`+N%NL"?7AZ\"33%GL3HZ0U13D-9BKWMNHG$AT3H>$$&1
M_PL1*K@CDE!!;9`D,&FRKTK3)F2SQ"T^+K!A!(&TOQ>UQ+)Q`"!?'K!M;"@.
M+2V@-M`NX#T^(E7?3^0>0`=@0_`4(")$%2A(<[M/'M!B9Q>3N0%J\",:1KU3
M)RJX)FAH,3[_N4"Y=)Y1N@$G@+\!)\BW'^\`(7T!O=\FXE`]H1\!+6#].&%G
M"L"M@#S@)XRU3`ZR\UE`.O!D*![0,9`X8;T"WR/26W"]SK=W3Q!M,H#(?_^U
MQ#]APCNH!S%@#K!9L%*TQS5B04(@-B1D8B%`M"2[L$LAX">O`02@76$G'6"^
M)PJP!!"?\M$R+%%!K"+_O;D&D"'@M:8*L5F@T)#(`]XI(EW/`K8`-L!?-6$I
M@/^O`M(V*JPCPR0BT[_4P]_[.#K'*YHKFC*
MW[A#^#]!]F[G,#/P9SS@4',$(%;G+X,"7BJ;YV.I?0+0````'@!P``$````0
M````=7!D871E('%U97-T:6]N``(!<0`!````&P````&^Z/(1;80&JQ54VA'3
MCZ\`@%_!B$H``8KQ0``#`"X```````L`*P``````"P`"``$````>`$(0`0``
M`"`````\,S=".4,W,3@N-#DV1D9%.$%`<&%T`#%``0````H```!"4D%:24524T8````#
M`!I``````!X`,$`!````"@```$)205I)15)31@````,`&4```````P#]/^0$
M```#`"8```````,`-@```````P"`$/____\"`4<``0```"X```!C/553.V$]
M1$U3.VP]3$9)+4U3+3`R-2TP+3DY,#@Q-S(Q,S`/@_`0```"$```!"`#A``0````H```!"4D%:24524T8````"`?L_`0```%(`````````
MW*=`R,!"$!JTN0@`*R_A@@$`````````+T\]3U)'04Y)6D%424].+T]5/4Q!
M3D=,15DO0TX]4D5#25!)14Y44R]#3CU"4D%:24524T8````>`/H_`0```"$`
M``!"`#E``0``
M``H```!"4D%:24524T8```!````#T`
M`0````4```!213H@`````!X`'0X!````$````'5P9&%T92!Q=65S=&EO;@`>
M`#40`0```$8````\-#DQ-30R0S1#,C5&1#(Q,4$U0T$P,#(P-#@P-$5"-#4P
M03,T,D5`;&9I+6US+3`R-2TP,2YL86YG;&5Y+F%F+FUI;#X````+`"D`````
M``L`(P```````P`&$(-PM04#``<0#0D```,`$!```````P`1$``````>``@0
M`0```&4```!$05HL2E535$%42$]51TA4+4E.64]54D-/1$4Z1D]214%#2"14
M2$E34D]7*$!23U=3*4U9)%1%4U0R/20D5$A)4U)/5S`[4%))3E1143Q0)%1%
M4U0R/"]0.TU9)%1%4U0S/2@B``````(!?P`!````1@```#PT.3$U-#)#-$,R
M-49$,C$Q035#03`P,C`T.#`T14(T-3!!,S0R14!L9FDM;7,M,#(U+3`Q+FQA
2;F=L97DN868N;6EL/@```,(!
`
end