Mysql connection.

Jeg har problemmer med at få min connection til Mysql, til at køre stabilt.

Jeg har en SQLconnection, SQLquery, DataProvider, ClientDataset.

Jeg kan godt connecte til databasen, og navigere rundt i den, men jeg ved insert eller edit af records, bliver disse ikke sendt til serveren.

Programmet skal køre en opdate at nogle tabeller, fra local paradox/Mysql til en MYsql på nettet.

LocalData.First;
  ClientDataSet1.Last;
  while not LocalData.Eof do begin
    if ClientDataSet1.Locate('Nummer',LocalData.FieldByname('Nummer').AsString,[loCaseInsensitive]) then begin

      ClientDataSet1.Edit;
      ClientDataSet1.FieldByName('Navn').AsString := LocalData.FieldByName('Navn').AsString;
      ClientDataSet1.FieldByName('Adresse').AsString := LocalData.FieldByName('Adresse').AsString;
      ClientDataSet1.FieldByName('Postnr').AsString := LocalData.FieldByName('Postnummer').AsString;
      ClientDataSet1.FieldByName('City').AsString := LocalData.FieldByName('City').AsString;
      ClientDataSet1.FieldByName('Telefon').AsString := LocalData.FieldByName('HjTlf').AsString;
      ClientDataSet1.FieldByName('Mobil').AsString := LocalData.FieldByName('MoTlf').AsString;
      ClientDataSet1.FieldByName('Mail').AsString := LocalData.FieldByName('Mail').AsString;
      try
        ClientDataSet1.Post;
        if (ClientDataSet1.ChangeCount > 0) then
          ClientDataSet1.ApplyUpdates(-1);
              except on E: exception do
        ClientDataSet1.Cancel;
      end;
    end
    else begin
      ClientDataSet1.Last;
      ClientDataSet1.Insert;
      ClientDataSet1.FieldByName('Nummer').AsInteger := LocalData.FieldByName('Nummer').AsInteger;
      ClientDataSet1.FieldByName('Navn').AsString := LocalData.FieldByName('Navn').AsString;
      ClientDataSet1.FieldByName('Adresse').AsString := LocalData.FieldByName('Adresse').AsString;
      ClientDataSet1.FieldByName('Postnr').AsString := LocalData.FieldByName('Postnummer').AsString;
      ClientDataSet1.FieldByName('City').AsString := LocalData.FieldByName('City').AsString;
      ClientDataSet1.FieldByName('Telefon').AsString := LocalData.FieldByName('HjTlf').AsString;
      ClientDataSet1.FieldByName('Mobil').AsString := LocalData.FieldByName('MoTlf').AsString;
      ClientDataSet1.FieldByName('Mail').AsString := LocalData.FieldByName('Mail').AsString;
      ClientDataSet1.FieldByName('Login').AsInteger := LocalData.FieldByName('Login').AsInteger;
      ClientDataSet1.FieldByName('Password').AsInteger := LocalData.FieldByName('Pass').AsInteger;
      ClientDataSet1.FieldByName('Question').AsInteger := 0;
      ClientDataSet1.FieldByName('Admin').AsInteger := 0;
      try

        ClientDataSet1.Post;
        if (ClientDataSet1.ChangeCount > 0) then
          ClientDataSet1.ApplyUpdates(-1);
        except on E: exception do begin
        ClientDataSet1.Cancel;
        ShowMessage('Insert Error');
        end;
      end;
    end;
      LocalData.Next;
  end;