Harbour

• Propósito
• Biblioteca
• Funções
• Exemplo

Propósito

Implementar uma interface entre a linguagem Harbour e a OpenSQL

Biblioteca

libhb_open.a em /usr/lib.

Funções

• 1. int open_connect(string banco)

  abre banco

• 2. int open_close(int con)

  fecha banco

• 3. int open_query(int con, int que)

  executa query

• 4. array open_fetch_row(int res)

  le uma linha do resultado

• 5. int open_num_rows(int res)

  devolve número de linhas do resultado

• 6. int open_num_fields(int res)

  devolve número de colunas do resultado

• 7. string open_field_name(int res, int col)

  devolve nome da coluna do resultado

• 8. string open_last_error()

  devolve último erro

• 9. int open_free_result(int res)

  libera resultado

Exemplo

procedure Main()

con=open_connect("EXEMPLO")

que=open_query(con,"select * from PESSOA")

n=open_num_columns(que)

row=open_fetch_row(que)

do while len(row)>0

  for i=1 to n

    ? open_column_name(que,i),"=",row[i]

  next

  row=open_fetch_row(que)

enddo

ret=open_close(con)