C# Birlikte Öğrenelim

  SQL SERVER TEMEL VERİ TİPLERİ     Veri Tipleri – Metin Tabanlı   char(boyut)  : Belirtilen değerden az veri girilse bile boyut kadar yer kaplar.Unicode’u desteklemez. En fazla 8.000 karaktere kadar depolama yapar.   nchar(boyut)  : Belirtilen değerden az veri girilse bile boyut kadar yer kaplar. En fazla 4.000 karaktere kadar depolama yapar.   varchar(boyut)  : Chardan farkı, verinin boyutu kadar yer kaplamasıdır.Unicode’u desteklemez. En fazla 8.000 karaktere kadar depolama yapar.Boyut değeri Max olursa, depolama boyutu 2^31 – 2 (2 GB) olur.   nvarchar(boyut)  : Verinin boyutu kadar yer kaplar.Unicode’u destekler.En fazla 4.000 karaktere kadar depolama yapar. Boyut değeri Max olursa, depolama boyutu 2^31 – 2 (2 GB) olur.   text  : Belirtilen değerden az veri girilse bile boyutu kadar yer kaplar.Unicode’u desteklemez. En fazla 2GB’ye kadar metinsel veri depolama yapar.   ntext  : G...

  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  ...

  Sub düsey_ara_sayfa() Dim aranan As Range Dim alan As Range Set aranan = Range("f4") Set alan = Sheet1.Range("A1:D19") sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) Range("H4") = sonuc End Sub ======================================================================== Sub coketoplaa_sumifs() 'ÇokEtopla Dim aranan As Range Dim alan As Range Dim kriter As Range Set toplanan = Sheet1.Range("C:C") 'Satış Tutarı Set kriter = Sheet1.Range("D:D") 'Yıl Set aranan = Range("F8") 'Aranan Değer sonuc = Excel.WorksheetFunction.sumifs(toplanan, kriter, aranan) Range("H8") = sonuc End Sub

  Sub Oval3_Tıkla() Dim aranan As Range Dim alan As Range Set aranan = Range("F3") Set alan = Range("A1:D19") 'sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) 'Range("H3") = sonuc Range("H4") = sonuc End Sub ========================================================================= Sub coketopla() Dim satis_tutari As Range Dim yil As Range Dim kriter As Range Set satis_tutari = Range("C:C") Set yil = Range("D:D") Set kriter = Range("F7") sonuc = Excel.WorksheetFunction.sumifs(satis_tutari, yil, kriter) Range("H8") = sonuc End Sub