Registriert seit: 5. Jan 2005
Ort: Krems II
31 Beiträge
Delphi 7 Enterprise
|
Re: MySQL ohne Komponenten
28. Jan 2007, 21:20
Delphi-Quellcode:
begin
var1 := ' test1';
var2 := ' test2';
host := ' server';
user := ' root';
pass := ' *****';
db := ' db' ;
_myCon := mysql_init( nil);
if _myCon = nil then
begin
ShowMessage(' Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
Exit;
end;
if mysql_real_connect(_myCon, host, user, pass, db, 3306, nil, 0) = nil then
begin
ShowMessage(' Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(_myCon));
Exit;
end;
query := ' INSERT INTO tabelle (NAME, TEXT) VALUES ('+PChar(QuotedStr(var1))+' ,'+PChar(QuotedStr(var1))+' )';
mysql_real_query(_myCon, query , Length( query));
mysql_close(_myCon);
end;
|
|
Zitat
|