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






Yorumlar

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

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

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