access ve şifre

Delphi .net ve .net ile ilgili konuları buraya yazabilirsiniz.
Cevapla
Ahmed Sabri Biruni
Üye
Mesajlar: 21
Kayıt: 03 Oca 2009 01:15

access ve şifre

Mesaj gönderen Ahmed Sabri Biruni »

access veritabanı dosyamı şifrelemek istiyorum. şifrelemeyi yaptım.
şifreledikten sonra bağlantıyı gerçekleştirmedim forumda bir çok konu var ama içinden çıkamadım yardım eder msiniz?
teşekkürler

şifre:1 veritabanı:vt1.mdb seçilerek Aşağıdaki kodu çalıştıramadım:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected:=false;
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Password=1;Persist Security Info=True;Extended Properties="DSN=MS Access Veritabanı;DBQ=C:\Documents and Settings\ZORO\Belgelerim\vt1.mdb;DefaultDir=C:\Documents and Settings\ZORO\Belgelerim;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin";
ADOConnection1.Connected:=true;

end;
hata mesajları aşağıdaki gibidir.
[Error] Unit1.pas(36): Unterminated string
[Error] Unit1.pas(37): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Re: access ve şifre

Mesaj gönderen aslangeri »

s.a.
Unit1 de 36.satıra git (hatanın üzerine tıklarsan kendisi gider)
o satırdaki stringi sonlandır. diğer iki hatada ordatan kalkacaktır.
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Ahmed Sabri Biruni
Üye
Mesajlar: 21
Kayıt: 03 Oca 2009 01:15

Re: access ve şifre

Mesaj gönderen Ahmed Sabri Biruni »

a.s.
cevap için çok teşekkür ederim

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected:=false;
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Password=1;Persist Security Info=True;Extended Properties="DSN=MS Access Veritabanı;DBQ=C:\metraj 10\vt1.mdb;DefaultDir=C:\metraj 10;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"';
ADOConnection1.Connected:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Connection:=ADOConnection1;
ADOTable1.TableName:='urun';
ADOTable1.Active:=true;
end;
end.
diyerek bağlandım teşekkür ama bayaaı uğraştırıcı bi şeye benziyor... dönüştürme hatası inş. engel olmaz
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3077
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: access ve şifre

Mesaj gönderen sabanakman »

Eğer soruya JET bağlantısı çözümü arayan olursa, JET üzerinden C:\metraj 10\vt1.mdb dosyasına 1 şifresi ile bağlanabilmek için aşağıdaki kod da iş görecektir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected:=false;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\metraj 10\vt1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=1';
ADOConnection1.Connected:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Connection:=ADOConnection1;
ADOTable1.TableName:='urun';
ADOTable1.Active:=true;
end;
end.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
Ahmed Sabri Biruni
Üye
Mesajlar: 21
Kayıt: 03 Oca 2009 01:15

Re: access ve şifre

Mesaj gönderen Ahmed Sabri Biruni »

yine çok teşekkür ederim. .. jet bağlantı da süper oldu

yani kısacası sabanakaman, aslangeri ve diğer değerli arkadaşlar süpersiniz ....
Cevapla