神马品牌网副部级退休年龄:拜托各位高人给小弟一串vb.net的数据库连接代码
来源：百度文库 编辑：神马品牌网 时间：2024/05/08 04:29:56
就象asp里面这样的：
<%
set conn=server.CreateObject("adodb.connection")
connsrt="dbq="+server.MapPath("..\db\#db.mdb")+";driver={microsoft access driver (*.mdb)};"
conn.open connsrt
sql="select * from news"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
rs.addnew
rs("title")=request("title")
rs("content")=request("content")
rs.update
%>
这位大哥，我想弄成这样的：rs("XX")=xx.text
<%
set conn=server.CreateObject("adodb.connection")
connsrt="dbq="+server.MapPath("..\db\#db.mdb")+";driver={microsoft access driver (*.mdb)};"
conn.open connsrt
sql="select * from news"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
rs.addnew
rs("title")=request("title")
rs("content")=request("content")
rs.update
%>
这位大哥，我想弄成这样的：rs("XX")=xx.text
Dim conn As OledbConnection = New OledbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("..\db\#db.mdb"))
Dim cmd As OledbCommand = new OledbCommand
cmd.CommandText = "insert into news(title, content) values ('" & Request("title") & "','" & Request("content") & "')"
cmd.Connection = conn
conn.Open
cmd.ExecuteNoQuery
conn.Close
conn.Dispose