台灣最大程式設計社群網站
線上人數
1324
 
會員總數:241337
討論主題:186908
歡迎您免費加入會員
討論區列表 >> ASP >> 刪除或新增資料庫某筆資料
[ 變換順序 ]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
刪除或新增資料庫某筆資料
價值 : 5 QP  點閱數:453 回應數:0

樓主

Huang Yi
門外漢
0 1
22 0
發送站內信

我寫兩個網頁,一個網頁是列出資料庫的表格,然後按下某一行的按鈕button,會得到該按鈕的值q,會導入到第二個網頁,希望由q值,尋找到某一行,然後新增該行資料或刪除,以下是程式不確定有甚麼問題,到rs.absoluteposition=q 就不行了@ @

<%

Set Cnn =db_connection("db/T95.mdb")

SQL= "Select * from list "

Set rs=open_recordset(cnn,sql,3,3)

c=request.servervariables("Query_String")

k=mid(c,11,3)

if right(k,1)="="then

q=replace(k,"=","")

else

q=replace(k,"=%","")


end if

if rs.absoluteposition=q then

rs.addnew

rs("return")="return"

rs.update

rs.close

Cnn.Close

end if

%>

<%
function db_connection(dbn)
dim provider,db_path,ds,cns,conn

provider = "Provider = Microsoft.Jet.OLEDB.4.0; "
db_path= server.mappath(dbn)
ds= "Data Source= "& db_path
cns= provider&ds

set conn= server.createobject("ADODB.Connection")
conn.open cns
set db_connection = conn
end function


function open_recordset(cnn,sql,cs,ltype)
dim rs
'on error resume next
set rs= server.createobject("ADODB.Recordset")
rs.open sql,cnn,cs,ltype
set open_recordset = rs
if err.number <> 0 then
response.write "["&SQL&"]<br>"
response.end
end if
end function
%>

搜尋相關Tags的文章: [ rs.addnew 新增某一行欄位資料 ] ,
本篇文章發表於2017-03-14 21:14
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
[ 變換順序 ]   

回覆
如要回應,請先登入.