Buradaki hatayı çözemedim.

28-05-2013, 23:09:45

Asp ve access tabanlı ufak bir uygulamada aşağıdaki gibi kayıt yaptırmak istiyorum. Kodlar bunlar.. Fakat en aşağıdaki gibi de bir uyarı alıyorum, database veritabanı yazma izinlerini verdim, sonuç alamadım. Önerisi olan varsa sevinirim..

Alıntı

<%
on error resume next
const adCmdText = &H0001
const adExecuteNoRecords = &H00000080

dim strKod
strKod = Request.Form("ders-kodu")

dim strAd
strAd = Request.Form("ders-adi")

dim strDd
strDd = Request.Form("dd")

dim strAs
strAs = Request.Form("as")

dim strYss
strYss = Request.Form("yss")

dim strBut
strBut = Request.Form("but")

dim strHarf
strHarf = Request.Form("harf")

dim strSonuc
strSonuc = Request.Form("sonuc")

dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/obisisvt.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

strSql = "INSERT INTO notsorgu(`ders-kodu`, `ders-adi`, `dd`, `as`, `yss`,`but`, `harf`, `sonuc`) VALUES('" & strKod & "', '" & strAd & "', '" & strDd & "', '" & strAs & "', '" & strYss & "','" & strBut & "','" & strHarf & "','" & strSonuc & "')"
objConn.Execute(strSql),,adCmdText + adExecuteNoRecords

objConn.Close
set objConn = Nothing

'Response.Redirect "not_ekle.asp"
response.Write(err.description&"<br>"&strSql)
%>

Alıntı

INSERT INTO notsorgu(`ders-kodu`, `ders-adi`, `dd`, `as`, `yss`,`but`, `harf`, `sonuc`) VALUES('032', 'matematik', 'gelmedi', '2', '5','yok','devamsız','kaldı')

28-05-2013, 23:19:01

#2

frdtrkc

Aşağıdaki gibi düzenleyip deneyin.

objConn.Execute(strSql),,adCmdText + adExecuteNoRecords

Yerine

objConn.Execute strSql, , adCmdText + adExecuteNoRecords

28-05-2013, 23:22:15

#3

ozday

düzeltmeyi yaptım şöyle bir hatayla karşılaştım.

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

Aşağıdaki gibi düzenleyip deneyin.

objConn.Execute(strSql),,adCmdText + adExecuteNoRecords

Yerine

objConn.Execute(strSql, , adCmdText + adExecuteNoRecords)

Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

not_kaydet.asp, line 38

objConn.Execute(strSql, , adCmdText + adExecuteNoRecords)
---------------------------------------------------------^

28-05-2013, 23:23:22

#4

frdtrkc

Düzenledim, parantezleri kaldırmayı atlamışım.

28-05-2013, 23:28:12

#5

ozday

ilginiz için teşekkür ederim.. ilk hatayı aldım tekrar.

Alıntı

INSERT INTO notsorgu(`ders-kodu`, `ders-adi`, `dd`, `as`, `yss`,`but`, `harf`, `sonuc`) VALUES('032', 'matematik', 'gelmedi', '2', '5','yok','devamsız','kaldı')

28-05-2013, 23:31:09

#6

frdtrkc

Hata nedir? Ben bir hata göremedim sizin mesajınızda.

28-05-2013, 23:33:05

#7

ozday

uyarı bu şekilde,
girdiğim verileri alıyor fakat database üzerine aktarım yapmıyor

Alıntı

INSERT INTO notsorgu(`ders-kodu`, `ders-adi`, `dd`, `as`, `yss`,`but`, `harf`, `sonuc`) VALUES('032', 'matematik', 'gelmedi', '2', '5','yok','devamsız','kaldı')

28-05-2013, 23:34:58

#8

frdtrkc

on error resume next kısmını kaldırıp denerseniz bir hata verecektir.

28-05-2013, 23:41:19

#9

ozday

INSERT INTO notsorgu(`ders-kodu`, `ders-adi`, `dd`, `as`, `yss`,`but`, `harf`, `sonuc`) VALUES('032', 'matematik', '25', '2', '5','var','aa','kaldı')

dediğiniz yerleri kaldırdım, hata kodu yerine aynı şekilde bir uyarı geldi.