AccessTr.neT

Tam Versiyon: Formda arama yapamiyorum...
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
personel_kodu alanına bilgi kaydetme. Orası zaten otomatik sayı türünde alan.
(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...
Örneği ekleyiniz...
(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
Projenize bakayım dedim ancak galiba yanlış gönderdiniz çünkü bunun içinde yukarıda bahsi geçen class yok.
Sayfalar: 1 2