Sub Ogr_Kayit Set cnn = New ADODB. Connection ' Connection nesnesi oluşturuyoruz yani bağlantı Set rst = New ADODB. Recordset ' Recordset Nesnesi oluşturuyoz yani kayıt seti cnn. Open "Driver= ; DBQ=" & App. Path & "C:\Documents and Settings\alluser\Desktop\db. mdb" ' cnn. open ile bağlantımızı açıyoruz. DBQ ise veritabanının yolu app. path & "\db. mdb" ile aktif dizindeki yani programı kaydettiğimiz yerdeki db. mdb dosyasının yolu oluyor. rst. Open "tblOgr", cnn, 1, 3 'rst. open ile kayıt setimizi açıyoruz. tblOgr veritabanındaki açılcak olan tablonun adı cnn hangi bağlantı olduğu 1 ve 3 ise hem okuma hem yazma modunda açıldığı anlamına geliyo. rst. AddNew ' rst. Adnew ile yeni kayıt oluşturuyoruz. rst = Text1. Text ' OgrNo alanına text i yazdırıyoruz rst = Text2. Text rst = Text3. Text rst = Combo1. Text rst. Update ' kayıtın yapılması için update ediyoruz rst. Close ' recordseti kapatıyoruz. cnn. Close ' bağlantıyı kapatıyoruz Set rst = Nothing ' bellekte yer kaplamasın die içini boşaltıyoruz. Set cnn = Nothing If Err = 0 Then MsgBox "Kayır Başarıyla Yapıldı!" ' eğer bi hata meydana gelmediyse başarıyla kayıt yapıldı die mesaj veriyor. End Sub bu kodlardaki hata ne acaba compile error veriyor? :S

cnn. Open "Driver= ; DBQ=" & app path & "C:\Documents and Settings\alluser\Desktop\db. mdb" olarak bi dene masa ustunun tam yolu bu

valla dblerden fasla anlamiyorum sana sadece yolu gösterdim benim bilgim bukadar kusura kalma dostum ben genelde inet uzerine winsock üzerine arastiriyorum

cnn. Open "Driver= ; DBQ=" & app path & "\db. mdb" örneğin masa üstünde olan bir db. mdb dosyasını bu koda nasıl monte edeceğiz? ben çeşitli alternatifler denedim hata veriyor. yardım eden arkadaşlara şimdiden teşekkürler.

yeni konu açmak yerine kodların verildiği konuya yazsaydın daha ii olurdu sanki