AccessTr.neT
Formda arama yapamiyorum... - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda arama yapamiyorum... (/konu-formda-arama-yapamiyorum.html)

Sayfalar: 1 2


Formda arama yapamiyorum... - oztuncla - 04/06/2013

Imports System.Data.OleDb
Public Class PersonelK
Dim con As New OleDbConnection
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub

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 = "" Or Me.TextBox3.Text = "" Or Me.TextBox4.Text = "" Or Me.TextBox5.Text = "" Or Me.TextBox6.Text = "" Or Me.TextBox7.Text = "" Or Me.TextBox8.Text = "" Or Me.TextBox9.Text = "" Or Me.TextBox10.Text = "" Or Me.TextBox11.Text = "" Or Me.TextBox12.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 personel_kayit (personel_kodu,adi,soyadi,memleket,dogum_tarihi,dogum_yeri,gsm1,gsm2,adres,email,kullanici_adi,sifre) values (" + TextBox1.Text + ",'" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "'," + TextBox5.Text + ",'" + TextBox6.Text + "'," + TextBox7.Text + "," + TextBox8.Text + ",'" + TextBox9.Text + "','" + TextBox10.Text + "','" + TextBox11.Text + "','" + TextBox12.Text + "')")
data = String.Format(data, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text)
Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\yetkili.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("İşyeri Bilgileri Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Kayıt İşlemi")
baglanti.Close()
End If
End If
Catch ex As Exception
MsgBox("Bir Hata Oluştu !!!!")
End Try
End Sub
End Class

veritabanı Adı : yetkili
tablo adi : personel_kayit

[Resim: veritabanfotoooo.jpg]


"Bir Hata Oluştu" diyor hep..... Nerede Hata Yapiyorum Kafayi Yicem


Cvp: Nerede Hata Yaptığımı Bulamadım Birde Hocalarım Kontrol etsin dedim... - alpeki99 - 04/06/2013

personel_kodu alanına bilgi kaydetme. Orası zaten otomatik sayı türünde alan.


Cvp: Nerede Hata Yaptığımı Bulamadım Birde Hocalarım Kontrol etsin dedim... - oztuncla - 04/06/2013

(04/06/2013, 23:02)alpeki99 yazdı: personel_kodu alanına bilgi kaydetme. Orası zaten otomatik sayı türünde alan.
personel_kodu o alanı ben otomatik sayı yapmadım normal elle girilsin istedim diger bütün kayıtlarımda bu şekilde yaptım fakat neden burada hata veriyor anlamıyorum...


Cvp: Nerede Hata Yaptığımı Bulamadım Birde Hocalarım Kontrol etsin dedim... - POWER - 04/06/2013

Örneği ekleyiniz...


Cvp: Nerede Hata Yaptığımı Bulamadım Birde Hocalarım Kontrol etsin dedim... - oztuncla - 05/06/2013

(04/06/2013, 23:42)POWER yazdı: Örneği ekleyiniz...

Allah razı olsun o sorunumu hallettim de benim su sorunuma yardımcı olursanız size çok dua edeceğim ayın yedisinde projeme teslim edeceğim baya bir sıkıntıdayım şimdi arama yapacağım form da veriler DataGridView de gözükecek tıkladığım zaman verileri diğer forma yani kayıt ettiğim forma gidecek burada hem silme hemde düzenleme işlemi yapmak istiyorum yapabilir miyiz en azından bana bir yol yardım olumlu veya olumsuz cevap yazarsanız cok mutlu olurum hem proje hem finaller başladı kafayı yicem


Cvp: Nerede Hata Yaptığımı Bulamadım Birde Hocalarım Kontrol etsin dedim... - alpeki99 - 05/06/2013

Projenize bakayım dedim ancak galiba yanlış gönderdiniz çünkü bunun içinde yukarıda bahsi geçen class yok.