arkadaşlar database i update etmeye calıştıgım bir kodum var, fakat bu kodu her calıştırdığımda veri alanlarının uyuşmadığı hatasını alıyorum, yardımcı olabilirseniz sevinirim. ben bulamadım da...

database alanlarımın hepsi metin... şimdiden teşekkurler...


Alıntı:
Dim baglanti2 As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; Data Source= Db.mdb")
baglanti2.Open()


If Button8.Visible = True Then

Try
Dim guncelle1 As New OleDbCommand()

guncelle1 = baglanti2.CreateCommand()
guncelle1.CommandText = "update TBL_Oturma set [email protected],[email protected],Yu[email protected]ukseklik,[email protected],Ha [email protected],Isı_Kaybı[email protected]ı_Kaybı,Radyator_Olcusu[email protected] adyator_Olcusu WHERE Kimlik= " + Label130.Text

guncelle1.Parameters.AddWithValue("@En", TextBox1.Text)
guncelle1.Parameters.AddWithValue("@Boy", TextBox2.Text)
guncelle1.Parameters.AddWithValue("@Yukseklik", TextBox3.Text)
guncelle1.Parameters.AddWithValue("@Alan", TextBox4.Text)
guncelle1.Parameters.AddWithValue("@Hacim", TextBox5.Text)
guncelle1.Parameters.AddWithValue("@Isı_Kaybı", TextBox6.Text)
guncelle1.Parameters.AddWithValue("@Radyator_Olcus u", TextBox48.Text)

If (guncelle1.ExecuteNonQuery() = 1) Then
MessageBox.Show("Kayıt guncellendi")
End If
Catch ex As Exception
MessageBox.Show("Hata" & ex.ToString())
End Try

Else
Try
Dim guncelle1 As New OleDbCommand()

guncelle1 = baglanti2.CreateCommand()
guncelle1.CommandText = "update TBL_Oturma set [email protected],[email protected],Yu[email protected]ukseklik,[email protected],Ha [email protected],Isı_Kaybı[email protected]ı_Kaybı,Radyator_Olcusu[email protected] adyator_Olcusu WHERE Kimlik= " + Label130.Text

guncelle1.Parameters.AddWithValue("@En", "")
guncelle1.Parameters.AddWithValue("@Boy", "")
guncelle1.Parameters.AddWithValue("@Yukseklik", "")
guncelle1.Parameters.AddWithValue("@Alan", "")
guncelle1.Parameters.AddWithValue("@Hacim", "")
guncelle1.Parameters.AddWithValue("@Isı_Kaybı", "")
guncelle1.Parameters.AddWithValue("@Radyator_Olcus u", "")

If (guncelle1.ExecuteNonQuery() = 1) Then
MessageBox.Show("Kayıt guncellendi")
End If
Catch ex As Exception
MessageBox.Show("Hata" & ex.ToString())
End Try

End If



__________________