AccessTr.neT
hata - Baskı Önizleme

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



hata - necati - 06/03/2009

Yüklene bilir ISAM bulunamadı hatası nasıl düzeltilir.


Cvp: hata - alpeki99 - 06/03/2009

http://support.microsoft.com/kb/209805/tr en iyi bu kaynak size yol gösterecektir. Ayrıca Connection String kullanıyorsanız verileri kaydedeceğiniz dosyaya yanlış yol yazmışta olabilirsiniz.


Cvp: hata - necati - 06/03/2009

Dim ayarlar As New OleDbConnectionStringBuilder()
ayarlar.ConnectionString = "provider=microsoft.jet.oledb.4.0;" + "Data Source=" + Application.StartupPath().ToString + "\\proje ödevi.mdb"
Dim yenibaglantı As New OleDbConnection(ayarlar.ConnectionString)
'
Dim sorgu As String
sorgu = " Insert Into [ÖDEMELER] ([ödeme şekli],[servis]) values (?,?)"
Dim sutunlar(1) As OleDbParameter
'
sutunlar(0) = New OleDbParameter()
sutunlar(0).OleDbType = OleDbType.VarChar
sutunlar(0).Value = ComboBox1.Text
'
sutunlar(1) = New OleDbParameter()
sutunlar(1).OleDbType = OleDbType.VarChar
sutunlar(1).Value = ComboBox2.Text
'
Dim direkveri As New OleDbCommand(sorgu, yenibaglantı)
Dim parametreler As OleDbParameterCollection
parametreler = direkveri.Parameters
parametreler.AddRange(sutunlar)
If (yenibaglantı.State = ConnectionState.Closed) Then
yenibaglantı.Open()
End If
direkveri.ExecuteNonQuery()
MessageBox.Show("Kaydınız Başarıyla Eklendi")

BU kod satırlarıyla kaydediyor gibi görünüyor ama veritabanına baktığımda kaydetmiyor sorun ne olabilir acaba nerede hata yapmış olabilirim..