Excelde hazırladığım bir dosyadaki form üzerinde bul, kaydet, güncelle ve sil gibi işlemleri yaptırdığım formum var.Veritabanı olarak mdb veritabanı kullandım.
ID alanı veritabanında Otomatik sayı olarak tanımlı.Güncelleme de ID alanı ile ilgili tür uyuşmazlığı hatası alıyorum.Yardımcı olabilecek var mı?
Bul ile kaydı görüntületmede aşağıdaki kodları;
---------------------------------------------
Dim i As Integer
If RS("ID").Value > 0 Then i = RS("ID").Value
If Len(RS("TatilTarihi").Value) = 8 Then MaskEdBox1.SelText = RS("TatilTarihi")
If RS("Aciklama").Value <> "" Then TextBox1 = RS("Aciklama")
================================================
Güncelle ile kaydı güncellemek için aşağıdaki kodları kullanıyorum.
-------------------------------------------------------------
conn.ConnectionString = Dosya_Yolu
conn.Open
Set RS = CreateObject("ADODB.recordset")
Sql = "SELECT * FROM PARAMETRETATIL Where ID='" & CLng(i) & "'"
RS.Open Sql, conn, 1, 3
RS.Delete
RS.Update
RS.AddNew
If Len(MaskEdBox1.ClipText) = 8 Then RS("TatilTarihi") = MaskEdBox1.ClipText
If TextBox1.Value <> "" Then RS("Aciklama") = TextBox1
RS.Update
ID alanı veritabanında Otomatik sayı olarak tanımlı.Güncelleme de ID alanı ile ilgili tür uyuşmazlığı hatası alıyorum.Yardımcı olabilecek var mı?
Bul ile kaydı görüntületmede aşağıdaki kodları;
---------------------------------------------
Dim i As Integer
If RS("ID").Value > 0 Then i = RS("ID").Value
If Len(RS("TatilTarihi").Value) = 8 Then MaskEdBox1.SelText = RS("TatilTarihi")
If RS("Aciklama").Value <> "" Then TextBox1 = RS("Aciklama")
================================================
Güncelle ile kaydı güncellemek için aşağıdaki kodları kullanıyorum.
-------------------------------------------------------------
conn.ConnectionString = Dosya_Yolu
conn.Open
Set RS = CreateObject("ADODB.recordset")
Sql = "SELECT * FROM PARAMETRETATIL Where ID='" & CLng(i) & "'"
RS.Open Sql, conn, 1, 3
RS.Delete
RS.Update
RS.AddNew
If Len(MaskEdBox1.ClipText) = 8 Then RS("TatilTarihi") = MaskEdBox1.ClipText
If TextBox1.Value <> "" Then RS("Aciklama") = TextBox1
RS.Update
Son düzenleme: