Question

下面是我用来运行查询，解析结果集和解析行的代码（分别）

$exec_ret = $DBS->SQLExecSQL($STMT);

while ($DBS->SQLFetch() == *PLibdata::RET_OK)
{
      $rowfetch = $DBS->{Row}->GetCharValue($colname[$i]);
}

我可以使用类似的语法获取临时表的列/字段名称吗？ $colname[$i]预定义在顶部以保存列/字段名称。这是现在的硬编码，但我宁愿通过将值推送到解析行之前运行的循环内的$colname来实现自动化。

Answer 1

您使用什么模块进行数据库访问？我不认识方法名称。

如果您正在使用DBI，则可以在执行后从语句句柄中获取列名：

my $sth = $dbh->prepare($STMT);
$sth->execute;
my $columns = $sth->{NAME_uc};

while (my $row = $sth->fetch) {
  for my $i (0 .. $#$row) {
    print "$columns->[$i]: $row->[$i]\n";
  }
  print "\n";
}

列名有3个版本：NAME在数据库返回时给出列名，NAME_lc将它们转换为全部小写，NAME_uc将它们转换为所有上层案件。如果您关心数据库独立性，我建议您避免NAME并使用其他两个中的一个。

Answer 2

尝试运行 SHOW TABLE yourtable 并将其视为SELECT。

如何使用Perl检索临时表的SQL字段名称？

2 个答案: