Perl連接數(shù)據(jù)庫，讀取不了字段內(nèi)容，出現(xiàn)錯誤，求解決！

h97252

代碼如下：

#!/usr/local/bin/perl -w
#--
use warnings ;
use strict ;

use File::Basename;
use DBI;

#use Encoding 'cp936';
#use Encode;
use encoding 'euc_cn';

my $user = 'petest';
my $password = 'pe20110918';
my $server = '172.17.5.8';
my $database = 'DMC_CombinePCB';


my $DSN = "driver={SQL Server};Server=$server;database=$database;uid=$user;pwd=$password;";
my $dbh = DBI->connect("dbi:ODBCDSN" or die "$DBI::errstr\n";

    my $sth1 = $dbh->prepare("select Mcono,pdctno 型號,ggms 更改內(nèi)容 from McoMainTwo where Mcono=\'MI595\'"
              or die "Couldn't prepare statement: " . $dbh->errstr . "\n";
      $sth1->execute();

    my @data_glb2 = $sth1->fetchrow_array();
    #print @date_glb;
    foreach (@data_glb2){
        $_ =~ s/^\s+|\s+$//g;
        print "22===$_\n";
    }
    $sth1->finish;

   $dbh->disconnect;

------------------------------------------
如果把 my $sth1 = $dbh->prepare("select Mcono,pdctno 型號,ggms 更改內(nèi)容 from McoMainTwo where Mcono=\'MI595\'" 中的“   ,ggms 更改內(nèi)容  ”  去掉，就是不要讀這個 “ 更改內(nèi)容” 的字段的內(nèi)容，程序正常運行，可以輸出如下查詢內(nèi)容的結(jié)果：

---------- perl ----------
22===MI595
22===122783F1

輸出完成 (耗時 0 秒) - 正常終止

---------------------

但是如果按照上面的程序內(nèi)容運行，一定要讀取 更改內(nèi)容 字段的時候，按照上面的程序內(nèi)容運行，就會出現(xiàn)如下信息：

---------- perl ----------
DBD::ODBC::st execute failed: [Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '?' 附近有語法錯誤。 (SQL-42000)
[Microsoft][ODBC SQL Server Driver][SQL Server]未能準(zhǔn)備語句。 (SQL-42000) at Get_CombinePCB.pl line 24.

輸出完成 (耗時 0 秒) - 正常終止
-------------------------------------


數(shù)據(jù)庫是SQL2000。

更改內(nèi)容 的字段里面存儲信息如下類型：

1.圖形預(yù)補償：X+3 mil,Y+3 mil
★.Conformal Mask菲林：長邊拉伸5mil
★.機械鉆帶：長邊拉伸3mil，再上下向外平移0.5mil
★.ODF/SM菲林：長邊拉伸3mil，再上下向外平移0.5mil



我的理解是，查詢語句應(yīng)該沒有問題，估計是最后輸出字段內(nèi)容的時候，處理不了出錯，請告訴指點！謝謝！

q1208c

為啥一定要中文?

h97252

回復(fù) 用[ur l=forum.php?mod=redirect&goto=findpost&pid=&ptid=4112293]2#[/url] q1208c


    公司的ERP,一定要中文

q1208c

回復(fù) 3# h97252

  我可以說臟話么?
   

pitonas

回復(fù) 4# q1208c
公司的臟話,一定要中文{:2_176:}

h97252

各位幫忙解決一下,別吹水啦

pitonas

可以么?
http://perldoc.perl.org/encoding.html

fender0107401

lz先去掉表情。

qq27898

樓上都討論什么問題呢

h97252

還是沒有解決問題啊，怎么辦��？