ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
25/11/2008 19:04
Konu Sahibi
chopper07
Yorumlar
9
Okunma
6337
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy

mcmaho

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
198
09/12/2011
34
Muğla
Ofis 2003
13/11/2017,23:09
hocam, data nesnesi kullandıgımız şifreli veritabanına nasıl bağlanabiliriz.


<<< 10-HAGİ-10 >>>
Cevapla

ask200075

Gümüş Üye
Kullanici Avatari
Gümüş Üye
106
11/02/2009
12
Ankara
Ofis XP
03/11/2017,11:25
(25/11/2008, 19:04)chopper07 Adlı Kullanıcıdan Alıntı: burada şifresi "123456" olan "Password" adındaki Access veri tabanımıza bağlanıyoruz.

Kod:
1
2
3
4
5
6
7
8
Option Explicit 
Dim cn As New ADODB.Connection 
Private Sub Form_Load( ) 
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider" 
cn.ConnectionString = "Data Source=" & App.path & "\Password.mdb" 
cn.Properties("Jet OLEDBatabase Password" ) = "123456" 
cn.Open 
End Sub

Sayın Hocam sizlerin yardımı ile vb6 da ufak bir program hazırlamaya çalışıyorum.
vb6 da hazırlamaya çalıştığım Programda Veritabanı olarak Access 2003 (Mdb) Kullanacağım ve bu veri tabanı " C" de Oktay Klasörünün içinde Veribanı.Mdb olarak bağlanacak çok araştırdım fakat bir türlü bu konuda doyurucu bilgiye ulaşamadım ve bir türlü yapamadım. Ek'te gönderdiğim proje ye bir göz atar ve bilgi verirseniz sevinirim.
Değerli Hocam bir de özelden size değilde Vb6 bölümünde Konu olarak açmak isterdim ama bir türlü konu açma sekmesini (bölümünü) bulamadım.Hürmet ve Saygılarımla.Oktay


Ek Dosyalar
.zip   VB6.zip (Dosya Boyutu: 22,84 KB / İndirme Sayısı: 2)
Cevapla

C*e*l*o*y*c*e

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
3.020
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
VB 6 Yok bende ancak vb Net te şu şekilde kendinize uyarlayın 

conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Desktop\XXXX.mdb; Jet OLEDB: Database Password ='123456';")


Cevapla

ask200075

Gümüş Üye
Kullanici Avatari
Gümüş Üye
106
11/02/2009
12
Ankara
Ofis XP
03/11/2017,11:25
(22/05/2016, 15:35)C*e*l*o*y*c*e Adlı Kullanıcıdan Alıntı: VB 6 Yok bende ancak vb Net te şu şekilde kendinize uyarlayın 

conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Desktop\XXXX.mdb; Jet OLEDB: Database Password ='123456';")

Option Explicit
Dim cn As New ADODB.Connection
Private Sub Form_Load()
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Oktay\Veritabanı.mdb; Jet OLEDB: Database Password ='p1a9r7k4er';")
End Sub

denedim olmadı.
Private Sub Form_Load()
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Oktay\Veritabanı.mdb; Jet OLEDB: Database Password ='p1a9r7k4er';") 
End Sub

denedim olmadı.
Private Sub Form_Load()

conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Oktay\Veritabanı.mdb; Jet OLEDB: Database Password ='p1a9r7k4er';") 

denedim gene olmadı hocam 
Compile Eror : Syntax eror hatası aldım.

genede ilgilendiniz ve bilgi sundunuz için teşekkür ederim.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.