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ı

Private Void Metod

 namespace Metotlar {     public partial class Form1 : Form     {         public Form1()         {             InitializeComponent();         }         //Parametre Almayan Değer Döndürmeyen Metot         //Değer döndürmeyen metot tanımlarken Başa Void yazılır         //Tekrar tekrar aynı kod parçasını yazmaya gerek kalmaz Metot adını istediğinde çağarabilirsin         //void : private void olan metot başka yerden erişelemez         //public void olanlar ise erişime açık (dışarıdan görülebilen) anlamına gelir         //Örnek : MesayYaz Metotu: Çağrıldığı yerde ekrana bir mesaj veren metot yazalım         void MesajYaz()          {             MessageBox.Show("Merhaba Ben Parametresiz...
Yorum Gönder
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ı