Witam
Mam pytanie a właściwie prośbę o wytłumaczenie jak albo jakiegoś linka który "mówi" jak
w kodzie Delphi o ile się da zrobić następujące operacje na Serwerze MySQL:
- Zmienić hasło admina;
- Założyć bazę z hasłem;
o połączenie i inne operacje nie pytam bo do tego są przykłady,
ale nad tym już trochę kombinuje i normalnie mur.
Delphi 2007 bez dodatków.
Zakładam że jak uruchamiam DBE Administratora i baza jest to znaczy ze wszystko ok ale to moje domysły.
W tej chwili mam taki kod książkowo/ internetowy:
Pozdrawiam
Delphi
unit Unit1;
interface
uses
// UMyDBDelfin,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WideStrings, FMTBcd, Menus, SqlExpr, DB, DBClient, SimpleDS, ComCtrls,
DBTables;
const
// cDirMySQL = 'C:\Documents and Settings\All Users\Dane aplikacji\MySQL\MySQL Server 5.1\data';
cDirMySQL = 'F:\Programy\WebServ\mysql\data';
type
TForm1 = class(TForm)
MySQL: TSQLConnection;
SQLDataSet: TSQLDataSet;
SQLQuery1: TSQLQuery;
MainMenu1: TMainMenu;
Baza1: TMenuItem;
BazaCreate1: TMenuItem;
BazaDestroy1: TMenuItem;
SimpleDataSet: TSimpleDataSet;
N1: TMenuItem;
Disconnet: TMenuItem;
Connect: TMenuItem;
StatusBar1: TStatusBar;
Session: TSession;
procedure BazaCreate1Click(Sender: TObject);
procedure ConnectClick(Sender: TObject);
procedure DisconnetClick(Sender: TObject);
procedure MySQLLogin(Database: TSQLConnection; LoginParams: TWideStrings);
procedure MySQLAfterConnect(Sender: TObject);
procedure MySQLAfterDisconnect(Sender: TObject);
procedure BazaDestroy1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BazaCreate1Click(Sender: TObject);
begin
// SQLConnection.Name:= 'MySQLConnection';
{
SQLConnection.GetDriverFunc:= 'getSQLDriverMYSQL';
// SQLConnection.LibraryName:= 'dbxmys.dll';
SQLConnection.LibraryName:= 'libmySQL.dll';
SQLConnection.VendorLib:= 'libmySQL.dll';
}
// SQLDataSet.SQLConnection:= SQLConnection;
Session.AutoSessionName:= True;
if not DirectoryExists( cDirMySQL + '\Delfin' ) then
begin
CreateDir( cDirMySQL + '\Delfin' );
Session.AddStandardAlias( 'Delfin', cDirMySQL + '\Delfin', '');
end;
end;
procedure TForm1.BazaDestroy1Click(Sender: TObject);
begin //
end;
procedure TForm1.ConnectClick(Sender: TObject);
begin
MySQL.DriverName:= 'MySQL';
MySQL.LoginPrompt:= False; // nie pojawia sie okienko z zapytaniem o hasło
MySQL.Connected := True;
end;
procedure TForm1.DisconnetClick(Sender: TObject);
begin
MySQL.Connected := False;
end;
procedure TForm1.MySQLAfterConnect(Sender: TObject);
begin
StatusBar1.Panels[0].Text:= 'Connect';
end;
procedure TForm1.MySQLAfterDisconnect(Sender: TObject);
begin
StatusBar1.Panels[0].Text:= 'DisConnect';
end;
procedure TForm1.MySQLLogin(Database: TSQLConnection;
LoginParams: TWideStrings);
begin
LoginParams.Values['User_Name']:= 'root';
LoginParams.Values['Password']:= '';
LoginParams.Values['HostName']:= '127.0.0.1';
LoginParams.Values['Database']:= 'Delfin';
end;
end.