--- Şifreli Veritabanına Bağlantı ---



Aslında şifreli veritabanına bağlanmak, normal veritabanına bağlanmakla aynıdır, sadece bir “password” fazlalığı var.

İlk once programın General _ Declarations bolumune (yani kod penceresinin en ustune)



Dim baglanti As New ADODB.Connection



ekliyoruz, cunku biraz sonra mesela bağlantıyı kurarken baglanti.open diyeceğiz. Basic ne dediğimizi anlayabilsin. Daha sonra From_Load kısmına bağlantıyı kurma kodunu yazacağız ki form acılır acılmaz veritabanına bağlanalım.. Boylece her an, veritabanını rahatsız edebileceğiz.



Private Sub Form_Load()

baglanti.Open "Driver=;Password='123'; DBQ=" & App.Path & "\veritabani.mdb"

End Sub



--- Veritabanına Kayıt Yapmak ---



Sadece iki satırla kayıt yapabiliyoruz…

Zaten veritabanımıza bağlantıyı kurmuştuk. Ve şimdi ilgili yere tıklandığında Text1 kutusunun iceriğini veritabanına kaydedelim.



Tablonun adı = TABLO

Text1 iceriğinin kaydedileceği sutun = KAYIT



yeni = "insert into TABLO(KAYIT) values('" & text1.Text & "')"

baglanti.execute (yeni)



insert into TABLO(KAYIT) dedik. Yani TABLO tablosunun KAYIT kısmına ekleyeceğiz. values dediğimiz yere KAYIT’ın karşılığını yazacağız.

Ozellikle o text1.text yazan kısım biraz karışık gorunuyor olabilir. Şoyle gostereyim.

"insert into TABLO(KAYIT) values('Ahmet')"

dediğimiz zaman, KAYIT bolumunun iceriği Ahmet olacaktır. biz text1 icine yazılan şeyi kaydetmek istediğimiz icin işi birazcık uzatıyoruz.



Sanırım burası biraz karıştı hemen acıklayayım. Mesela msgbox dedikten sonra cift tırnak acıp yazarız. Msgbox “bu bir uyarı mesajıdır” ve benzeri. Ama eğer msgbox (Text1.text) dersek text1 kutusunun iceriği mesaj olarak gorunecektir. Ayrıca msgbox(“Bugun ozel mesaj var. ” & text1.text) dersek hem bizim yazımız, hem de text1 kutusun iceriği mesaj olacaktır.

İnsert into komutunun cift tırnak işaretlerini, msgbox ın parantezleri gibi duşunebiliriz.



values(‘” & text1.text dediğimiz zaman text1 kutusunun iceriğini almış oluyoruz. & işaretini pasif kodla aktif kodu birleştirmek icin kullandık

values(‘” & text1.text & “’)” diyerek kapatıyoruz komutu…



Bir kutunun iceriğini kaydetmek bu şekilde hallediliyor ama dort beş tane olursa akşama kadar kod mu yazarım diye sorarsanız… Olay yine aynı, sadece tırnak işaretleri biraz fazla.



Tablonun adı = REHBER

Kayıt yapılacak bolumler = AD,SOYAD,TLF,MAIL



yeni = “insert into REHBER(AD,SOYAD,TLF,MAIL) values(‘” & ad.Text & “,” & soyad.text “,” & tlf.text & “,” mail.text “‘)”

baglanti.execute (yeni)



Bir de olayın, recordset kullanarak yapılanı var… kısaca değineyim.

Kodların en ustunde baglanti diye bir değişken tanımlamıştık.. onun altına bir de

Dim rec As New ADODB.Recordset

Ekleyerek recordset tanımlıyoruz.



rec.Open "select * from REHBER", gmbag, adOpenDynamic, adLockOptimistic

rec.AddNew

rec!AD = Text1.Text

rec!SOYAD = Text2.Text

rec!TLF= Text3.Text

rec!MAIL = Text4.Text

rec.Update

rec.Close



Sonraki makalemde veritabanında arama yapmaktan bahsedeceğim… Goruşmek uzere
Baksana59
__________________