Hi,
ich habe dieses
MySQL in Delphi tutorial aus dem Forum.
Ich hab aber schon anfangs Schwierigkeiten.
Delphi-Quellcode:
const
HOST = '
localhost';
PORT = 3306;
USER = '
root';
PW = '
1234';
SEP = '
,';
const
DBNAME = '
AdressDB';
implementation
{$R *.dfm}
function Connect(Descriptor: PMYSQL;
const Host, User, PW,
DB:
string;
Port:
Integer): PMYSQL;
begin
result := mysql_real_connect(Descriptor, PChar(Host), PChar(User),
PChar(PW),
PChar(
DB), PORT,
nil, 0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Descriptor := mysql_init(
nil);
Descriptor := Connect(Descriptor, HOST, USER, PW, '
', PORT);
end;
procedure TForm1.Button1Click(Sender: TObject);
var query:PChar;
begin
query := '
CREATE DATABASE' + '
' + DBNAME;
if mysql_real_query(Descriptor, PChar(
query), length(
query)) = 0
then
showmessage('
alles klar');
end;
Das klappt nicht... der
mysql server ist normal installiert worden und ich denke ich hab alles so gemacht wie es sein soll.
oben bei uses binde ich noch
mysql ein wie es in dem tut stand.. falls jmd davon ahnung hat kann der mich vielleicht in icq adden?=
das is der letzte teil meiner facharbeit das wäre nett meine nummer 172710628 oder sonst hier helfen? danke
[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]