Here is my question: I have a code that work fine with access database and I want to use this code to work with oracle database. I have tried to change the connection string, command object and data reader but I do not seem to have luck yet. Can someone take a look at it and help me to fix this code to work with oracle database.
<%@ import namespace="System.Data.OleDb"%>
<Html>
<Head>
<Title>connecting to a Database using vb</Title></head>
<script runat="server" language="VB">
Dim i As Integer
Dim filename as string
Dim sb as System.Text.StringBuilder
dim cn as OleDbConnection
Dim cmd as OleDbCommand
Dim dr as OleDbDataReader
Dim a as string
Sub Click(ByVal sender as System.Object, ByVal e as System.EventArgs)
cn = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;"& _
"Data Source=c:\Inetpub\ & _
"Dorknozzle.mdb")
filename = "products.csv"
cmd = New OleDbCommand("Select * from employees ",cn)
cmd.Connection.open()
dr = cmd.ExecuteReader()
sb = New System.Text.StringBuilder
'for field name
For i=0 to dr.FieldCount-1
If i < (dr.FieldCount-1) then
sb.Append(Chr(34)&dr.GetName(i)&Chr(34)&",")
Else
sb.Append(Chr(34)&dr.GetName(i)&Chr(34)& VbCrLf)
End If
Next
'for field value
While dr.Read()
For i=0 to dr.FieldCount-1
If i < (dr.FieldCount-1) then
sb.Append(Chr(34)&dr.GetValue(i).ToString & Chr(34)&",")
Else
sb.Append(Chr(34)&dr.GetValue(i).ToString & Chr(34)& VbCrLf)
End if
Next
End while
dr.close()
cn.Close()
Response.ContentType ="Application/x-csv"
Response.AddHeader("content-disposition","attachment;filename="""& filename &"""")
Response.Write(sb.ToString)
Response.End()
End Sub
</script>
<Body>
<form runat="server">
<asp:LinkButton id="btnSubmit" runat="Server" text=" Comma-Separated Values" OnClick="Click"/></p>
</form>
</Body>
</Html>
<%@ import namespace="System.Data.OleDb"%>
<Html>
<Head>
<Title>connecting to a Database using vb</Title></head>
<script runat="server" language="VB">
Dim i As Integer
Dim filename as string
Dim sb as System.Text.StringBuilder
dim cn as OleDbConnection
Dim cmd as OleDbCommand
Dim dr as OleDbDataReader
Dim a as string
Sub Click(ByVal sender as System.Object, ByVal e as System.EventArgs)
cn = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;"& _
"Data Source=c:\Inetpub\ & _
"Dorknozzle.mdb")
filename = "products.csv"
cmd = New OleDbCommand("Select * from employees ",cn)
cmd.Connection.open()
dr = cmd.ExecuteReader()
sb = New System.Text.StringBuilder
'for field name
For i=0 to dr.FieldCount-1
If i < (dr.FieldCount-1) then
sb.Append(Chr(34)&dr.GetName(i)&Chr(34)&",")
Else
sb.Append(Chr(34)&dr.GetName(i)&Chr(34)& VbCrLf)
End If
Next
'for field value
While dr.Read()
For i=0 to dr.FieldCount-1
If i < (dr.FieldCount-1) then
sb.Append(Chr(34)&dr.GetValue(i).ToString & Chr(34)&",")
Else
sb.Append(Chr(34)&dr.GetValue(i).ToString & Chr(34)& VbCrLf)
End if
Next
End while
dr.close()
cn.Close()
Response.ContentType ="Application/x-csv"
Response.AddHeader("content-disposition","attachment;filename="""& filename &"""")
Response.Write(sb.ToString)
Response.End()
End Sub
</script>
<Body>
<form runat="server">
<asp:LinkButton id="btnSubmit" runat="Server" text=" Comma-Separated Values" OnClick="Click"/></p>
</form>
</Body>
</Html>