Vb access id kolonu

03-07-2014, 14:35:21

con = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\****\arac.accdb")
        con.Open()
        sqlstr = "insert into kisi values (" & txtid.Text & ",'" & txtad.Text & "','" & txttel.Text & "','" & txtemail.Text & "','" & txtplaka.Text & "','" & txtsasi.Text & "','" & txtmarka.Text & "','" & txtmodel.Text & "','" & txtmyil.Text & "','" & txtkm.Text & "','" & txthacim.Text & "','" & txtguc.Text & "')"
        cmd = New OleDb.OleDbCommand(sqlstr, con)
        cmd.ExecuteNonQuery()
        MsgBox("Kayıt Girildi")
        con.Close()

projemdeki veritabanı access oluşturdugum tabloda id bolumu var ve bu bolum otomatik artmakta aynı zamanda birincil ve diger tablo ile ilişkilendirilmiş durumda
Yukardaki kodu yazdıgımda hata alıyorum id bolumunu hem koddan hemde veritabanından kaldırınca programım calısıyor
Sorum şu id bolumu mutlaka olmalı id bolumunu veritabanından ve vb kod satırından kaldırmadan nasıl kullanabılırım
Program : vb
Veritabanı : Access
Visual Studio 2012

03-07-2014, 15:46:55

#2

Burhan_957

Kimlik doğrulama veya yönetimden onay bekliyor.

Otomatik atılan değere kod tarafında kayıt gönderemezsiniz.

con = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\****\arac.accdb")
        con.Open()
        sqlstr = "insert into kisi values ('"txtad.Text & "','" & txttel.Text & "','" & txtemail.Text & "','" & txtplaka.Text & "','" & txtsasi.Text & "','" & txtmarka.Text & "','" & txtmodel.Text & "','" & txtmyil.Text & "','" & txtkm.Text & "','" & txthacim.Text & "','" & txtguc.Text & "')"
        cmd = New OleDb.OleDbCommand(sqlstr, con)
        cmd.ExecuteNonQuery()
        MsgBox("Kayıt Girildi")
        con.Close()

Şeklinde yaparsan sorunun düzelir. Dene olmazsa ekran çıktısını eklersen bakarız detaylı.

03-07-2014, 15:55:45

#3

Exert

Burhan_957 adlı üyeden alıntı: mesajı görüntüle

Otomatik atılan değere kod tarafında kayıt gönderemezsiniz.

con = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\****\arac.accdb")
        con.Open()
        sqlstr = "insert into kisi values ('"txtad.Text & "','" & txttel.Text & "','" & txtemail.Text & "','" & txtplaka.Text & "','" & txtsasi.Text & "','" & txtmarka.Text & "','" & txtmodel.Text & "','" & txtmyil.Text & "','" & txtkm.Text & "','" & txthacim.Text & "','" & txtguc.Text & "')"
        cmd = New OleDb.OleDbCommand(sqlstr, con)
        cmd.ExecuteNonQuery()
        MsgBox("Kayıt Girildi")
        con.Close()

Şeklinde yaparsan sorunun düzelir. Dene olmazsa ekran çıktısını eklersen bakarız detaylı.

  sqlstr = "insert into kisi(ad,telefon,eposta,plaka,sasi,marka,model,myili,km,mhacmi,mgucu)values( '" & txtad.Text & "','" & txttel.Text & "','" & txtemail.Text & "','" & txtplaka.Text & "','" & txtsasi.Text & "','" & txtmarka.Text & "','" & txtmodel.Text & "','" & txtmyil.Text & "','" & txtkm.Text & "','" & txthacim.Text & "','" & txtguc.Text & "')"

şu şekilde çözüm buldum benim gibi arayan olursa görsün teşekkürler ilgin için hocam saol