+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-net-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Otomatik Sayı Kayit İd Değerini Aldırma (/konu-otomatik-sayi-kayit-id-degerini-aldirma.html)
Otomatik Sayı Kayit İd Değerini Aldırma - qtips - 24/03/2026
Merhaba arkadaşlar.
Aşağıdaki kod ile Access veri tabanına yeni kayıt açıyorum. Satış tablosunda kayit_id otomatik sayı alanı var.
Oluşan yeni kaydın kayit_id değerini nasıl aldırıp başka bi kod satırında kullanabilirim?
Dim veri As New OleDb.OleDbCommand
veri.CommandText = "INSERT INTO satis (satis_tarihisaat,musteri_adi,musteri_id,toplam_tutar,odeme_alindimi) values (@satis_tarihsaatdeger,@musteri_adideger,@musteri_iddeger,@toplam_tutardeger,@odeme_alindimideger)"
veri.CommandType = CommandType.Text
veri.Connection = connect
connect.Open()
Dim kayit1 As New OleDb.OleDbParameter("@satis_tarihsaatdeger", DbType.DateTime)
kayit1.SourceColumn = "satis_tarihisaat"
kayit1.Value = CStr(DateAndTime.Now)
veri.Parameters.Add(kayit1)
Dim kayit2 As New OleDb.OleDbParameter("@musteri_adideger", DbType.String)
kayit2.SourceColumn = "musteri_adi"
kayit2.Value = ComboBox1.Text
veri.Parameters.Add(kayit2)
Dim kayit3 As New OleDb.OleDbParameter("@musteri_iddeger", DbType.String)
kayit3.SourceColumn = "musteri_id"
kayit3.Value = musteriidlabeli.Text
veri.Parameters.Add(kayit3)
Dim kayit4 As New OleDb.OleDbParameter("@toplam_tutardeger", DbType.String)
kayit4.SourceColumn = "toplam_tutar"
kayit4.Value = CInt(toplamtutarlabel.Text)
veri.Parameters.Add(kayit4)
Dim kayit5 As New OleDb.OleDbParameter("@odeme_alindimideger", DbType.Int32)
kayit5.SourceColumn = "odeme_alindimi"
kayit5.Value = "0"
veri.Parameters.Add(kayit5)
veri.ExecuteNonQuery()
connect.Close()
RE: Otomatik Sayı Kayit İd Değerini Aldırma - C*e*l*o*y*c*e - 24/03/2026
merhaba
Kodunun sonuna şunu ekle:
veri.ExecuteNonQuery()
' Eklenen kaydın ID'sini al
Dim cmdID As New OleDb.OleDbCommand("SELECT @@IDENTITY", connect)
Dim yeniID As Integer = Convert.ToInt32(cmdID.ExecuteScalar())
connect.Close()
' Artık yeniID değişkenini istediğin yerde kullanabilirsin
MessageBox.Show("Yeni kayıt ID: " & yeniID.ToString())
RE: Otomatik Sayı Kayit İd Değerini Aldırma - qtips - 24/03/2026
Çok teşekkür ederim hocam. elinize sağlık.