Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

oztuncla
oztuncla
Visual Basic 6 Cevaplanmış Soruları
9
6647

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

Çözüldü #7
oztuncla
Üye
oztuncla
Bul
Üye
Adı Soyadı:
Yaşı: 36
Konum:
Ofis Versiyonu:
Son Oturumu: 17/01/2014,22:06
Yorumları: 24
Konuları: 6
Kayıt Tarihi: 31/05/2013
Teşekkür Puanı: 0
(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. Img-cray
Cevapla
Çözüldü #8
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 23/02/2024,10:59
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125
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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 31/05/2013, 23:51, Düzenleyen: drummers.
Cevapla
Çözüldü #9
oztuncla
Üye
oztuncla
Bul
Üye
Adı Soyadı:
Yaşı: 36
Konum:
Ofis Versiyonu:
Son Oturumu: 17/01/2014,22:06
Yorumları: 24
Konuları: 6
Kayıt Tarihi: 31/05/2013
Teşekkür Puanı: 0
teşekkürler hocam cok yardımcı oldunuz...
Cevapla
Çözüldü #10
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 23/02/2024,10:59
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125
(01/06/2013, 01:52)oztuncla yazdı: teşekkürler hocam cok yardımcı oldunuz...

Rica ederim. Önemli olan işinizin görülmesi
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