Thema: Delphi MySQL ohne Komponenten

Einzelnen Beitrag anzeigen

SMERK

Registriert seit: 5. Jan 2005
Ort: Krems II
31 Beiträge
 
Delphi 7 Enterprise
 
#211

Re: MySQL ohne Komponenten

  Alt 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;
  Mit Zitat antworten Zitat