Arama butonu
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
6
Cevap
1974
Tıklama
0
Öne Çıkarma
Syntax error in UPDATE statement.
S
14 yıl (1173 mesaj)
Yüzbaşı
Konu Sahibi

Arkadaşlar merhaba,

Asp de başlıkta yazdığım hatayı alıyorum,kayıt girebiliyorum ancak kayıt güncelleştirmesi yapamıyorum kodları aşağıda verdim yardımcı olabilirseniz çok memnun olurum.

Veri tabanımda birincil anahtar hariç (RecID) geriye kalan bütün alanlar metin olarak düzenledim. RecID ise otomatik sayı.Okuma/Yazma izinlerini gözden geçirdim herhangi bir sorun yok gibi gözüküyor.

Güncelleştirme yapmaya çalıştığımda aldığım hata ;

Microsoft JET Database Engine error '80040e14' 

Syntax error in UPDATE statement.

/UpdateReg.asp, line 60



UpdateReg.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#Include file="connection.asp"-->
<%
'Decalre the variables
Dim SQLUpdateEdit

'txtName (FORM FIELD NAME) (DATABASE FIELD NAM1 [TEXT])
'txtTyp1 (FORM FIELD TYPE) (DATABASE FIELD TYP1 [TEXT])
'txtDepartment (FORM FIELD DEPARTMENT) (DATABASE FIELD DEP1 [TEXT])
'txtNumber (FORM FIELD NUMBER) (DATABASE FIELD NUM1 [TEXT])
'txtEmail (FORM FIELD EMAIL) (DATABASE FIELD EMA1 [TEXT])

strTc = Request.Form("txtTc")
strAd = Request.Form("txtAd")
strSoyad = Request.Form("txtSoyad")
strTyp1 = Request.Form("txtTyp1")
strDogum = Request.Form("txtDogum")
s**** = Request.Form("txtCep")
strEv = Request.Form("txtEv")
strAdres = Request.Form("txtAdres")
strEta = Request.Form("txtEta")
strEmail = Request.Form("txtEmail")
strUnv = Request.Form("txtUnv")
strBolum = Request.Form("txtBolum")
strCalkur = Request.Form("txtCalkur")
strGorev = Request.Form("txtGorev")
'##################################################################
'Write the SQL string to update the record
'##################################################################
SQLUpdateEdit = "UPDATE tblNames SET"
SQLUpdateEdit = SQLUpdateEdit & "Nam1='" & strTc & "', "
SQLUpdateEdit = SQLUpdateEdit & "Dep1='" & strAd & "', "
SQLUpdateEdit = SQLUpdateEdit & "Num1='" & strSoyad & "', "
SQLUpdateEdit = SQLUpdateEdit & "Typ1='" & strTyp1 & "', "
SQLUpdateEdit = SQLUpdateEdit & "Dog='" & strDogum & "', "
SQLUpdateEdit = SQLUpdateEdit & "C1='" & s**** & "', "
SQLUpdateEdit = SQLUpdateEdit & "E2='" & strEv & "', "
SQLUpdateEdit = SQLUpdateEdit & "Adr='" & strAdres & "', "
SQLUpdateEdit = SQLUpdateEdit & "Et1='" & strEta & "', "
SQLUpdateEdit = SQLUpdateEdit & "Em1='" & strEmail & "'"
SQLUpdateEdit = SQLUpdateEdit & "Un1='" & strUnv & "', "
SQLUpdateEdit = SQLUpdateEdit & "Bol1='" & strBolum & "', "
SQLUpdateEdit = SQLUpdateEdit & "Cakr1='" & strCalkur & "', "
SQLUpdateEdit = SQLUpdateEdit & "Grv1='" & strGorev & "', "
SQLUpdateEdit = SQLUpdateEdit & " WHERE 'RecordID' = " & Request.QueryString("Rec") & ";"

conn.execute SQLUpdateEdit ( 60.satır buraya denk geliyor ancak hatanın ne olduğunu hala anlayabilmiş değilim )

conn.close
SET conn = Nothing
response.Redirect("Display.asp")
%>


connection.asp
Dim conn, ConnectString 
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dbreg.mdb") & ";Persist Security Info=False"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>





< Bu mesaj bu kişi tarafından değiştirildi SinanOz -- 29 Ocak 2013; 10:11:11 >