VPF::экспорт данных в БД - Форум программистов

Rangosik

Дата 5.6.2013, 12:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 21.5.2013

Репутация: нет
Всего: нет

Ребят,пользуюсь бд 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();
    }
}

Ошибки никакой не выдаёт,но и не добавляет.Помогите пожалуйста.
smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Базы данных \| Следующая тема »