ODBC_find_connection

Parametry

Popis

Funkcφ lze zφskat Φφslo napojenφ na zdroj dat, kterΘ je pot°ebnΘ pro otev°enφ kurzoru pomocφ funkce ODBC_open_cursor.

Funkce se pou₧ije k zφskßnφ Φφsla ODBC zdroje dat, kter² je ji₧ p°ipojen do aplikace pomocφ ╪φdicφho panelu klienta. Vstupnφ parametr dsn_name udßvß jmΘno zdroje dat. Musφ se uvΘst p°esn∞ v tΘ podob∞, v nφ₧ se vyskytuje na ╪φdicφm panelu v seznamu ODBC spojenφ.

Prßce s ODBC zdroji dat v programu - viz podrobnosti.

Hodnota funkce

Funkce vracφ Φφslo spojenφ na zdroj dat p°i ·sp∞chu a nulu p°i chyb∞.

P°φklad:

Programov∞ p°enΘst obsah DBF tabulky p°ipojenΘ p°es ODBC do pomocnΘ tabulky ve WinBase:

var 
  c_odbc : cursor;    
  conn, rec, pocet  : integer;
  i : integer;
  odbc_jmeno : string[200];
  odbc_date : date;
  odbc_cislo : integer;
begin
  conn:= ODBC_find_connection('dBASE Files');
  if conn=0 then halt;
  if ODBC_open_cursor(conn, c_odbc, 'SELECT jmeno,datum_pr,cislo FROM ADRESY2') then halt;
  rec_cnt(c_odbc,pocet);  
  //info_box('PoΦet zßznam∙', int2str(pocet));

  for i := 0 to pocet-1 do begin
    odbc_jmeno := c_odbc[i].jmeno;
    odbc_date := c_odbc[i].datum_pr;
    odbc_cislo := c_odbc[i].cislo;

    rec := Insert(PomTab);
    PomTab[rec].jmeno := odbc_jmeno;
    PomTab[rec].datum := odbc_date;
    PomTab[rec].cislo := odbc_cislo;

  end;
  close_cursor(c_odbc);
end.

Viz

• ODBC_open_cursor
• ODBC_create_connection
• ODBC_direct_connection