C# Birlikte Öğrenelim

  learnexcelmacro.com connectionstrings.com

  Private Sub CommandButton2_Click() Dim baglan As New Connection   'veri tabanına bağlanma Dim rs As New Recordset        'veri tabanına yeni kayıt 'baglan.Open "Provider=Microsoft.Ace.Oledb.12.0 veri tabanına bağlanma referans kod 'data source=C:\Users\SAVAS\Desktop\master.accdb;" işlenecek veri taban bağlantısı baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\SAVAS\Desktop\master.accdb;" 'rs.Open "select * from alissatis where kimlik", baglan, adOpenKeyset, adLockPessimistic alış satış formumuzda yapılan kayıt işemini id ye göre kayıt yapma rs.Open "select * from alissatis where kimlik", baglan, adOpenKeyset, adLockPessimistic rs.AddNew 'veri tabanı yeni kayıt ekleme komutu If Me.ComboBox1.Text <> "" Then rs.Fields(1) = Me.ComboBox1.Text 'formumuzda ComboBox de bulunan text ifadeleri boş, değilse If Me.ComboBox2.Text <> "" Then rs.Fields(2) = Me.ComboBox2.Text '...

  Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim baglan As New Connection   'veri tabanına bağlanma Dim rs As New Recordset        'veri tabanına yeni kayıt 'baglan.Open "Provider=Microsoft.Ace.Oledb.12.0 veri tabanına bağlanma referans kod 'data source=C:\Users\SAVAS\Desktop\master.accdb;" işlenecek veri taban bağlantısı baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\SAVAS\Desktop\master.accdb;" 'rs.Open "select firmaadi from firmalar where firmaadi LIKE '" & ComboBox1.Text & "%'",  veri tabanında yer alan kolon isimleri aynen alduğu gibi yazılmalı 'rs.Open "select firmaadi from firmalar where firmaadi LIKE '" & ComboBox1.Text & "%'", bu alanda combobox1 alanı içine veri tabanında yer alan metinleri yüzdelik % sayesinde metinleri girmeye başladığım anda ifadeleri içeren tüm kayıtları getirmeye başlar 'rs.Open "se...

 kaynak: learnexcelmacro.com kaynak:  connectionstrings.com Private Sub CommandButton13_Click() Dim baglan As New Connection   'veri tabanına bağlanma Dim rs As New Recordset        'veri tabanına yeni kayıt      'baglan.Open "Provider=Microsoft.Ace.Oledb.12.0 veri tabanına bağlanma referans kod      'data source=C:\Users\SAVAS\Desktop\master.accdb;" işlenecek veri taban bağlantısı baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\SAVAS\Desktop\master.accdb;"           'rs.Open "select * from alissatis", verinin çekileceği tablo adı ( alissatis ) rs.Open "select * from alissatis", baglan, adOpenKeyset, adLockPessimistic With anaform.ListBox1            'çekilen verilerin formda nereye işleneceği .ColumnCount = 8                    'tabloda ki sütun sayısı .Column = rs.GetRows  ...