Ребят,пользуюсь бд MySQL v. 5.5.25, которая идёт в пакете Denwer для web-разработчиков.Требуется в уже созданную БД экспортировать несколько переменных.Вот код:
| Код |
void __fastcall TForm3::Button1Click(TObject *Sender)
{
zF = -1; int rez=0.00;
Con = mysql_init((MYSQL*)NULL);
Con = mysql_real_connect(Con,"localhost","admin","","",0,NULL,0);
if(Con) {
query="CREATE DATABASE IF NOT EXISTS results";
mysql_real_query(Con,query.c_str(),query.Length()) ;
mysql_select_db(Con,"results");
query="CREATE TABLE IF NOT EXISTS result_table"
" (name TEXT,school_number INT,city TEXT,result INT)" ;
mysql_real_query(Con,query.c_str(),query.Length()) ;
query= "DELETE FROM result_table WHERE name LIKE '%"+
Edit1->Text+"%' AND city LIKE '%"+Edit2->Text+"%'";
mysql_real_query(Con,query.c_str(),query.Length()) ;
if (Button2->Tag) rez= (Button1->Tag/Button2->Tag)*100.00 ;
query= "INSERT INTO result_table (name,school_number,city,result) VALUES ('"
""+Edit1->Text+"','"+Edit3->Text+"','"+Edit2->Text+"',"+rez+")" ;
mysql_real_query(Con,query.c_str(),query.Length()) ;
zF = mysql_errno(Con);
Label3->Caption = "SQL: "+IntToStr(zF)+" Rez: "+FloatToStr(rez);
Form3->Close();
}
}
|
Ошибки никакой не выдаёт,но и не добавляет.Помогите пожалуйста.
 |