Modem değişiklği

[brs]

Merhaba, Dün çalışam kodlarım bugün çalışmıyor nedenini anlayamadım, dün modememi değiştirdim bugün iste kodlar çalışmıyor...

Kod: Tümünü seç

procedure TForm6.KayitClick(Sender: TObject);
begin
  With Form1.FDConnection do
  begin
    Connected := False;
    LoginPrompt := False;
    Params.Clear;
    Params.Values['DriverID'] := 'MySQL';
    Params.Values['Server'] := 'xx.xx.xx.xx';
    Params.Values['Port'] := '3306';
    Params.Values['User_Name'] := 'xxxxx';
    Params.Values['Password'] := 'yyyyz';
    Params.Values['Database'] := 'zzzzz';
    Params.Values['CharacterSet'] := 'utf8';
    Connected := True;
    begin
      with Form1.FDQueryUser do
      begin
        Form1.FDConnection.Connected := False;
        Close;
        SQL.Clear;
        SQL.Add('Insert Into User (KULLANICI)');
        SQL.Add(' Values (:KADI)');
        ParamByName('KADI').AsString := Edit1.Text;
        ExecSQL;
        Application.MessageBox
          ('Kayıt İşlemi Başarıyla Tamamlandı, Lütfen Yeniden Giriş Yapınız!',
          'Uyarı!', 0);
      end;
    end;
  end;
end;

[G.Arkas]

Cevabı basit. Eski modem de port yönlendirme yaptıysanız bu modemde de yapmanız gerekir. Yapmadığınız taktirde bağlantı hatası alırsınız.

[brs]

Cevabı basit. Eski modem de port yönlendirme yaptıysanız bu modemde de yapmanız gerekir. Yapmadığınız taktirde bağlantı hatası alırsınız.

Eski modemle ilgili bir değişilk yaptığımı hatırlamıyorum neden bahsediyor sunuz acaba ne gibi değişklik...

[PROGRAMADOR]

sql dll kütüphanesi için driverlink componenti ekleyip yolu belirtmelisiniz. kendi makinenizde test ediyorsanız bence modemden değildir.

FB için örnekleyeyim, siz Sql'e uyarlayın.

Kod: Tümünü seç

   if FileExists(App_path+'\MYDB.FDB') then begin //db dosyası varsa
          with FDPhysFBDriverLink1 do begin
            Release;
            VendorLib:=App_path+'\fbclient.dll';
            DriverID:='FB';
          end;
          with FDConnection1 do begin
            Params.Clear;
            Params.Add('DriverID=FB');
            Params.Add('Database='+App_path+'\MYDB.FDB');
            Params.Add('Protocol=Local');
            Params.Add('User_Name=sysdba');
            Params.Add('Password=masterkey');
            Params.Add('CharacterSet=UTF8');
            Params.Add('ExtendedMetadata=True');
            //Params.Add('CreateDatabase=Yes');
            Connected:=True;
          end;

          With FDQuery1 do begin
            Active     := False;
            Connection := FDConnection1;
            SQL.Text:='SELECT * FROM TESTTABLE;';
            open;
          end;


   end else begin   //yoksa
          with FDPhysFBDriverLink1 do begin
            Release;
            VendorLib:=App_path+'\fbclient.dll';
            DriverID:='FB';
          end;
          with FDConnection1 do begin
            Params.Clear;
            Params.Add('DriverID=FB');
            Params.Add('Database='+App_path+'\MYDB.FDB');
            Params.Add('Protocol=Local');
            Params.Add('User_Name=sysdba');
            Params.Add('Password=masterkey');
            Params.Add('CharacterSet=UTF8');
            Params.Add('ExtendedMetadata=True');
            Params.Add('CreateDatabase=Yes');
            Connected:=True;
          end;
       
          //tabloları oluştur
          With FDQuery1 do begin
            Active     := False;
            Connection := FDConnection1;
            SQL.Clear;
            SQL.Add( 'CREATE TABLE TESTTABLE ( ' );
            SQL.Add( 'ID INT NOT NULL PRIMARY KEY' );
            SQL.Add( ', ENCCC    VARCHAR(1500) ' );
            SQL.Add( ' );' );
            ExecSQL;


            SQL.text:=('CREATE GENERATOR GEN_TESTTABLE_ID;');
            ExecSQL;
            SQL.text:=('SET GENERATOR GEN_TESTTABLE_ID TO 0;');
            ExecSQL;
            SQL.text:=('CREATE TRIGGER TR_TESTTABLE FOR TESTTABLE ACTIVE BEFORE INSERT POSITION 0 AS '+
                              'BEGIN if (NEW.ID is NULL) then NEW.ID = GEN_ID(GEN_TESTTABLE_ID, 1);END;');
            ExecSQL;

            SQL.Text:=('SELECT * FROM TESTTABLE;');
            open;
          end;
   end;

[brs]

Teşekkürler

[warder]

FDQueryUser.Connection := FDConnection;

[brs]

FDQueryUser.Connection := FDConnection;

Teşekkür ederim sorunu çözmüştüm, Modemi değiştirince kafa gitti


Bilen varmı acaba bir çok kez forumda aradım ama bulamadım konuları nereden çözüldü diye yapabiliyoruz...

[warder]

Sorunu çözdüğünüz anlaşılıyordu da... nasıl çözdüğünüz anlaşılmıyordu.