AccessTr.neT

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

(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

 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.

eyvallah hocam Allah razı olsun çok teşekkür ederim.... Kodlar sorunsuz bir şekilde çalıştı.

(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

(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.

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