首页 爱情文章 亲情文章 友情文章 生活随笔 校园文章 经典文章 人生哲理 励志文章 搞笑文章 心情日记
  • 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
    •
    当前位置: 山茶花美文网 > 范文大全 > 正文

    【给sqlserver中的表创建索引】 sql server创建索引

    时间：2020-05-28来源：山茶花美文网 本文已影响 人 山茶花美文网手机站

    给sqlserver中的表创建索引

    #!/usr/bin/perl

    use DBI;

    use Switch;

    use Encode;

    use Encode::CN;

    # my $source_name = "zoe";

    # my $source_user_name = "sa";

    # my $source_user_psd = "123";

    # my $db_name="mysqlDb";

    # my $location="192.168.0.46";

    # my $port="3306";

    # my $db_user="zoe";

    # my $db_pass="123";

    my $source_name = "zoe";

    my $source_user_name = "sa";

    my $source_user_psd = "123";

    my $dbh=DBI->connect("dbi:ODBC:$source_name",$source_user_name,$source_user_psd);

    #获取所有的用户表

    my $sth=$dbh->prepare("select name,object_id from sys.all_objects where type="U" and is_ms_shipped=0 and name <>"sysdiagrams"");

    $sth->execute();

    my $n=0;

    my $ok=0;

    my $sort_column="";

    while (@data=$sth->fetchrow_array())

    {

    #print $data[0].$data[1];

    $n+=1;

    $ok=0;

    #获取列

    get_columns($data[0],$data[1]);

    if($ok ==1){

    print "正在测试".$data[0]."表的索引".$sort_column."n";

    my $sql_create="select * from sysindexes where id=object_id("$data[0]") and name="$sort_column"";

    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);

    $sth_select->execute() or die "Cannot execute: ". $sth_select->errstr();

    my @select_col;

    my $select_data;

    while($select_data=$sth_select->fetchrow_arrayref())

    {

    $select_col[$nn]=[@$select_data];

    }

    my $col=@select_col;

    if($col !=0)

    {

    print "表".$data[0]."已存在索引".$sort_column."n";

    }

    else

    {

    do_sql($data[0],$sort_column);

    open(FILE,"》createtableallindex.txt");

    syswrite(FILE,"$nn");

    syswrite(FILE,"$data[0]n");

    close(FILE);

    }

    }

    }

    $sth->finish;

    $dbh ->disconnect;

    print "所有表的索引创建结束"."n";

    ##获取所有的列

    sub get_columns

    {

    $dbh2=DBI->connect("dbi:ODBC:$source_name",$source_user_name,$source_user_psd);

    my $sql="select col.name,tp.name,col.max_length,col.[precision],col.[scale],col.[is_nullable],col.[is_identity] from sys.all_columns col

    inner join sys.types tp on col.system_type_id=tp.system_type_id and col.user_type_id=tp.user_type_id

    where object_id=$_[1]";

    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_selectn");

    # close(FILE);

    $sth_select->execute() or die "Cannot execute: ". $sth_select->errstr();

    print "创建".$_[0]."表的索引".$_[1]."结束"."n";

    }

    • 【给sqlserver中的表创建索引】 sql server创建索引 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全

    最新文章

    热点文章

    推荐访问

    军训远足心得体会 军训爬山心得体会 大学军训徒步拉练感想 军训徒步作文 军训徒步10公里感想 军训徒步心得体会 5分钟演讲中秋节节日 中秋一分钟演讲 中秋节演讲稿4分钟 中秋节演讲稿一分钟 中秋节演讲稿五分钟 3-5分钟 中秋节短篇演讲稿 中秋节演讲稿两分钟 中秋节的演讲稿3分钟 关于中秋节的演讲稿三分钟 孩子体验军训的心得 参加孩子军训活动的感受与收获 家长对孩子军训后的收获和感悟 小孩军训的收获与感悟 学生军训的收获与感悟 孩子军训成长过程家长感悟 孩子军训感悟 孩子军训心得体会 孩子军训的收获与感悟 兵役前训练心得体会 部队当兵的心得 新兵役前教育训练心得体会 预备役军训心得体会 新兵军训感悟

    本文【给sqlserver中的表创建索引】 sql server创建索引由山茶花美文网整理提供，版权归原作者、原出处所有。

    Copyright © 山茶花美文网 All Rights Reserved.