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
