Ja, das sind noch Überbleipsel aus dem gewachsenen Code. Ich hatte anfangs erstmal nur Versucht eine Verbindung zum
DB-Server zu bekommen, dort habe ich _DB benutzt:
Delphi-Quellcode:
procedure Connect(
var ConDes: PMYSQL;
const Host, User, PW,
DB:
string; Port:
Integer);
begin
if Assigned(ConDes)
then
begin
log('
Verbindungsdeskriptor initialisiert');
if Assigned(mysql_real_connect(ConDes, PChar(Host), PChar(User), PChar(PW),
PChar(
DB), PORT,
nil, 0))
then
begin
log('
Verbindung zum Datenbankserver hergestellt');
end
else
log(mysql_error(ConDes));
end
else
log('
Initialisierung fehlgeschlagen');
end;
Aufruf:
Connect(Descriptor, _HOST, _USER, _PW, _DB, _PORT);
Beim Anlegen der Datenbank habe ich dann DBNAME genommen:
Delphi-Quellcode:
procedure TForm1.btnCreateBDClick(Sender: TObject);
var
query : PChar;
ErrorCode : Integer;
begin
query := '
CREATE DATABASE' + '
' + DBNAME;
try
ErrorCode := mysql_real_query(ConDes,
query, length(
query));
if ErrorCode = 0
then
log('
Datenbank angelegt')
else
log(mysql_error(Descriptor));
except
log('
EXCEPTION Datenbank konnte nicht angelegt werden');
end;
end;
Und selbige Konstante dann weiter benutzt. Ist etwas blöd, stimmt.