Hallo Leute,
<br> <br>
bekomme das Update einer Tabelle mit Parametern nicht hin, Parameter mittels CreateParams + ParamsByName findet er nicht. <br>
Vielleicht kann mir jemand zeigen wie man ueblicherweise eine Parameterliste dem folgenden Codefragment beifuegen wuerde. <br>
<br> <br>
Gruss Tina.
<br> <br> <br>
sql_update = "update t1 " <br>
"set " <br>
// "f1 = '123411' " <br>
"f1 = :f1 " <br>
"where Index_p = 1 "; <br>
// "where Index_p = :OLD_Index_p "; <br>
<br>
try <br>
{ <br>
Screen->Cursor = crHourGlass; <br>
UpdateSQL_v1->ModifySQL->Clear(); <br>
UpdateSQL_v1->SetParams(ukModify); // brauch ich das? <br>
UpdateSQL_v1->ModifySQL->Add(sql_update); <br>
UpdateSQL_v1->ExecSQL(ukModify); <br>
Screen->Cursor = crDefault; <br>
} //try <br>
catch(...) <br>
{ <br>
Screen->Cursor = crDefault; <br>
MessageDlg("SQL-Anweisung fehlerhaft", mtWarning, <br>
TMsgDlgButtons() << mbOK,0); <br>
} //catch <br>
<br> <br>
bekomme das Update einer Tabelle mit Parametern nicht hin, Parameter mittels CreateParams + ParamsByName findet er nicht. <br>
Vielleicht kann mir jemand zeigen wie man ueblicherweise eine Parameterliste dem folgenden Codefragment beifuegen wuerde. <br>
<br> <br>
Gruss Tina.
<br> <br> <br>
sql_update = "update t1 " <br>
"set " <br>
// "f1 = '123411' " <br>
"f1 = :f1 " <br>
"where Index_p = 1 "; <br>
// "where Index_p = :OLD_Index_p "; <br>
<br>
try <br>
{ <br>
Screen->Cursor = crHourGlass; <br>
UpdateSQL_v1->ModifySQL->Clear(); <br>
UpdateSQL_v1->SetParams(ukModify); // brauch ich das? <br>
UpdateSQL_v1->ModifySQL->Add(sql_update); <br>
UpdateSQL_v1->ExecSQL(ukModify); <br>
Screen->Cursor = crDefault; <br>
} //try <br>
catch(...) <br>
{ <br>
Screen->Cursor = crDefault; <br>
MessageDlg("SQL-Anweisung fehlerhaft", mtWarning, <br>
TMsgDlgButtons() << mbOK,0); <br>
} //catch <br>