Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^2: dbd:Sybase bit scramble

by CaptainDaddy (Initiate)
on Mar 22, 2013 at 15:33 UTC ( [id://1024948]=note: print w/replies, xml ) Need Help??


in reply to Re: dbd:Sybase bit scramble
in thread dbd:Sybase bit scramble

Code

# $host='...'; $port='...'; $user = "..."; $pass = "..."; $dsn="dbi:Sybase;server=dbhDB;database=...;"; $dbh= DBI->connect("$dsn",$user,$pass) or die "can't connect"; $fileTableName="fileTable"; $cmd="SELECT 1 FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE T +ABLE' AND TABLE_NAME='$fileTableName\'"; $fetchcmd= $dbh->prepare($cmd); $fetchcmd->execute(); if(@row= $fetchcmd->fetchrow_array){ print "the file table is there!!!\n"; }else { $createCmd=$dbh->prepare("create table $fileTableName (fileCol +umn VARBINARY(MAX) not null)"); $createCmd->execute() or die "can't create table"; $createCmd->finish(); } $fetchcmd->finish(); $insertcmd= $dbh-> prepare("insert into $fileTableName (fileColumn) va +lues (CONVERT(varbinary(max),?))"); open FILE,"<","./a.b" or die "file"; binmode(FILE); $filelength = -s FILE; read(FILE,$fcontents,$filelength); print"did"; $insertcmd->bind_param(1,$fcontents,DBI::SQL_VARBINARY); $insertcmd->execute() or print" not "; $insertcmd->finish(); $sz=length($insert); print " succeed. size: $sz\n"; close(FILE); $dbh->disconnect;

results

>perl sybasefiletrial.pl the file table is there!!! DBD::Sybase::st execute failed: OpenClient message: LAYER = (0) ORIGIN + = (0) SEVERITY = (9) NUMBER = (98) Server dbhDB, database Message String: Error converting characters into server's character se +t. Some character(s) could not be converted did succeed. size: 0
I probably am missing something obvious here; help will be apprecieated.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1024948]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (4)
As of 2024-03-19 05:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found