VISUALBASIC FOR AUTOCAD'DE VERİTABANINA ERİŞİM
Burada veritabanından kast ettiğimiz Microsoft Access’le yaratılmış bir veritabanıdır yani uzantısı .mdb olan bir dosyadır.
Dim CONN1 As New ADODB.Connection
Yukarıdaki satırda veritabanına bağlantı için conn1 isimli bir değişken tanımlanmıştır. Bu değişken New ADODB.Connection olmalıdır
CONN1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "\\D:\ORNEKVERITABANI.MDB" & ";"
Yukarıdaki satırlar ORNEKVERITABANI.MDB isimli dosyanın üzerinde işlem yapılma üzere açılmasını sağlar.
Dim RST1 As New ADODB.Recordset
Yukarıdaki satır RST1 isimli bir değişkeni kayıtseti olarak tanımlar. Bir kayıtseti (recordset) veritabanı içindeki bütün alanları içinde barındıran bir set olarak düşünülebilir.
RST1.Open "SELECT * FROM KAYITLAR ", CONN1, adOpenKeyset, adLockReadOnly
Yukarıdaki satır ise tablolarından biri KAYITLAR olan ORNEKVERITABANI.MDB dosyasına erişir.
Bundan sonra yapılacak işlemlerde veritabanı içindeki alanlar doğrudan ya da başka değişkenlere aktarmak suretiyle kullanılabilirler.
Dim CONN1 As New ADODB.Connection
Yukarıdaki satırda veritabanına bağlantı için conn1 isimli bir değişken tanımlanmıştır. Bu değişken New ADODB.Connection olmalıdır
CONN1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "\\D:\ORNEKVERITABANI.MDB" & ";"
Yukarıdaki satırlar ORNEKVERITABANI.MDB isimli dosyanın üzerinde işlem yapılma üzere açılmasını sağlar.
Dim RST1 As New ADODB.Recordset
Yukarıdaki satır RST1 isimli bir değişkeni kayıtseti olarak tanımlar. Bir kayıtseti (recordset) veritabanı içindeki bütün alanları içinde barındıran bir set olarak düşünülebilir.
RST1.Open "SELECT * FROM KAYITLAR ", CONN1, adOpenKeyset, adLockReadOnly
Yukarıdaki satır ise tablolarından biri KAYITLAR olan ORNEKVERITABANI.MDB dosyasına erişir.
Bundan sonra yapılacak işlemlerde veritabanı içindeki alanlar doğrudan ya da başka değişkenlere aktarmak suretiyle kullanılabilirler.
Yorumlar
Yorum Gönder