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

C# Delete

//using System.Data.SqlClient; //Yeni Güncelleme geldi //Araçlar>NuGet Paket Yöneticisi>Paket yöneticisi Konsole //Install-Package Microsoft.Data.SqlClient //Kodu Yapıştırdık //using System.Data.SqlClient;  Microsoft.Data.SqlClient şeklinde değiştir ve Sorun Çözüldü //Problem SqlConnection bağlantısının altı ve üzeri çizili idi yeni version 9 geldiği için yukarıdaki değişiklikler yapıldı using Microsoft.Data.SqlClient; namespace Update {     public partial class Form1 : Form     {         SqlConnection sqlBaglanti = new SqlConnection(@"Data Source=DESKTOP-0B1GIRL\SQLEXPRESS;Initial Catalog=TestVT;Integrated Security=True;TrustServerCertificate=True");         public Form1()         {             InitializeComponent();         }         //Güncelleme İşlemi         private void button1_Click(object sender, Even...
Yorum Gönder
Devamı

C# Forms ve ADO.NET ile SQL Server 2022'de SQLConnection bağlantısı ile INSERT İşlemi

// SQL bağlantı yolu için sistem paketinin yüklenmesi using System; using System.Data.SqlClient; using System.Windows.Forms; namespace VeriTabanıTestProjesi {     public partial class Form1 : Form     {         // SQL bağlantı nesnesinin tanımlanması         SqlConnection sqlBaglanti = new SqlConnection(@"Data Source=DESKTOP-0B1GIRL\SQLEXPRESS;Initial Catalog=TestVT;Integrated Security=True");         public Form1()         {             InitializeComponent();         }         private void button1_Click(object sender, EventArgs e)         {             // Veri Tabanında oluşabilecek hataların yakalanması             try             {                 // SQL bağlantısının a...
Yorum Gönder
Devamı

Microsoft.Data.SqlClient Örnek VeriTabanı

using System; using System.Data; using Microsoft.Data.SqlClient;//Install-Package Microsoft.Data.SqlClient using System.Windows.Forms; namespace Sql_Try {     public partial class Form1 : Form     {         SqlConnection sqlVT = new SqlConnection(@"Data Source=DESKTOP-0B1GIRL;Initial Catalog=My_Form;Integrated Security=True;Encrypt=True;Trust Server Certificate=True");         public Form1()         {             InitializeComponent();         }         private void button2_Click(object sender, EventArgs e)         {             Application.Exit();         }         private void button1_Click(object sender, EventArgs e)         {             string Name = textBox_isim.Text;         ...
Yorum Gönder
Devamı