????????这段ado怎么改成ado.net ??????

Question

dim conn
dim connstr
db="Databases/0791idc.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
-----------------------------------------------------
没学过 asp
server.createobject 对应ado.net的什么 
asp 中的set和let 对应asp.net中的什么呢？ 请帮我改一改

Answer 1

asp 中的set和let 对应asp.net中的什么呢？ sub CloseConn()
conn.close
set conn=nothing
end subasp.net 中，set conn=nothing-------> conn=nothing 至于你所说的 set ,let 应该是在设置类属性时的关键字，与asp很多不同
你连 asp.net也没学过吗？你贴的就是连接数据库的代码。

Answer 2

主要想问rs = Server.CreateObject("ADODB.Recordset")
        sql = "select top 1 content from affiche order by ID desc"
        rs.open(sql, conn, 1, 1)该怎么改ado 和ado.net 感觉有很大不同

Answer 3

这段代码都没有做什么，只是建立连接，然后打开连接！如下：
string strConnection = "provider=Microsoft.Jet.OLEDB.4.0;data source=D:\\Databases\\0791idc.mdb";
  OleDbConnection Connection = new OleDbConnection(strConnection);
  string sql = "select top 1 content from affiche order by ID desc";   Connection.Open();
  OleDbCommand Command = new OleDbCommand(sql,Connection);
  OleDbDataReader Reader = Command.ExecuteReader();
  while(Reader.Read())
  {
  }
  Reader.Close();
  Connection.Close();

Answer 4

Dim con As OleDbConnection
                Dim str As String
                Dim dad As OleDbDataAdapter
                Dim dadstr As String
                Dim dset As New DataSet()
                Dim dtable As DataTable                str = Session("constr")
                con = New OleDbConnection(str)
                dadstr = "select * from employee where employeeid=" & Request.QueryString("employeeid")                dad = New OleDbDataAdapter(dadstr, con)
                dad.Fill(dset, "employee")
                dtable = dset.Tables("employee")
                If Not IsDBNull(dtable.Rows(0).Item("Employee_number")) Then
                    Employee_number.Text = dtable.Rows(0).Item("Employee_number")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Givennames")) Then
                    Givennames.Text = dtable.Rows(0).Item("Givennames")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Surname")) Then
                    Surname.Text = dtable.Rows(0).Item("Surname")
                End If
                bind_ddlb(Gender, "code_gender", "name", "code")
                location(Gender, "")
                If Not IsDBNull(dtable.Rows(0).Item("Gender")) Then
                    location(Gender, dtable.Rows(0).Item("Gender"))
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Dob")) Then
                    dob.Text = Format(CDate(dtable.Rows(0).Item("Dob")), "d/MMM/yyyy")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Position_name")) Then
                    Position_name.Text = dtable.Rows(0).Item("Position_name")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Employment_type")) Then
                    Employment_type.Text = dtable.Rows(0).Item("Employment_type")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Current_FTE")) Then
                    Current_FTE.Text = dtable.Rows(0).Item("Current_FTE")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Home_address")) Then
                    Home_address.Text = dtable.Rows(0).Item("Home_address")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Home_number")) Then
                    Home_number.Text = dtable.Rows(0).Item("Home_number")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Work_number")) Then
                    Work_number.Text = dtable.Rows(0).Item("Work_number")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Fax")) Then
                    Fax.Text = dtable.Rows(0).Item("Fax")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Mobile")) Then
                    Mobile.Text = dtable.Rows(0).Item("Mobile")
                End If
                If Not IsDBNull(dtable.Rows(0).Item("Page1")) Then
                    Page1.Text = dtable.Rows(0).Item("Page1")
                End If
            Else
                bind_ddlb(Gender, "code_gender", "name", "code")
                location(Gender, "")
            End If

Answer 5

http://dev.csdn.net/develop/article/16/16437.shtm