Question

ADO连接ACCESS数据库的问题

现有Access数据库sdb.mdb中一简单空表stable，有id和stext两个字段。使用ASP技术，写出在网页中如何利用ADO对象与数据库进行连接，并要求使用ADO写出具体语句一次性对该表插入”101”,”asp”和”102”,”ado”两记录，然后再在网页中显示这两行内容。

Answer 1

<%
dim conn,
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("sdb.mdb")
sql1 = "insert into table1 (id,stext) values('101','asp')"
conn.Execute(sql1)
sql2 = "insert into table1 (id,stext) values('102','ado')"
conn.Execute(sql2)
'因为上边说stale是一个空表，也就是说执行完插入记录后，表中只有你刚才插入的那两条记录。
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from stable"
rs.open sql,conn,1,1
Do While Not rs.Eof
Response.Write ("<p>id:"&rs("id")&" stext:"&rs("stext")&"</p>")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>