Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/07/2009, 16:28
razeus
 
Fecha de Ingreso: abril-2007
Mensajes: 71
Antigüedad: 17 años, 6 meses
Puntos: 0
Mensaje Consulta a Bases MSSQL con .NET

Hola, tengo un problema que no me genera ninguna consulta el siguiente código:

<htmlxmlns="http://www.w3.org/1999/xhtml">
<
headrunat="server">
</head>
<
body>
<formid="form1"runat="server">
<div>
Resultado de la consulta:
<asp:DropDownListID="DropDownList1"runat="server"AutoPostBack="True">
</asp:DropDownList>
</div>
</form>
</
body>
</
html>

Y el código que aparece en VB es el siguiente:

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
PartialClass db1
Inherits System.Web.UI.Page

Sub Page_Load(ByVal Sender AsObject, ByVal E As EventArgs)
'SELECT EstadoID, Nombre_Estado FROM Estado Order by Nombre_Estado Asc"
Dim objConn AsNew Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\RA\Documents\Visual Studio 2008\WebSites\WebSite1\App_Data\be.mdb")
Dim objAdapter AsNew Data.OleDb.OleDbDataAdapter("SELECT EstadoID, Nombre_Estado FROM Estado", objConn)
Dim objDataSet AsNew Data.DataSet()
objConn.Open()
objAdapter.Fill(objDataSet, "Estado")
DropDownList1.DataSource = objDataSet.Tables("Estado")
DropDownList1.DataTextField = "Nombre_Estado"
DropDownList1.DataValueField = "EstadoID"
DropDownList1.DataBind()
DropDownList1.Items.Insert(0, "Seleccione un item")
DropDownList1.SelectedIndex = 0
objConn.Close()
EndSub
End
Class

Gracias por guiarme en esto que estoy realmente confundido, ya que debería funcionar pero no da ningún resultado, la tabla existe, la base existe y no hay errores de compilación :S:S
__________________
Zona Hosting - Hosting Windows y Linux - Registros de dominios.