Есть ли примеры работы с базой для консольной программы на 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.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 16