Есть ли примеры работы с базой для консольной программы на pascal
Может естть готовые шаблоны?
В Lazarus на форму кинул компаненты и "в перед" а как быть без гуйным приложениям?
			
		Модератор: Модераторы
Var
  mysqlcon: TMySQL50Connection;
  SQLTrans: TSQLTransaction;
  SQLQuery1: TSQLQuery;
Begin
  mysqlco:=TMySQL50Connection.Create(NIL);
  SQLTrans:=TSQLTransaction.Create(NIL);
  SQLQuery1:=TSQLQuery.Create(NIL);
  mysqlcon.YjstName:='Имя хоста';
  mysqlcon.DatabaseName:='Имя базы данных';
  mysqlcon.UserName:='Логин пользователя';
  mysqlcon.Password:='Пароль пользователя';
  SQLTrans.Database:=mysqlcon;
  SQLQuery1.Database:=mysqlcon;
  SQLQuery1.SQL.Add('SELECT * FROM таблица');
  
  mysqlcon.Open;
  sqltrans.Active:=True;
  SQLQuery1.Open;
  //Дальше делаем что хотели делать с полученными данными
  ...
  //Поработали, всё закрыли и удалили
  sqlquery1.Close;
  sqltrans.Active:=False;
  mysqlcon.Close;
  sqlquery1.Free;
  sqltrans.Free;
  mysqlcon.Free;
End.


Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1