- DivXTurk projesinde bir kullanıcı mail ile bir hata bildirdi... MSN Messenger ile temas kurup sorunun kaynağına geldiğimizde çok şaşırdım... Sorun şöyle...
- Kullanıcının Windows XP kurulu bilgisayarında Access veritabanını kullanan DivXTurk programı normal çalışırken, DotNet FrameWork 1.1 kurulduktan sonra ekranda sadece "Bilinmeyen Hata" yazan bir hata penceresi çıktığı belirtiliyor...
- Test için minik bir program hazıladım... Kendisine yolladım... Aşağıda sayacağım tüm veritabanı işlemleri gerçekleşirken, SQL ile dosya görüntüleme yapılmak istendiğinde sistem hata veriyor....
- Katalog oluşturma, Katalog içinde Tablo Oluşturma, Katalog Replication (bakım), Tablo silme, AdoTable ile tabloyu açmak, DataSource aracılığıyla DBGrid vs. ile görüntülemek işlemlerini birer butona koyup denemesini istedim... Normal yürütülebiliyor cevabını aldım...
- Sorun SQL işin içine girince ortaya çıkıyor...
- DotNet için MDAC 2.6 .. 2.8 hepsi kurularak denenmesi sağlandı, sonuç olumsuz...
- Uzun bir dosya olduğundan DialUp bağlı olduğumdan, şahsen FrameWork'u indirip kuramadım... Dolayısıyla şahsen deneme fırsatım olmadı. Sizlere sormak istediğim, bilgisayarında kurulu olan varsa ufak bir SQL uygulama gerçekleştirip, çalışıp çalışmadığını, çalışmama sebebini biliyorsanız bunu bildirirseniz sevinirim...
- Deneme uygulamasından bazı örnek kod parçaları...
- ConnectionString çok basit...
Kod: Tümünü seç
xBaglanti = 'Provider = Microsoft.Jet.OLEDB.4.0;'
+ 'Data Source = %s;'
+ 'Persist Security Info = False;'
+ 'Jet OLEDB:Database Password= %s';Kod: Tümünü seç
Var
Dosya : String;
begin
Dosya := ExtractFilePath(Application.Exename) + 'DivXTurk.mdb';
If ADOTable1.Active
then ADOTable1.Active := False;
If ADOConnection1.Connected
then AdoConnection1.Connected := False;
AdoConnection1.ConnectionString := Format( xBaglanti,[ Dosya, '' ] );
AdoConnection1.LoginPrompt := False;
AdoTable1.Connection := AdoConnection1;
AdoTable1.TableName := 'DivXTurk';
AdoTable1.Active := True;
DataSource1.DataSet := AdoTable1;
end;Kod: Tümünü seç
Const
Var
Dosya : String;
begin
Dosya := ExtractFilePath(Application.Exename) + 'DivXTurk.mdb';
If ADOTable1.Active
then ADOTable1.Active := False;
DataSource1.DataSet := AdoQuery1;
If ADOConnection1.Connected
then AdoConnection1.Connected := False;
AdoConnection1.ConnectionString := Format( xBaglanti,[ Dosya, '' ] );
AdoConnection1.LoginPrompt := False;
With AdoQuery1 do
begin
Active := False;
Connection := AdoConnection1;
SQL.Clear;
SQL.Add('Select * from DivXTurk');
SQL.Add('Order By M_Name' );
Active := True;
//ShowMessage(SQL.Text);
end;
end;
