Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım.
Tarih
31/05/2013 01:08
Konu Sahibi
oztuncla
Yorumlar
9
Okunma
3445
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Çözüldü 
Sponsor Reklam
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 
Cevapla

drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
07/01/2017,15:41
Çözüldü 
(31/05/2013, 01:08)oztuncla Adlı Kullanıcıdan Alıntı: 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 


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 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ü 
Sponsor Reklam
eyvallah hocam Allah razı olsun çok teşekkür ederim.... Kodlar sorunsuz bir şekilde çalıştı.
Cevapla

drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
07/01/2017,15:41
Çözüldü 
(31/05/2013, 12:04)oztuncla Adlı Kullanıcıdan Alıntı: 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ü 
Sponsor Reklam
(31/05/2013, 12:55)drummers Adlı Kullanıcıdan Alıntı: 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.

Visual Basic Code
data = String.Format(data, TextBox3.Text, TextBox4.Text)


bo kod da onu mu yapiyoruz.

Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.020
29/10/2008
Ordu
Ofis 2013 32 Bit
11/01/2017,17:51
Çözüldü 
Hayır o kod o işe yaramıyor. Bir prosedür içinde aşağıdaki kodları kullanabilirsiniz:

Visual Basic Code
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


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Veri tabanındaki bilgiyi textbox'a aktarma sherlockholmes 4 1.702 24/01/2015, 20:31 sherlockholmes
Çözüldü VB6 ListView'e Accessten Veri Alma Sorunu alican60 4 2.410 12/03/2014, 11:05 ogulcan92
Çözüldü vb6 ölçüt ifadesinde veri türü uyuşmazlığı doubleone 5 1.622 07/01/2014, 09:40 doubleone
Çözüldü Sqlden 2 ayrı tabloya veri çekme .neshe 4 1.788 13/04/2013, 02:42 .neshe
Çözüldü vb.net ile accessten listbox' veri çekme selime68 7 5.565 28/02/2013, 01:13 selime68


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya