PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

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