Ana içeriğe atla

.accdb veri tabanına kayıt ekleme ana form güncelleme

 


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 'formumuzda ComboBox de bulunan text ifadeleri boş, değilse


rs.Fields(3) = Me.Label7 'tarih


If Me.TextBox2.Text <> "" Then rs.Fields(4) = Me.TextBox2 'formumuzda TextBox de bulunan text ifadeleri boş, değilse

If Me.TextBox3.Text <> "" Then rs.Fields(5) = Me.TextBox3 'formumuzda TextBox de bulunan text ifadeleri boş, değilse

If Me.TextBox4.Text <> "" Then rs.Fields(6) = Me.TextBox4 'formumuzda TextBox de bulunan text ifadeleri boş, değilse


rs.Fields(7) = Me.Caption 'içinde bulunduğum  formun adı ile




rs.Update 'veri tabanı kayıt

rs.Close

baglan.Close

Call alissatishareket 'Tüm işlemler bittikten sonra anaform içinde bulunan mal alış satış hareketlerini güncelleme

End Sub






Etiketler:

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ı