(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 Classhocam verdiginiz kodları burada nasıl kullanabilirim ben denedim yapamadımda.
