Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program test;
- uses mysql50, SysUtils;
- var
- db : PMYSQL;
- res : PMYSQL_RES;
- fields : PMYSQL_FIELD;
- idx, cnt : integer;
- procedure ExitNicely(err : integer);
- begin
- WriteLn(mysql_error(db));
- mysql_close(db);
- Halt(err);
- end;
- begin
- db := mysql_init(nil);
- mysql_real_connect(db, nil, ParamStr(1), nil, 'test', 0, nil, 0);
- if mysql_errno(db) <> 0
- then ExitNicely(1);
- mysql_query(db, 'DROP TABLE people');
- mysql_query(db, 'CREATE TABLE people (id serial, name varchar(20))');
- mysql_query(db, 'INSERT INTO people (name) VALUES (''John''), (''Jef'')');
- if mysql_query(db, 'SELECT id, name FROM people') <> 0
- then ExitNicely(2);
- res := mysql_store_result(db);
- cnt := mysql_field_count(db);
- fields := mysql_fetch_fields(res);
- WriteLn('Field count = ' + IntToStr(cnt));
- for idx := 0 to (cnt-1) do
- WriteLn('Name="' + fields[idx].name + '"');
- mysql_close(db);
- end.
Add Comment
Please, Sign In to add comment