欢迎进入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]
