-
Reading from Excel
How do I read from an Excel file? How should the code be compared to the code of reading from Access?
Code:
Protected Sub bindKomponenter()
Dim strCn As String = "Provider=Microsoft.jet.oledb.4.0;"
strCn += "Data Source=" & Server.MapPath("priser04.mdb") & ";"
Dim cn As OleDbConnection = New OleDbConnection(strCn)
Dim cmdText As String = "Select komponenter.Id as kompId, komponenter.Komponent FROM komponenter,materiale_komponenter WHERE materiale_komponenter.kompId=komponenter.id AND materiale_komponenter.MatId=" & intMatNr
Dim cmd As OleDbCommand = New OleDbCommand(cmdText, cn)
cmd.Connection.Open()
komp1.DataSource = cmd.ExecuteReader()
komp1.DataValueField = "kompId"
komp1.DataTextField = "Komponent"
komp1.DataBind()
cmd.Connection.Close()
cmd.Connection.Open()
komp2.DataSource = cmd.ExecuteReader()
komp2.DataValueField = "kompId"
komp2.DataTextField = "Komponent"
komp2.DataBind()
cmd.Connection.Close()
End Sub
-
I have this code for ASP 3.0. Can anyone help me making it work in ASP.Net?
Code:
<%
'Name of the excel file being displayed
exceldb="test.xls"
' Create a server connection object
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DBQ=" & Server.MapPath(exceldb) & ";" & _
"DRIVER={Microsoft Excel Driver (*.xls)};"
' Create a server recordset object
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from hpl"
' Execute the sql
rs.Open sql, cn
dim hpl1
hpl1= rs("Price")
Response.Write(hpl1)
Response.Write("<table border=1 align=center>")
For counter = 0 To rs.fields.count - 1
Response.Write("<th>")
' Write out the field names
response.write rs.fields.item(counter).name
Response.Write("</th>")
' Move to the next field
next
' Move to the first record
rs.movefirst
'Write out the record set
do while not rs.eof
response.write("<tr>")
' Loop through all of the fileds
for counter = 0 to rs.fields.count - 1
Response.Write("<td align=right>")
' Write out the field values
response.write rs.fields.item(counter).value
Response.Write("</td>")
' Move to the next field
next
Response.Write("</tr>")
' Move to the next record
rs.movenext
loop
Response.Write("</table>")
' Kill the recordset
rs.close
Set rs = nothing
' Kill the connection
cn.close
Set cn = nothing
%>