Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
FreePascal / Lazarus
|
Re: MySQL ohne Komponenten
31. Jul 2006, 15:03
ich habe jetzt ein insert befehl hinzugefügt, doch sie bleibt immer noch leer:
Delphi-Quellcode:
procedure MakeTables(_myCon: PMySQL);
var
query: PChar;
begin
mysql_select_db(_myCon, ' APITest'); //zu Datenbank "APITest" wechseln
query:=' CREATE TABLE posts(id int, author int, date datetime, entry text)';
mysql_real_query(_myCon, ' CREATE TABLE posts(id int, author int, date datetime, entry text)', Length( query));
query:=' CREATE TABLE users(id int, name varchar(50), pass varchar(50))';
mysql_real_query(_myCon, ' CREATE TABLE users(id int, name varchar(50), pass varchar(50))', Length( query));
end;
.....
query := ' CREATE DATABASE APITest';
mysql_real_query(_myCon, query, Length( query));
MakeTables(_myCon);
query := ' SELECT * FROM posts ORDER BY id';
mysql_real_query(_myCon, query, Length( query));
// ich bin sicher das muss hier hin doch die db bleibt immer noch leer warum ?
query:=' INSERT INTO posts (id, author, date, entry) VALUES (001, Michael Springwald, 10.10.2006, Dies ist ein test';
mysql_real_query(_myCon, query, Length( query));
_myRes := mysql_store_result(_myCon); //alle Datensätze vom Server anfordern
if _myRes = nil then
begin
ShowMessage(' Es konnten keine Datensätze zurückgebenen werden. Ursache: ' + mysql_error(_myCon));
Exit;
end;
SetLength(Posts, mysql_num_rows(_myRes)); //Posts-Array-Größe auf Anzahl der Datensätze setzen
ShowMessage(IntToStr(High(Posts)));
Michael Springwald MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
|
|
Zitat
|