Benim bilgisayarımda çalışan başka bilgisayarda çalışmıyor

[alguli]

Kod: Tümünü seç

       Q1.SQL.TEXT:='INSERT INTO sorgusonuclar (id,bayikod,resellerkod,aboneno,kurum,';
                Q1.SQL.Add
                ('faturano,adisoyadi,sonodeme,donem,tutar,gercektutar,');
                Q1.SQL.Add('tarih,durum,okundu,sonuncu,sorguno) VALUES (' +
                QuotedStr('') + ',');
                // Q1.SQL.Add(QuotedStr('')+ ','); //id
                Q1.SQL.Add(QuotedStr(QSorgularbayikod.AsString) + ', ');
                // bayikod
                Q1.SQL.Add(QuotedStr(QSorgularresellerkod.AsString) + ', ');
                // reseller
                Q1.SQL.Add // aboneno
                (QuotedStr(QSorgularaboneno.AsString +
                QSorgularaboneno1.AsString + QSorgularaboneno2.AsString +
                QSorgularaboneno3.AsString + QSorgularaboneno4.AsString +
                QSorgularaboneno5.AsString) + ',');
                Q1.SQL.Add(QuotedStr(QSorgularkurum.Value) + ', '); // kurum
                Q1.SQL.Add(QuotedStr(donenbilgi[3]) + ', '); // faturano
                Q1.SQL.Add(QuotedStr(donenbilgi[4] + ' ' + donenbilgi[5]) + ',');
                // adsoyad
                Q1.SQL.Add(QuotedStr(TarihCevir(donenbilgi[6])) + ', ');
                // son ödeme
                Q1.SQL.Add(QuotedStr(donenbilgi[7]) + ', '); // dönem
                tutar := donenbilgi[8];
                if Pos(',', tutar) <> 0 then
                begin
                tutar := Copy(tutar, 1, Pos(',', tutar) - 1) + '.' + Copy
                (tutar, Pos(',', tutar) + 1, length(tutar) - Pos(',', tutar));
                end;
                tutar1 := Round(StrToFloat(tutar));
                if tutar1 < StrToFloat(tutar) then
                tutar1 := tutar1 + 1;
                Q1.SQL.Add(bolgefloat(inttostr(tutar1)) + ', '); // tutar
                Q1.SQL.Add(bolgefloat(donenbilgi[8]) + ', '); // gercektutar
                Q1.SQL.Add(QuotedStr('') + ','); // Tarih
                Q1.SQL.Add('0 ,'); // Durum
                Q1.SQL.Add('0 ,'); // Okundu
                Q1.SQL.Add('0 ,'); // sonuncu
                Q1.SQL.Add(QuotedStr(QSorgularsorguno.AsString) + ')');
                // sorguno
                Q1.Execute;

Yukarıdaki kodlar benim bilgisayarımda problemsiz veri basarken başka bilgisayarda veri kaydı yapmıyor.
Veti tabanı MySQL ve bir internet sunucusu üzerinde.
Ben de çalışırken doğrudan sunucu üzerinde çalışıyorum.
Ne olur yardım edin.

[destiny24]

Keşke Aldığın Hatayı da Yazsaydın.

[alguli]

destiny24, ilginiz için teşekkür ederim. Aldığım herhangi bir hata ya da kodu mevcut olmadığı için öyle bir şey yazmam mümkün değildi. Fakat ben kendim çözdüm problemi.
Vermiş olduğum kodlar çalışmadan önce açılan web sayfasına göre döngüye giriyorum, döngü içerisinde yapıyorum kayıt işlemini. Browser'ın farklı versiyonlarına göre değişik kodlarla çalışan bir web sayfası ile karşı karşıya olduğum için diğer makinede döngüye girememişim. Döngü şartlarını arttırıp değiştirerek çözdüm problemi. Olur da karşılaşırsanız browserla çalışırken var sayılan browser'ın versiyonlarının farklı olabileceğini göz önünde bulundurarak çalıştırınız.
Tekrar teşekkür ederim. Allah razı olsun.