通过 Perl DBI 获取列名答案

【问题标题】：Obtain column names via Perl DBI通过 Perl DBI 获取列名
【发布时间】：2011-06-13 11:07:56
【问题描述】：

在 SQL Server Management Studio 2008 中，我可以运行

sp_columns MY_TABLE

获取所有列名（在COLUMN_NAME 下）。但是，如何使用 Perl DBI 获得相同的信息？

我特别尝试过

my $result = $dbh->selectall_hashref("sp_columns MY_TABLE", 'COLUMN_NAME');

希望列名是返回哈希的键。

事实上，即使成功，这也不是我想要的，因为我需要保留该表中列的顺序。所以我尝试了

my $sth = $dbh->prepare("sp_columns $table");
$sth->execute();
while (my @row = $sth->fetchrow_array) {
    # process @row;
}

但两者都不起作用。我收到了错误消息

DBD::Sybase::db selectall_hashref failed: Server message number=102 severity=15 state=1 line=1 server=XXXX text=Incorrect syntax near '.'

我还引用了this post。显然，以下查询在我的 Management Studio 中 NOT 工作：

select * from information_schema.columns where table_name = MY_TABLE

带有

的错误信息

Msg 208, Level 16, State 1, Line 2
Invalid object name 'information_schema.columns'.

请帮忙？谢谢！

【问题讨论】：

如果您在 INFORMATION_SCHEMA.COLUMNS 上获得无效的对象名称，则可能是您没有权限。如果您的排序规则区分大小写，您还需要使用全部大写。但它肯定存在于 SQL Server 中。
废话。 information_schema 在包括 MS SQL Server 在内的许多数据库中都可用。
INFORMATION_SCHEMA.COLUMNS 是 mysql5 的东西。它在 mysql 4.1 中不可用
显然@Emtucifor 是正确的，排序规则在我的服务器上区分大小写，因此在将所有内容更改为大写后，我得到了查询工作，并且我能够以这种方式提取列名。谢谢大家。
正在将我的评论转换为答案...

【解决方案1】：

如果您在 INFORMATION_SCHEMA.COLUMNS 上获得无效的对象名称，则可能是您没有权限。如果您的排序规则区分大小写，您还需要使用全部大写。但它肯定存在于 SQL Server 中。

【讨论】：

【解决方案2】：

返回的列名是准备好的语句的一个属性，所以你可以使用：

my $dbh = DBI->connect('dbi:DBMS:...','','');
my $sth = $dbh->prepare("SELECT * FROM SomeTable");

现在$sth->{NAME}（数组引用）包含列的名称（如别名等）。

【讨论】：

我认为 $sth->{NAME} 必须在某个时间点调用（在循环访问数据之前）。如果我没记错的话，它很早就超出了范围。
@knb：这可能取决于驱动程序。当然，在句柄被销毁之前，它不会超出 DBD::Informix 的范围。
@jonathan-leffler：我特别谈到了 DBD::Sybase。也许一旦我在创建 $sth 的子例程超出范围后尝试访问 $sth->{NAME} 。昨天无法查找代码示例（今天也没有）。
@jonathan-leffler：你必须先执行 $sth->execute() 才能获得 $sth->{NAME}。如果我只想要那种信息，我通常也会添加一个“WHERE 1=0”。（我相信）一些数据库在获取之前将整个结果集返回到某个客户端层。
@runrig：对于某些 DBD，您可能是正确的； DBD::Informix 在获取列名之前不需要执行。

【解决方案3】：

查看 DBI 支持的catalogue methods。特别是，我希望您需要 table_info。

【讨论】：