Dim ayarlar As New OleDbConnectionStringBuilder()
ayarlar.DataSource = "C:\Documents and Settings\Necati\Belgelerim\Visual Studio 2005\Projects\PROJE ÖDEVİ\PROJE ÖDEVİ/proje ödevi.mdb"
ayarlar.Provider = "microsoft.jet.oledb.4.0"
Dim yenibaglantı As New OleDbConnection(ayarlar.ConnectionString)
'
Dim sorgu As String
sorgu = " Insert Into ÖĞRENCİ BİLGİLERİ ([KAYIT NO],[TC KİMLİK NO],[ADI],[SOYADI],[CİNSİYETİ],[DOĞUM TARİHİ],[DOĞUM YERİ]) values (?,?,?,?,?,?,?)"
Dim sutunlar(6) As OleDbParameter
'
sutunlar(0) = New OleDbParameter()
sutunlar(0).OleDbType = OleDbType.VarChar
sutunlar(0).Value = TextBox1.Text
'
sutunlar(1) = New OleDbParameter()
sutunlar(1).OleDbType = OleDbType.VarChar
sutunlar(1).Value = TextBox2.Text
'
sutunlar(2) = New OleDbParameter()
sutunlar(2).OleDbType = OleDbType.VarChar
sutunlar(2).Value = TextBox3.Text
'
sutunlar(3) = New OleDbParameter()
sutunlar(3).OleDbType = OleDbType.VarChar
sutunlar(3).Value = TextBox4.Text
'
sutunlar(4) = New OleDbParameter()
sutunlar(4).OleDbType = OleDbType.VarChar
sutunlar(4).Value = TextBox5.Text
'
sutunlar(5) = New OleDbParameter()
sutunlar(5).OleDbType = OleDbType.Date
sutunlar(5).Value = Convert.ToDateTime(TextBox6.Text)
'
sutunlar(6) = New OleDbParameter()
sutunlar(6).OleDbType = OleDbType.VarChar
sutunlar(6).Value = TextBox7.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("kaydedildi.")
hatayı direkveri.ExecuteNonQuery() satırını çizerek insert into hatası diye yazıyor . Şimdiden teşekkür ederim.