+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Soruları ve Cevapları (https://accesstr.net/forum-visual-basic-6-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: ADO VERİ ERİŞİM YÖNTEMİ (/konu-ado-veri-erisim-yontemi.html)
Sayfalar:
1
2
ADO VERİ ERİŞİM YÖNTEMİ - umutakkaya - 28/04/2014
Public Class Form1
Dim CON As New ADODB.Connection
Dim Kayitlar As New ADODB.Recordset
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Me.TextBox10.Text = Form2.TextBox1.Text 'ÖNCEKİ FORMDAKİ BİR ALANIN ADINI BU FORMDKİ BİR ALANA YAZIDRMA
CON.CursorLocation = ADODB.CursorLocationEnum.adUseClient
CON.Open("Provider=Microsoft.Jet.OleDb.4.0;Data Source=kayitlar.mdb")
Kayitlar.Open("Select * from kayitlar", CON, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
If Kayitlar.EOF = True Then
alankilitle() 'eğer tabloda kayıt yok ise formdaki alanları kilitlesin
Exit Sub 'MsgBox "Tabloda kayıt yok." YADA kayıt yoksa uygulmadan vazgeç
Else
DataGridView1.DataSource = Kayitlar' BU KOD ÇALIŞMIYOR. DATAGRDİVİEW İÇİNE ACCES VERİTABANINDAKİBİR ALANI DATAGRİDDE LİSTELEME YAPAMADIM.
TextBox1.Text = Kayitlar.Fields("Tckimlik").Value
TextBox2.Text = Kayitlar.Fields("Adi").UnderlyingValue
TextBox3.Text = Kayitlar.Fields("Telefon").UnderlyingValue
TextBox4.Text = Kayitlar.Fields("Adres").UnderlyingValue
TextBox5.Text = Kayitlar.Fields("Mail").UnderlyingValue
' TextBox6.Text = Kayitlar.Fields("Gun").UnderlyingValue
' TextBox7.Text = Kayitlar.Fields("Ay").UnderlyingValue
' TextBox8.Text = Kayitlar.Fields("Yil").UnderlyingValue
End If
=======
Ado denemesi yapmaya çalıştım. Access veritabanına ADO ile bağlanmak istedim. Verileri textboxlara alabiliyorum. Yukarıdaki kod çalışıyor fakat Datatgridviewde listelemiyor. Yukarıdaki kodda nerede hata yaptım. Yardım.Teşekkürler.[/code]
Cvp: ADO VERİ ERİŞİM YÖNTEMİ - POWER - 28/04/2014
Örnek ekleyiniz...
Cvp: ADO VERİ ERİŞİM YÖNTEMİ - umutakkaya - 28/04/2014
adobağlantısı.rar
(Dosya Boyutu: 116,19 KB | İndirme Sayısı: 17)
Örnek Ekledim..
Cvp: ADO VERİ ERİŞİM YÖNTEMİ - POWER - 28/04/2014
İncelermisiniz...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
Cvp: ADO VERİ ERİŞİM YÖNTEMİ - umutakkaya - 28/04/2014
Evet . Teşekkür ederim.Hızlı cevabınız için POWER Hocam.
Cvp: ADO VERİ ERİŞİM YÖNTEMİ - umutakkaya - 29/04/2014
Sayın Hocam Aşağıdaki Kodu Alıntı olup ;
1. FORM ÜZERİNDEKİ KONTROLLERİ ADO DATA CONTROL'E BAĞLAMAK başlığında açıklamaladır.
Örnek: Bir recordset'in DataGrid üzerinde gösterilmesi
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Con.Open="Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=c:\data\sirket.mdb"
Rs.Open "SELECT * FROM musteriler", Con
Set DataGrid1.DataSource = rs
Bu koddaki "Set DataGrid1.DataSource = rs" kısmı neden çalışmıyor. Ado uygulama ile datagritviewe verileri alamıyormuyuz ?