Выполнить процесс, используя MyDAC - PullRequest
Новая
       8

Выполнить процесс, используя MyDAC

0 голосов
/ 06 июня 2011

У меня проблемы с выполнением простой процедуры на сервере MySQL с использованием моих компонентов dac в c ++ builder 2010.

Я нашел пример в delphi здесь /2369544/vozvraschaemoe-znachenie-hranimyh-funktsii-v-mydac, но мне нравится видеть пример в c ++строитель

Пожалуйста, мне нужна ваша помощь!Мне нужен простой пример выполнения хранимых процедур в C ++, также приветствуются ссылки на сборщик!

1 Ответ

1 голос
/ 06 июня 2011

Вот пример выполнения хранимых процедур с использованием MyDAC: 

void __fastcall TForm1::BitBtn1Click(TObject *Sender) {
  TMyConnection* con = new TMyConnection(this);
  con->Server = "servername";
  con->Port = 3306;
  con->Username = "username";
  con->Password = "password";
  con->LoginPrompt = False;
  con->Database = "databasename";

  // you should comment this code after the first execution
  TMyQuery* qr = new TMyQuery(this);
  qr->Connection = con;
  qr->SQL->Clear();
  qr->SQL->Add("CREATE PROCEDURE SumTwoInts(IN Num1 INT, IN Num2 INT, OUT Num3 INT)");
  qr->SQL->Add("BEGIN");
  qr->SQL->Add("SET Num3 = Num1 + Num2;");
  qr->SQL->Add("END");
  qr->Execute();

  TMyStoredProc* sp = new TMyStoredProc(this);
  sp->Connection = con;
  sp->StoredProcName = "SumTwoInts";
  sp->PrepareSQL();
  sp->ParamByName("Num1")->AsInteger = 2;
  sp->ParamByName("Num2")->AsInteger = 3;
  sp->Execute();
  ShowMessage(IntToStr(sp->ParamByName("Num3")->AsInteger));
}

Вы можете использовать компонент TMyQuery для выполнения хранимой процедуры следующим образом: 

void __fastcall TForm1::BitBtn1Click(TObject *Sender) {
TMyConnection* con = new TMyConnection(this);
con->Server = "servername";
con->Port = 3306;
con->Username = "username";
con->Password = "password";
con->LoginPrompt = False;
con->Database = "databasename";

TMyQuery* qr = new TMyQuery(this);
qr->Connection = con;
qr->SQL->Text = "CALL SumTwoInts(:Num1, :Num2, @Num3); SELECT CAST(@Num3 AS SIGNED) AS '@Num3'";
qr->ParamByName("Num1")->AsInteger = 2;
qr->ParamByName("Num2")->AsInteger = 3;
qr->Open();
ShowMessage(IntToStr(qr->Fields->Fields[0]->AsInteger));
}

Но мы рекомендуем использовать компонент TMyStoredProc для выполнения хранимых процедур.

...