Skip to main content

AccessTr.neT


İki tabloya kayıt

İki tabloya kayıt

Çözüldü #1
Projemde Access veritabanına kayıti düzenleme,silme işlemlerimi yapabiliyorum. Yanlızca içinden çıkamadığım birşey var

Sorum şudur:
Textbox1 = Firmaunvani ... "data" tablosuna kayıt ediliyor
Textbox2 = ortakadbir ... "ortak" tablosuna kayıt edilecek
Textbox3 = ortakadiki ... "ortak" tablosuna kayıt edilecek


Textbox1 e girilen değer "data" tablosuna kayıt yapılıyor.

Benim istediğim

Textbox2 ye ve Textbox3 e girilen değerler "ortak" tablosuna kayıt yapılsın fakat ilk sütuna (Firmaunvani) adıda yazılsın.

Güncelleme, silme işlemleride yaptığımda verilerde değişip silinsin.

Örnek projeyi kısa yaptım verilen cevaba istinaden üzeri gerekli eklemeleri ben yapabilirim.

Teşekkürler...

Ek Dosyalar
 bagli.rar(287.56 KB)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
sql cümlenizi yeniden düzenleyiniz. örn:


Dim Sql As New String("INSERT INTO data (Firmaunvani, ortak2) values ('{0}', '{1}')")
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #3
(04/02/2012, 21:03)ayhan2122 yazdı: sql cümlenizi yeniden düzenleyiniz. örn:


Dim Sql As New String("INSERT INTO data (Firmaunvani, ortak2) values ('{0}', '{1}')")

ortak alanında hata alıyorum..

Textbox1 verisini yani "Firmaunvani" "data" tablosuna
Textbox2 verisi yani "ortakadbir" "ortak" tablosuna kaydedilmeli
Eğer sıkıntı olmıyacaksa, örnek dosyam üzerinde yapabilirmisiniz
Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 04/02/2012, 21:19, Düzenleyen: drummers.
Cevapla
Çözüldü #4
        
Dim Sql As New String("INSERT INTO data (Firmaunvani) values ('" & TextBox1.Text & "')")
Dim sql2 As New String("INSERT INTO ortak (Firmaunvani,ortakadbir, ortakadiki) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')")
Sql = String.Format(sql, TextBox1.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim komutnesnesi2 As New OleDb.OleDbCommand(sql2, baglanti)
Dim sonuc As Integer
Dim sonuc2 As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
sonuc2 = komutnesnesi2.ExecuteNonQuery()
If sonuc = 1 And sonuc2 = 1 Then
MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
End If
Listele("SELECT * FROM data'")
baglanti.Close()
Temizle()
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #5
(04/02/2012, 21:39)ayhan2122 yazdı:
 
Dim Sql As New String("INSERT INTO data (Firmaunvani) values ('" & TextBox1.Text & "')")
Dim sql2 As New String("INSERT INTO ortak (Firmaunvani,ortakadbir, ortakadiki) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')")
Sql = String.Format(sql, TextBox1.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim komutnesnesi2 As New OleDb.OleDbCommand(sql2, baglanti)
Dim sonuc As Integer
Dim sonuc2 As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
sonuc2 = komutnesnesi2.ExecuteNonQuery()
If sonuc = 1 And sonuc2 = 1 Then
MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
End If
Listele("SELECT * FROM data'")
baglanti.Close()
Temizle()

Çok ama çok teşekürler....

Tek eksik şu :

datagride bir isme tıklanınca hem "data" hem "ortak" tablosunun verilerini getirmek kaldı.

Silme ve düzenlemeyi ben yaptım.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task