Error creating cursor handle ?

måske fordi du skal kalde close før du ændrer i sql

Desværre ikke har lige prøvet følgende
QueryAlarm.DisableControls;
    QueryAlarm.Close;
    QueryAlarm.SQL.Text := \'UPDATE AlDB SET AlKvit = \'\'MS\'\'\'+
                          \'WHERE AlarmNr = \'+ CurrentID;
    QueryAlarm.Open;
    QueryAlarm.EnableControls;
    QueryAlarm.Refresh;
    DBGridAlarm.Refresh;

Men med samme resultat -> får jeg fejlmedelelsen Error creating cursor handle på linien QueryAlarm.Open

Fordi du ikke laser en SELECT så får du ikke en CursorHandle tilbage, så du skal skrive :

QueryAlarm.ExecSQL i stedet for Open, Open bruge KUN med SELECT eller tilsvarende der også retunere en CursorHandle

/Martin

laser = laver

Ja men hvordan får jeg så open (Åbnet igen ??)

Du bruger evt. en anden Query til dit UpdateStatement, eller du husker det gamle, laver din update og sætter det gamle igen og Open

/Martin

Prøver lidt forskelligt

    CurrentID := QueryAlarm.FieldByName(\'AlarmNr\').AsString;
    Label9.Caption := CurrentID;
    QueryAlarm.DisableControls;
    QueryAlarm.Close;
    QueryAlarm.SQL.Text := \'UPDATE AlDB SET   
                            AlTekst = \'\'MS\'\'\';
    QueryAlarm.Prepared := True;
    QueryAlarm.ExecSQL;
    SetFilterAlarm;
    QueryAlarm.Open;
    QueryAlarm.EnableControls;
    QueryAlarm.Locate(\'AlarmNr\', CurrentID, []);

SetFilterAlarm indeholder en ORDRE BY, hvorefter jeg igen kan bruge en open, men der kommer ikke til at stå MS i feltet AlKvit, det forbliver tomt ??

Hvordan husker jeg det gamle query ??

VAR
  aOldSQL : String;

procedure UpdateAlarmQuery;
begin
  QueryAlarm.Close;
  aOldSQL := QueryAlarm.SQL.Text;
  QueryAlarm.SQL.Text := \'UPDATE AlDB SET   
                            AlTekst = \'\'MS\'\'\';
  QueryAlarm.ExecSQL;
  QueryAlarm.SQL.Text := aOldSQL;
  QueryAlarm.Open;
end;


din kode :


    QueryAlarm.DisableControls;
    QueryAlarm.Close;
    //QueryAlarm.SQL.Text := \'UPDATE AlDB SET   
    //                        AlTekst = \'\'MS\'\'\';
    //QueryAlarm.Prepared := True;
    //QueryAlarm.ExecSQL;
    UpdateAlarmQuery;
    SetFilterAlarm;
    QueryAlarm.Open;
    QueryAlarm.EnableControls;




Det er muligt du skal Commit\'e dine updates, hvilken SQL server bruger du ?

/Martin

Jeg bruger indtil videre en standard Paradox tabel, nu har jeg følgende kode:

    CurrentID := QueryAlarm.FieldByName(\'AlarmNr\').AsString;
    Label9.Caption := CurrentID;
    QueryAlarm.DisableControls;
    QueryAlarm.Close;
    OldSQLStr := QueryAlarm.SQL.Text;
    QueryAlarm.SQL.Text := \'UPDATE AlDB SET AlKvit = \'\'MS\'\'\';
    QueryAlarm.Prepared := True;
    QueryAlarm.ExecSQL;
    QueryAlarm.SQL.Text := OldSQLStr;
    QueryAlarm.Open;
    QueryAlarm.EnableControls;
    QueryAlarm.Locate(\'AlarmNr\', CurrentID, []);
    DBGridAlarm.Refresh;

Koden kører uden fejl fra BDE-Engine men feltet bliver aldrig opdateret ??

Hej Morten, send lige koden, så kigger jeg på det

/Martin

cc email :

Det burde du få ved at \"slippe dit select\", altså close den query du bruger til det, og så vente med at åbne til du har updatet, har du checket affectedrows efter din update, den retunerer sikkert 0, paradox låser ved select med \"order by\" og nogle andre. du kan evt. skifte til interbase, det er en rigtig SQL server og er lidt bedre til at styre låsning, du kan muligvis også lave et \"view\" i stedet for select jeg har ikke lige prøvet at bruge sådan et på paradox, men det kan man ihvert fald på IB view låser vist ikke dine data, da det indikerer at du kun kigger og derfor er \"ligeglad\" med updates.

/Martin

Kan TUpdateSQL komponenten bruges til at låse op og i givet fald hvordan ?