ASP中使用SQL語句操作資料庫

來源:互聯網
上載者:User
資料|資料庫|語句

用ASP操作資料庫時,很多人都使用記錄集,但我覺得用SQL語句更好些,於是就寫了這篇文章,希望對你有協助。

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為串連資料庫和中斷連線(資料庫為Access格式,採用DSN來串連)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub connect()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb檔案的dsn,在配置ODBC時建立,如果要上傳檔案的話,可以把access.dsn一同上傳
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '開啟目前的目錄下的dsn檔案(dsn為access檔案的dsn)
response.write "資料庫連接成功:" & cnn.state & "<br>"
cnn.close '關閉串連
response.write"資料庫已經關閉" & cnn.state & "<br>"
set cnn=nothing '清除變數
end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為操縱資料庫(查詢內容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub sel()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb檔案的dsn
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '開啟目前的目錄下的dsn檔案(dsn為access檔案的dsn)
'送出操作,並得到結果
sql="select * from user" '構造SQL語句
set rs=cnn.Execute(sql) '送出SQL
'一個迴圈把記錄集中的記錄內容全部輸出
while not rs.eof
values=rs("name")
response.write values & "<br>"
rs.movenext
wend
rs.close
cnn.close
set cnn=nothing
end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為操縱資料庫(修改內容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub modi()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb檔案的dsn
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '開啟目前的目錄下的dsn檔案(dsn為access檔案的dsn)
sql="update user set name='這是程式' where name='A'" '構造修改SQL語句
cnn.Execute sql '送出SQL
cnn.close
set cnn=nothing
end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為操縱資料庫(刪除內容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub del()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb檔案的dsn
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '開啟目前的目錄下的dsn檔案(dsn為access檔案的dsn)
sql="delete from user where name='B'" '構造刪除SQL語句
cnn.Execute sql '送出SQL
cnn.close
set cnn=nothing
end sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為操縱資料庫(新增內容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub add()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb檔案的dsn
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '開啟目前的目錄下的dsn檔案(dsn為access檔案的dsn)
'sql="insert into user (name,sex,note) values ('tt','tt','tt')" '構造添加SQL語句
'cnn.Execute sql '送出SQL
cnn.close
set cnn=nothing
end sub
%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。