RobertSims
06-19-2006, 09:48 AM
The code below uses an MS Access Database. I am attempting to use DataGrids to display the data; however, I think I am not initializing the DataGrids properly. Can someone teach a new dog a new trick?
Thanks!
--Robert
<%@ Page Language="VB" Debug="true" %>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDB" %>
<script runat="server">
sub Page_Load(Sender as object, e as eventargs)
dim objConn as new OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\inetpub\wwwroot\intranet2\data\phonelist\phones.mdb")
dim objCmd as new OleDbDataAdapter ("select * from phonelist", objConn)
dim ds as new DataSet
objCmd.Fill(ds, "phonelist")
try
objCmd.Connection.Open()
objReader = objCmd.ExecuteReader
catch ex as OleDbException
end try
DataGrid1.DataSource = ds
DataGrid1.DataBind()
end sub
</script>
Thanks!
--Robert
<%@ Page Language="VB" Debug="true" %>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDB" %>
<script runat="server">
sub Page_Load(Sender as object, e as eventargs)
dim objConn as new OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\inetpub\wwwroot\intranet2\data\phonelist\phones.mdb")
dim objCmd as new OleDbDataAdapter ("select * from phonelist", objConn)
dim ds as new DataSet
objCmd.Fill(ds, "phonelist")
try
objCmd.Connection.Open()
objReader = objCmd.ExecuteReader
catch ex as OleDbException
end try
DataGrid1.DataSource = ds
DataGrid1.DataBind()
end sub
</script>