Sql Server ile Delphi Bağlantı Hatası

[ufb1453]

Merhaba,

hazırladığım programı başka bir bilgisayarda çalıştırdığımda "Veri Kaynağı adı Bulunamadı ve Varsayılan sürücü belirtilmemiş" hatası alıyorum,
benim yaptığım işlemler;

1) Programda Adoconnection Sağlayıcısı : Microsoft OLE DB Provider for ODBC Driver
2) Çalıştırılacak bilgisayarda SQL Server içine veri tabanı eklendi,
3) Yönetimsel Araçlar ODBC Veri Kaynakları ile kullanıcı DSN si belirlendi,

NOT: çalıştırılacak bilgisayarda mevcut bir sql server var onun üzerinden çalıştırılacak,

yardımcı olur musunuz?

Saygılarımla

[csunguray]

Programı son derlediğinizde ADOConnection bileşeninin Connected özelliğini True bırakmış olabilirsiniz. Bu durumda program çalışır çalışmaz Server'a bağlanmaya çalışacaktır. O anki ayarları bulamayınca da hata verecektir. Projenizde ADOConnection.Coennected özelliğini False yapıp projeyi yeniden derleyin.

[ufb1453]

denedim sonuç değişmedi, biraz daha açıklayıcı olmak açısından;
çalıştığım iş yerinde ssql server var biz bağlanırken servere şifreli bağlantı sağlıyoruz. sa / ***** gibi bundan dolayı bir sorun oluşur mu, başka yapılabilecek işlemler varmı,

saygılarımla

[csunguray]

ADOConnection.ConnectionString değeriniz nedir?

[ufb1453]

Kod: Tümünü seç

Provider=MSDASQL.1;Persist Security Info=False;Data Source=envanter;

[ufb1453]

ben sorunumu çözdüm Firedac ile bağlantı sağladım, sonrasında adoconnectionu firedactaki ayarlara göre uyarladım bağlantı sağladı, ancak program tutarsız çalışıyor, projeyi hazırladığım makinada oluşturduğum trigger çalışıyorken, diğer makinalarda çalışmıyor,
sql kodu;

Kod: Tümünü seç

create trigger [dbo].[garanti_sonu_aktar] 
on [dbo].[Fatura]

after insert
as 
declare @id int,
--@tarih nvarchar(10),
@i datetime
begin
select @i = dateadd(year,2,Fatura_Tarihi) from inserted
select @id = FaturaID  from inserted
insert into [dbo].[Garanti] values (@i,@id)
end

ayrıca ana açılış ekranında trigger sonucu olarak değerler gelmesi gerekirken gelmiyor,

Kod: Tümünü seç

SELECT TOP (100) PERCENT dbo.Fatura.Fatura_Tarihi AS [Ftr. Tarihi], dbo.Malzeme.Seri_No AS [S.No], dbo.Fatura.Fatura_No AS [Ftr.No], dbo.Marka.Marka, dbo.Model.Model, dbo.Firma.Firma, 
                  dbo.Garanti.Garanti_Sonu AS [Garanti Sonu]
FROM     dbo.Firma INNER JOIN
                  dbo.Malzeme ON dbo.Firma.FirmaID = dbo.Malzeme.FirmaID INNER JOIN
                  dbo.Fatura ON dbo.Malzeme.FaturaID = dbo.Fatura.FaturaID INNER JOIN
                  dbo.Model ON dbo.Malzeme.ModelID = dbo.Model.ModelID INNER JOIN
                  dbo.Marka ON dbo.Malzeme.MarkaID = dbo.Marka.MarkaID INNER JOIN
                  dbo.Garanti ON dbo.Garanti.FaturaID = dbo.Fatura.FaturaID
WHERE  (0 <=
                      (SELECT DATEDIFF(day, GETDATE(), dbo.Garanti.Garanti_Sonu) AS Expr1))
ORDER BY [Ftr. Tarihi]

delphi kodu;

Kod: Tümünü seç

procedure TForm3.FormActivate(Sender: TObject);
var
 RowCount,rc,i1,j2,K1,L2: Integer;
begin

  adoconnection1.Connected:=True;
  adoquery1.Active:=true;
  adoquery2.Active:=true;
  dbgrid1.Refresh;
  RowCount := TmyDBGrid(DBGrid1).VisibleRowCount;
  RC := TmyDBGrid(DBGrid2).VisibleRowCount;
  i1 := (RowCount);
  j2:= (RC);
  K1:=adoquery1.RecordCount;
  l2:=adoquery2.RecordCount;
  IF (i1<>k1) OR (j2<>L2) then
   begin
    adoquery1.Active:=false;
    adoquery1.Active:=true;
    adoquery2.Active:=false;
    adoquery2.Active:=true;
  end;
end;

sizce neden tutarsız çalışmaktadır.


NOT: eğer yanlış yere devam ediyorsam konu için dönüş yapar mısınız?

[csunguray]

Her soru için ayrı bir başlık açın. Bir başlıkta birden fazla (bağlantısız) soru sormayın.