Perl执行SQLSERVER有带输入参数的存储过程问题

sean88

请问各位高手,请教一下如题所说的问题,存储过程想通过输入一个ID来查找记录~~~应该怎么样写?

1. 
   
2. #!/usr/bin/perl
   
3. use DBD::ADO;
   
4. 
   
5. #ADO连接
   
6. my $data_source = "DBI:ADO:driver={SQL Server};Server=192.168.104.46; database=Northwind;";
   
7. my $user = "sa";
   
8. my $password = "";
   
9. 
   
10. #建立句柄
    
11. my $dbh = DBI->connect($data_source,$user,$password, {RaiseError =>0,AutoCommit =>0,PrintError =>0})
    
12.   or die "Can't connect to $data_source: $DBI::errstr";
    
13. 
    
14. #查询方法
    
15. $sth=$dbh->prepare('proc_employee_query');        #存储过程(带有一个输入ID来查询)
    
16. $sth->execute();
    
17. 
    
18. print "EmployeeID\tFirstName\tLastName\n";
    
19. while(my $ref = $sth->fetchrow_hashref()) {        #输出记录
    
20. 
    
21. print "$ref->{'EmployeeID'}\t";
    
22. print "$ref->{'FirstName'}\t";
    
23. print "$ref->{'LastName',}\n";
    
24. }
    
25. 
    
26. $sth->finish();
    
27. 
    
28. #关闭句柄
    
29. $dbh->disconnect();
    

复制代码

[ 本帖最后由 sean88 于 2007-2-8 17:56 编辑 ]