<?php
	include_once('conexao.php');
	include('funcoes.php');

	CriarLista('Estado');
?>

A conexão é bem simples, faça como quiser.
Já a função, baseia-se na instrução SQL: SHOW FULL COLUMNS FROM TB_CLIENTE. Essa instrução retorna uma lista com os campos: Field, Type, Collation, Null, Key, Default, Extra Privileges e Comment. Para nós, nesse momento só interessam Field e Comment. Explico. Pegaremos os campos que retornam nessa SQL e com eles, comporemos a nova SQL com os campos que a primeira retornou, ficou claro?
Nos comments da tabela em questão, eu coloquei a descrição dos campos, tipo o campo EST_CODIGO tem o comentário “Código”.

Para usar, eu fiz o trechinho de código abaixo:

		$sql = 'SHOW FULL COLUMNS FROM ' . $tabela; // Crio a string
		$res = mysql_query($sql); // Envia a string para o banco e guarda o retorno
		$sql = 'select '; // Crio a nova SQL
		$estrutura = array(); // Inicializo o array
		$pos = 1; // Inicializa 1ª posição

		echo "<table border='1'>
				<tr>"; // Monta o início da tabela

		while ($lin = mysql_fetch_assoc($res)) {
			echo "<td>".$lin['Comment']."</td>";
			$estrutura[$pos++] = $lin;
			$sql .= $lin['Field'] . ', ';
		}
		echo "</tr>";
		$sql = substr($sql, 0, strlen($sql) - 2);
		$sql .= " from ". $tabela ;

Com esse código ai conseguimos compor uma nova SQL, algo como Select EST_CODIGO, EST_NOME from ESTADO. Assim, poderemos fazer a nova consulta como deve ser. Além disso, todo o resultado daquele resource fica armazenado em um array chamado estrutura, para consulta posterior.
Com esses dados em mãos, vamos simplesmente fazer a nova consulta no banco e trazer os dados para dentro da tabela. Veja como fica esse trecho:

		$res = mysql_query($sql);
		while ($lin = mysql_fetch_assoc($res)) {
			echo "<tr>";
			foreach ($estrutura as $campo) {
				echo "<td>".$lin[$campo['Field']]."</td>";
			}
			echo "</tr>";
		}
		echo "</table>";

e assim funciona, e no próximo post eu coloco o arquivo para download e também como paginar o resultado dessa função.

Até mais

procedure TForm1.ExecutaScript;
var
  ErrorCode: Integer;
begin
   try
      ErrorCode := Conexao.ExecuteDirect(MemoSQL.Text);
      // Conexao é um TSQLConnection já conectado ao banco.

      if ErrorCode = 0 then
          ShowMessage('Script rodado com sucesso');

      {Se retornar diferente de "0" é porque algo de errado aconteceu}
      if ErrorCode <> 0 then
         raise Exception.Create( 'Error: code = ' + IntToStr( ErrorCode ) )

   except
      on E: Exception do
         ShowMessage( E.Message );
   end
end;

Só testei em Oracle, mas não vejo motivos para não rodar em Interbase.

Abaixo seguem os slides. Qualquer dúvida podem perguntar que eu esclareço.

Talvez fique um pouco descontextualizado, porque os slides não são nada sem a narração, mas como me pediram, ai está.