更新sql server 数据库的问题，敬请关注！

hcduguo

我用perl程序，通过odbc连接sql server2000，逐条更新一个有200,000记录的表，程序运行起来以后，更新了几百条，就自己停止了，但是没有报错，再运行，更新的比上一次要多些，但是过一会儿又停止了！请问真是什么原因造成的？
是连接方式的原因？还是资源没释放？还是其他原因？

POLOGG

原帖由 hcduguo 于 2007-4-12 09:48 发表
我用perl程序，通过odbc连接sql server2000，逐条更新一个有200,000记录的表，程序运行起来以后，更新了几百条，就自己停止了，但是没有报错，再运行，更新的比上一次要多些，但是过一会儿又停止了！请问真是什么 ...

把数据库部分的代码帖出来看看，猜想 应该是数据库方面的问题

hcduguo

$DSN = "DSN=test;UID=saWD=;";
$data = new Win32::ODBC($DSN);  # new 一个连接对象       
$ndata = new Win32::ODBC($DSN);  # new 一个连接对象  
$data->Sql("SELECT id,address,company_name FROM company";
while ($data->FetchRow()) {
        $city='';
        my @dataRow = $data->Data();
        my $id=$dataRow[0];;
        my $address=$dataRow[1];
        $city=GetLabelValue('city');

        my $csql="update company set city='$city' where id=$id";
        $ndata->Sql($csql);

        print "$csql\n";
}
$data->Close();
$ndata->Close();

xiaoquqi

原帖由 hcduguo 于 2007-4-12 11:04 发表
$DSN = "DSN=test;UID=saWD=;";
$data = new Win32::ODBC($DSN);  # new 一个连接对象       
$ndata = new Win32::ODBC($DSN);  # new 一个连接对象  
$data->Sql("SELECT id,address,company_ ...

Set:
$ndata->Debug(1);
$ndata->Debug(1);
看看如何

hcduguo

Set:
$ndata->Debug(1);
$ndata->Debug(1);
看看如何

加上效果同以前一样！没什么其他的反应！

xiaoquqi

原帖由 hcduguo 于 2007-4-12 15:58 发表
Set:
$ndata->Debug(1);
$ndata->Debug(1);
看看如何

加上效果同以前一样！没什么其他的反应！

没有日志信息吗？

hcduguo

没有日志！
还有其他好办法吗？
哥们有时间帮着给测试一下！
前两周我做了更新，每次能跟新几万条，然后就停止了！凑合着还能用，现在每次才更新几百条，要是一次一次手动操作更新，就得累死！

hcduguo

有人能给解释一下吗？是不是ODBC不好用的缘故啊？

flw

关键你得搞清楚你的程序错在哪儿。
自始至终你都没有给大家提供任何有帮助的信息，没法查原因。

ua

一次把200000全部取出来,你也不嫌累,如果可能的话你还是写个存储过程完成你的功能把,比perl快,也好调试;如果你特别想用perl完成,建议你每次取出1000条更新,直到更新完所有的数据