Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
04/02/2012 18:25
Konu Sahibi
drummers
Yorumlar
4
Okunma
2380
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

drummers

Omur Can
Destek
OM.... CA....
 409
 119
 11/05/2009
125
 İzmir
 
 Ofis 2003
 17/09/2018,12:41
Çözüldü 
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.

Kullanici Avatari

ayhan2122

accesstr.net , gayet net ;)
Uzman
 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20:20
Çözüldü 
sql cümlenizi yeniden düzenleyiniz. örn:

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

Kullanici Avatari

drummers

Omur Can
Destek
OM.... CA....
 409
 119
 11/05/2009
125
 İzmir
 
 Ofis 2003
 17/09/2018,12:41
Çözüldü 
(04/02/2012 21:03)ayhan2122 Adlı Kullanıcıdan Alıntı: sql cümlenizi yeniden düzenleyiniz. örn:

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

Kullanici Avatari

ayhan2122

accesstr.net , gayet net ;)
Uzman
 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20:20
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        
        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.

Kullanici Avatari

drummers

Omur Can
Destek
OM.... CA....
 409
 119
 11/05/2009
125
 İzmir
 
 Ofis 2003
 17/09/2018,12:41
Çözüldü 
(04/02/2012 21:39)ayhan2122 Adlı Kullanıcıdan Alıntı:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 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.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.850 04/05/2014, 16:31
Son Yorum: umutakkaya
Çözüldü Kayıt Ekleme Sırasında Hata TheDeceit 7 2.664 11/04/2014, 11:13
Son Yorum: alpeki99
Çözüldü Access veritabanına kayıt Sorunu Black_Trouble 4 2.416 06/03/2014, 22:44
Son Yorum: ozcan35
Çözüldü Yeni bir kayıt ekleme işlemi nasıl yapılır? cyberwars 12 3.325 20/02/2014, 22:12
Son Yorum: cyberwars
Çözüldü VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ? alican60 4 3.024 20/12/2013, 20:57
Son Yorum: alican60

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.