欢迎进入windows社区论坛，与300万技术人员互动交流 >>进入 my $cols=$dbh2 - prepare（$sql）； $cols-execute（）； my $cols_str = ; my $n=0; $sort_column=; while（@col= $cols-fetchrow_array（）） { （$col_name,$type_name,$max_length,$preci
欢迎进入windows社区论坛，与300万技术人员互动交流 >>进入
my $cols=$dbh2 -> prepare（$sql）；
$cols->execute（）；
my $cols_str = ;
my $n=0;
$sort_column=;
while（@col= $cols->fetchrow_array（））
{
（$col_name,$type_name,$max_length,$precision,$scale,$is_nullable,$is_identity）=@col;
if（$is_identity == 1）
{
$ok=1;
$sort_column=$col_name;
}
}
}
sub do_sql
{
print '开始创建'.$_[0].'表的索引'.$_[1].\n;
my  $sql_create=create unique index  $_[1]  on $_[0] （$_[1]）;
my $dbh_mssql=dbi->connect（dbi:odbc:$source_name,$source_user_name,$source_user_psd,{raiseerror =>1}）；
$dbh_mssql->{longtruncok}=1;
$dbh_mssql->{longreadlen}=1048576;
my $sth_select=$dbh_mssql->prepare（$sql_create）；
# open（file,》all_export_data222.txt）；
# syswrite（file,$sql_select\n）；
# close（file）；
$sth_select->execute（） or die 'cannot execute: '. $sth_select->errstr（）；
print '创建'.$_[0].'表的索引'.$_[1].'结束'.\n;
}
  [1] [2]