Skip to main content

AccessTr.neT


Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım.

Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım.

Çözüldü #1
1. Resim de görüldüğü Gibi formum da 3 frame icinde ayrı ayrı bilgilerim var. bu 3 frame icin bir veri tabanında Konut bilgileri, adres bilgiler ve müsteri bilgileri die tablo olusturdum ve bunları ilişkilendirdim programda kayıt yapabiliyorum listview de gösteriyorum fakan ilk frame yi kaydede biliyorum digerlerini kaydedemiyorum. nasıl yapacagım.
2. Ayrıca listview de bütün bilgileri göstermeyecegim sadece düzenlemek veya silmek icin veri tabanında istedigim bilgileri gösterecegim.
3. visual basic 2010 kullanıyorum

[Resim: forumdl.jpg]
Son Düzenleme: 31/05/2013, 01:17, Düzenleyen: oztuncla.
Cevapla
Çözüldü #2
(31/05/2013, 01:08)oztuncla yazdı: 1. Resim de görüldüğü Gibi formum da 3 frame icinde ayrı ayrı bilgilerim var. bu 3 frame icin bir veri tabanında Konut bilgileri, adres bilgiler ve müsteri bilgileri die tablo olusturdum ve bunları ilişkilendirdim programda kayıt yapabiliyorum listview de gösteriyorum fakan ilk frame yi kaydede biliyorum digerlerini kaydedemiyorum. nasıl yapacagım.
2. Ayrıca listview de bütün bilgileri göstermeyecegim sadece düzenlemek veya silmek icin veri tabanında istedigim bilgileri gösterecegim.
3. visual basic 2010 kullanıyorum

[Resim: forumdl.jpg]



Dim Sor As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try

If Me.TextBox1.Text = "" Or Me.TextBox2.Text = "" Then
MsgBox("Seçilmesi Gereken Alanlardan Bir veya Birkaçını Seçmedin.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
Else
Dim data As New String("INSERT INTO Tabo adın (konutno,konutdurum) values ('{0}','{1}')")
data = String.Format(data, TextBox1.Text, TextBox2.Text)
Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veritabanı adın.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(data, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Konut Bilgileri Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Kayıt İşlemi")
baglanti.Close()
End If
End If

sor = MsgBox("Adres Bilgileri Kayıt Yapılsın mı ?", vbYesNo)

If sor = vbYes Then

If Me.TextBox3.Text = "" Or Me.TextBox4.Text = "" Then
MsgBox("Seçilmesi Gereken Alanlardan Bir veya Birkaçını Seçmedin.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
Else
Dim data As New String("INSERT INTO Tabo adın (konutadi,semt) values ('{0}','{1}')")
data = String.Format(data, TextBox3.Text, TextBox4.Text)
Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veritabanı adın.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(data, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Adres Bilgileri Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Kayıt İşlemi")
baglanti.Close()
End If
End If

End If

Catch ex As Exception
MsgBox("Bir Hata Oluştu !!!!")
End Try

End Sub

Bunun gibi bişey olabilir.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #3
eyvallah hocam Allah razı olsun çok teşekkür ederim.... Kodlar sorunsuz bir şekilde çalıştı.
Cevapla
Çözüldü #4
(31/05/2013, 12:04)oztuncla yazdı: eyvallah hocam Allah razı olsun çok teşekkür ederim.... Kodlar sorunsuz bir şekilde çalıştı.

Hayrını gör Img-grin
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
(31/05/2013, 12:55)drummers yazdı: data = String.Format(data, TextBox3.Text, TextBox4.Text)

hocam kodların hepsini anladım simdi kayıt yapiyorum fakat kayıttan sonra textbox ların ici silinmiyor. simdi textbox1.text = "" bu sekilde boşaltırımda böyle kod fazlalıgı oluyor oda çok uzun oluyor.

data = String.Format(data, TextBox3.Text, TextBox4.Text)

bo kod da onu mu yapiyoruz.
Cevapla
Çözüldü #6
Hayır o kod o işe yaramıyor. Bir prosedür içinde aşağıdaki kodları kullanabilirsiniz:


For Each kntrl As Control In Me.Controls
If TypeOf kntrl Is TextBox Then
TryCast(kntrl, TextBox).Text = [String].Empty
End If
Next
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da