Cvp: Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım. - oztuncla - 31/05/2013
(31/05/2013, 20:24)alpeki99 yazdı: 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
Imports System.Data.OleDb
Public Class KonutK
Dim con As New OleDbConnection
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
KonutBilgiK.Show()
Hide()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub Konut_KayitBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub KonutK_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Sor As Integer
Try
If Me.TextBox1.Text = "" Or Me.ComboBox2.Text = "" Or Me.ComboBox3.Text = "" Or Me.ComboBox4.Text = "" Or Me.TextBox5.Text = "" Or Me.TextBox6.Text = "" Or Me.TextBox7.Text = "" Or Me.ComboBox5.Text = "" Or Me.TextBox9.Text = "" Or Me.ComboBox6.Text = "" Or Me.TextBox11.Text = "" Or Me.TextBox12.Text = "" Or Me.TextBox13.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 konut_kayit (konut_no,konut_durumu,turu,sinifi,ulasim,konut_yasi,kat_sayisi,isinma_sekli,buyuklugu,oda_sayisi,kacinci_kat,bahcesi,fiyat) values (" + TextBox1.Text + ",'" + ComboBox2.Text + "','" + ComboBox3.Text + "','" + ComboBox4.Text + "','" + TextBox5.Text + "'," + TextBox6.Text + "," + TextBox7.Text + ",'" + ComboBox5.Text + "'," + TextBox9.Text + "," + ComboBox6.Text + "," + TextBox11.Text + ",'" + TextBox12.Text + "'," + TextBox13.Text + ")")
data = String.Format(data, TextBox1.Text, TextBox2.Text)
Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\KonutKayıt.accdb; Persist Security Info=False;")
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.TextBox2.Text = "" Or Me.TextBox3.Text = "" Or Me.TextBox4.Text = "" Or Me.TextBox8.Text = "" Or Me.TextBox10.Text = "" Or Me.TextBox14.Text = "" Or Me.TextBox15.Text = "" Or Me.TextBox16.Text = "" Or Me.TextBox17.Text = "" Or Me.TextBox18.Text = "" Or Me.TextBox19.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 adres_bilgileri (konut_adi,semt,mahalle,cadde,sokak,daire_no,no1,acik_adres,ulke,il,ilce) values ( '" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox8.Text + "','" + TextBox10.Text + "'," + TextBox14.Text + "," + TextBox15.Text + ",'" + TextBox16.Text + "','" + TextBox17.Text + "','" + TextBox18.Text + "','" + TextBox19.Text + "')")
data = String.Format(data, TextBox3.Text, TextBox4.Text)
Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\KonutKayıt.accdb; Persist Security Info=False;")
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
Sor = MsgBox("Müşteri Bilgileri Kayıt Yapılsın mı ?", vbYesNo)
If Sor = vbYes Then
If Me.TextBox20.Text = "" Or Me.TextBox21.Text = "" Or Me.TextBox22.Text = "" Or Me.TextBox23.Text = "" Or Me.TextBox24.Text = "" Or Me.TextBox25.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 musteri_bilgileri (musteri_no,ad_soyad,gsm1,gsm2,adres,extra_not2) values ( " + TextBox20.Text + ",'" + TextBox21.Text + "'," + TextBox22.Text + "," + TextBox23.Text + ",'" + TextBox24.Text + "','" + TextBox25.Text + "')")
data = String.Format(data, TextBox3.Text, TextBox4.Text)
Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\KonutKayıt.accdb; Persist Security Info=False;")
Dim komutnesnesi As New OleDb.OleDbCommand(data, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Muşteri 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
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
KonutBilgiK.Show()
End Sub
End Class
hocam verdiginiz kodları burada nasıl kullanabilirim ben denedim yapamadımda.
Cvp: Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım. - drummers - 31/05/2013
Alıntı:hocam verdiginiz kodları burada nasıl kullanabilirim ben denedim yapamadımda.
Private Sub Sil1 ()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Private Sub Sil2 ()
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
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")
Sil1()
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")
Sil2()
baglanti.Close()
End If
End If
End If
Catch ex As Exception
MsgBox("Bir Hata Oluştu !!!!")
End Try
End Sub
Bu şekilde kullanabilirsin. İşe yarar
Cvp: Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım. - oztuncla - 01/06/2013
teşekkürler hocam cok yardımcı oldunuz...
Cvp: Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım. - drummers - 01/06/2013
(01/06/2013, 01:52)oztuncla yazdı: teşekkürler hocam cok yardımcı oldunuz...
Rica ederim. Önemli olan işinizin görülmesi
|