Ana içeriğe atla

.accdb bağlantı yolu örnek kodlama

 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           'tabloda ki tüm satırları alma

End With


End Sub


Private Sub UserForm_Initialize()


anaform.Label1.Caption = Date 'tarih yazma

anaform.MultiPage1.Value = 0    'formda anasayfa sabitleme


End Sub



YÖNTEM 2 :



Sub odemetahsilathareket()


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 firmaadi,tarih,tutar,yontem,tur from odemetahsilat", baglan, adOpenKeyset, adLockPessimistic


With anaform.ListBox2 'çekilen verilerin formda nereye işleneceği

.ColumnCount = 5        'tabloda ki sütun sayısı rs.open da yer alan başlık sayısı

.ColumnWidths = "80;40;40;40;40;50" 'sütun genişlikleri

.Column = rs.GetRows    'tabloda ki tüm satırları alma

End With



rs.Close

baglan.Close


End Sub



YAZILAN MODÜLLERİN ANA FORM İÇERİSİNE AKTARILMASI GEREKİR:


Private Sub UserForm_Initialize()


anaform.Label1.Caption = Date 'tarih yazma

anaform.MultiPage1.Value = 0    'formda anasayfa sabitleme

Call alissatishareket   'modules içindeki ozetsayfakodları kodlarını anaforma ekleme verilerin oto. açılmasını sağlama

Call odemetahsilathareket 'modules içindeki ozetsayfakodları kodlarını anaforma ekleme verilerin oto. açılmasını sağlama


End Sub

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

FOREGIN KEY ve INNER JOIN ile ilişkili tablo oluşturma Örneği

--1)DataBase oluşturma Sorgusu --CREATE DATABASE Join_Alistirma; --GO --USE Join_Alistirma; --GO --2)musteri Tablosu oluşturma --CREATE TABLE musteri ( --    musteri_ID INT IDENTITY(1,1) PRIMARY KEY, --    adi_soyadi NVARCHAR(100) NOT NULL, --    telefon NVARCHAR(20) NOT NULL --); ---3)araclar Tablosunu Oluştur (FOREIGN KEY ile) --CREATE TABLE araclar ( --    id INT IDENTITY(1,1) PRIMARY KEY, --    musteri_ID INT NOT NULL, --    plaka NVARCHAR(20) NOT NULL, --    marka NVARCHAR(50), --    model NVARCHAR(50), --    yil INT, --    FOREIGN KEY (musteri_ID) REFERENCES musteri(musteri_ID) --); ----------------------------------------------------------------------------- ----NOT  --musteri_ID → musteri tablosuyla bağlantılı olacak. --plaka, marka, model, yil alanları araç bilgilerini tutacak. ----------------------------------------------------------------------------- ---4)Tablolara muste...
Devamı

İD ye göre işlemler C# ve Class örnekleri ile Birlikte

***************************************************************************** ✅ DbHelper.cs adında bir sınıf ile Insert , Update , Delete , GetId , SelectAll işlemlerini kolayca yapabilirsiniz. ✅ SCOPE_IDENTITY() kullanarak son eklenen kaydın ID’sini çekme örneği var. ✅ Bu ID’yi Label veya TextBox ’a yazdırabilir, Update veya Delete için tekrar kullanabilirsiniz. ✅ DataGridView ile tüm verileri listeleme örneği de dahil. *****************************************************************************  // ✅ DbHelper.cs using System; using System.Collections.Generic; using System.Data; using System.Data.SqlClient; public static class DbHelper {     private static string connectionString = @"Data Source=.\SQLEXPRESS;Initial Catalog=YourDatabase;Integrated Security=True";     public static object InsertAndGetId(string query, Dictionary<string, string> parameters)     {         using (SqlConnection connection = new SqlConne...
Devamı

INNER JOIN Silme İşleminde REFERANCE Hatası

 SQL 'de INNER JOIN için ben diagram kullandım ama silme işlemleri için bu hataya yol açtı kodlar yazıldıktan sonra. Sillme işleminin yapıla bilmesi için : Diagram üzerinden "ON DELETE CASCADE" ekleme SSMS’te veritabanını aç. Database Diagrams → kullandığın diyagramı aç. isim tablosu ile soyisim tablosu arasındaki ilişki çizgisine çift tıkla . INSERT and UPDATE Specification bölümünü bul. Delete Rule → Cascade olarak değiştir. Kaydedip diyagramı kapat.   2️⃣ SQL komutuyla ekleme (manuel yöntem) Eğer diyagramdan uğraşmak istemiyorsan, SQL koduyla da ekleyebilirsin: ALTER TABLE Soyisim DROP CONSTRAINT FK_Soyisim_Isim;  -- Burada mevcut foreign key adını yazacaksın ALTER TABLE Soyisim ADD CONSTRAINT FK_Soyisim_Isim FOREIGN KEY (isim_Id) REFERENCES Isim(isim_Id) ON DELETE CASCADE; ON DELETE CASCADE tamamen silme işlemleri için tanımlanan bir FOREIGN KEY davranış kuralıdır. Normal FOREIGN KEY : Ana tabloda bir kayıt silmek istersen ve bu kayıt başka ...
Devamı