Mysql+Delphi 2010 Использую libmysql.dll + mysql.pas не могу инф сохранить в базу

[kGpROGER]

кто нибудь дайте работающий код для сохранения данных в базу
читаю из него так

procedure TForm2.Button3Click(Sender: TObject);
var
i:integer;
MyResult: Integer;
MYSQL_ROW: PMYSQL_ROW;
begin
i:=0;
MyResult := mysql_real_query(LibHandle, PAnsiChar(AnsiString(Edit5.Text)), Length(Edit5.Text));

mySQL_Res := mysql_store_result(LibHandle);

if mySQL_Res=nil
then
raise Exception.Create(UnicodeString(mysq l_error(LibHandle)));
try
repeat
MYSQL_ROW := mysql_fetch_row(mySQL_Res);
if MYSQL_ROW<>nil
then begin
StringGrid1.Cells[0, i] := UnicodeString(MYSQL_ROW^[0]);
StringGrid1.Cells[1, i] := UnicodeString(MYSQL_ROW^[1]);
i := i+1;
Edit6.Text := inttostr(i) + ',' + UnicodeString(MYSQL_ROW^[1]);
end;
until MYSQL_ROW=nil;
finally
mysql_free_result(mySQL_Res);
mySQL_Res := nil;
end;

end;

но сохранить он не пытается

Edit5.Text := 'SELECT * FROM tmp';

sql запрос отправляю а он никак mysql_real_query дает мне 1

[_SERGEYX_]

Нифига себе сколько сложностей чтобы выполнить SELECT...
А не приходила мысль просто установить MyDac и забыть обо всех проблемах и dll?

[kGpROGER]

он платный

[kGpROGER]

но если есть сылка на крекованный я бы посмотрел

[_SERGEYX_]

Windows тоже платный. А за ссылкой в Гугл.

[kGpROGER]

Неужели никто не встречался с стакой проблемой программеры помогите

[dosha]

скачай с офф сайта mysqla драйвер для ODBC и работай с mysql через ADO

[kGpROGER]

Разобрался
все дело в кодировке

Button4.Caption := inttostr(mysql_real_query(LibHandle , PAnsiChar(AnsiString('SET CHARSET utf8')), Length('SET CHARSET utf8')));
edit6.Text := inttostr( mysql_real_query(LibHandle, PAnsiChar(AnsiString('INSERT INTO `tmp` ( `id` , `name` ) VALUES ( '' '', '''+Edit7.Text+''')')), Length('INSERT INTO `tmp` ( `id` , `name` ) VALUES ( '' '', '''+Edit7.Text+''')')));
Memo1.Lines.Add(UnicodeString(mysql _error(LibHandle)));

Только вот до конца еще не добил всем спасибо Если будут вопрос зайду