Thank you. I add more information: 

    * Your hardware configuration and environment.
    	My client host :192.168.11.12 ,and the SqlServer DB server:192.168.11.16 .They located at some place. 
    
    * Your disk system(s).
      My client host HD:300G. 
    
    * Your database engine's configuration.
    	DB is charged by our DBA.I really don't know what's config you means
    	
    * The structure of your database instance (definition of tables, indices, and objects).
    	Table Definition:
    	test_c (ID int not null,cust_id int not null,status char(1) null,money decimal(12,2) null)
      no indices 	
    
    * The nature of the data you are inserting.
      My data is from my client host's sqlite DB  
  
    
    * The client script you use to access your database.
My Code :
     #!/usr/bin/perl
     use strict;
     use warnings;
     use DBI;
    
    
     my $mydbh = DBI->connect( "dbi:SQLite:/root/loc.db","","",{AutoCo
+mmit => 0} ) or die "Error $DBI::errstr \n"; 
     my $dbh   = DBI->connect( "dbi:Sybase:server=192.168.11.16;databa
+se=customer",
                        "xxx",
                        "xxx",
                        {AutoCommit =>1})
                        or die $DBI::errstr;
      
    insert_it();
    $mydbh->disconnect;
    $dbh->disconnect;
    
    exit;
    
    ##########################
    sub insert_it() {
      my $r = get_data();
      for (keys %$f) {
        my $mo         = $r->{$_}->{money};
        my $status= $r->{$_}->{status}; 
            $dbh->do(qq{insert into test_c(custid,money,status) values
+ ($_,'$mo','$status')}) or die $DBI::errstr;
      }
    }
    
    sub get_data {
      my %data;
      my $sth = $mydbh->prepare(qq{select custid,money,status from tem
+p_test order by custid});
      my ($cid,$mon,$sta);
      $sth->execute() or die $DBI::errstr;
      $sth->bind_columns(undef, \$cid, \$mon, \$sta);
      while ( $sth->fetch() ) {
        $data{$cid} = {money => $bal, status => $sta};
      }
      return \%data;  
    }

[download]
I have tried the placeholder method,but the sqlserver 2K doesn't support it.

In reply to Re^2: How many record insert into SqlServer 2K per second? by pysome
in thread How many record insert into SqlServer 2K per second? by pysome

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.