Conexion Con access.

pebe · #1 (**permalink**) 15/01/2005, 14:59

Hola estoy teniendo un problema a tartar de conectarme con la base de datos de Access, Mi codigo es este:

Sub Page_load(Sender As Object, E As EventArgs)
if Not IsPostback then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DsPagaData as New DataSet
DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0; " & "DATA SOURCE=" & Server.MapPath("C:\Inetpub\wwwroot\ddlBD.mdb;"))
DBCommand = New OleDbDataAdapter("Select * From Departaments Order By DeptName",DBConn)
DBCommand.Fill= (DSPageData,"Departaments")
ddlDepartaments.DataSource= DSPageData.Tables("Departaments").DefaultView
ddlDepartaments.DataBind()
end If

End Sub

Y el Error que me da es este:

Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30516: Overload resolution failed because no accessible 'Fill' accepts this number of arguments.

Source Error:

Line 11: DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0; " & "DATA SOURCE=" & Server.MapPath("C:\Inetpub\wwwroot\ddlBD.mdb;"))
Line 12: DBCommand = New OleDbDataAdapter("Select * From Departaments Order By DeptName",DBConn)
Line 13: DBCommand.Fill= (DSPageData,"Departaments")
Line 14: ddlDepartaments.DataSource= DSPageData.Tables("Departaments").DefaultView
Line 15: ddlDepartaments.DataBind()

Source File: C:\InetPub\wwwroot\conexion.aspx Line: 13

Les agradeceria me echaran la mano Gracias.

utility · #2 (**permalink**) 16/01/2005, 05:50

'Declaramos las variables a utilizar
Dim strConexion As String
Dim DBConn As OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DsPagaData as New DataSet
'Iniciamos el proceso de acceso a la fuente de datos
'Elimina el caracter _ si lo pones todo en una linea
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & _
server.MapPath("ddlBD.mdb")
DBConn = New OleDbConnection(strConexion)
'Elimina el caracter _ si lo pones todo en una linea
DBCommand = New OleDbDataAdapter("Select * From Departaments Order By _
DeptName",DBConn)
DBCommand.Fill= (DSPageData,"Departaments")
ddlDepartaments.DataSource= DSPageData
ddlDepartaments.DataBind()
DBConn.Close()

pebe · #3 (**permalink**) 16/01/2005, 21:25

Hola ya hize los cambios pero no me sigue marcando el mismo error que puede ser . Gracias

pebe · #4 (**permalink**) 16/01/2005, 21:53

Hola, Le quiero comentar que no pude hacerlo funcionar con la forma anterior pero dentro de webmatrix hay una funciona para crear las conexiones , Lo que hace el siguiente script es una consulta a la base de datos de deparatmentos y los trae a un control de dropdownlist, les anexo el codigo:

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OLEDB" %>
<script runat="server">

Sub Page_load(Sender as Object, E as EventArgs)

If Not IsPostBack Then

Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\wwwroot\ddlBD.mdb"

Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString )

Dim queryString As String = "SELECT [Departaments].[DeptId], [Departaments].[DeptName] FROM [Departaments]"

Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand

dbCommand.CommandText = queryString

dbCommand.Connection = dbConnection

Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter

dataAdapter.SelectCommand = dbCommand

Dim dataSet As System.Data.DataSet = New System.Data.DataSet

dataAdapter.Fill(dataSet)

ddlDepartaments.DataSource= dataSet

ddlDepartaments.DataBind()

end If

End Sub

</script>
<html>
<head>
</head>
<body>
<form runat="server" method="POST">
<br />
<br />
<asp:Label id="lblDataSelected" runat="server"></asp:Label>
<br />
<br />
<asp:dropdownlist id="ddlDepartaments" runat="server" datatextfield="DeptName" datavaluefield="DeptID"></asp:dropdownlist>
<br />
<br />
<asp:button id="butok" runat="server" onServerClick="SumbitBtn_Click" text="Enviar" />
</form>
</body>
</html>

xknown · #5 (**permalink**) 16/01/2005, 22:04

Hola, una pregunta, y que falla del último código que enviaste?

De los anteriores códigos que envias corrige esta línea:

Código:

DBCommand.Fill= (DSPageData,"Departaments")

por:

Código:

DBCommand.Fill(DSPageData,"Departaments")

Para que te muestre los datos te falta asignar las propiedades DataTextField y DataValueField, básicamente estas propiedades te sirven para indicar que se va a mostrar en el dropdownlist (Ej. nombre de un producto) y el otro para indicar el valor (Ej. el id de algun producto) respectivamente.

Saludos

Saludos

pebe · #6 (**permalink**) 17/01/2005, 08:44

Gracias Xknow , hice el cambio y especifique las propiedades en el DDL y comoquiera me marca el error, tienes algun ejemplo hecho que funcione correctamente que me puedas mostrar, Gracias y espero tu respuesta.

xknown · #7 (**permalink**) 17/01/2005, 09:12

Hola, aquí te envío el ejemplo, el nombre de la tabla es foo(id, nombre):

Código:

<%@ Page Language="VB" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI" Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral, PublicKeyToken=6f763c9966660626" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
    Sub Page_Load(sender As Object, e As EventArgs)
        if Not IsPostBack then
            Dim command as new OleDbCommand("select id, nombre from foo", _
                new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd2.mdb")))
            command.Connection.Open()
            ddlDepartaments.DataTextField = "Nombre"
            ddlDepartaments.DataValueField = "ID"
            ddlDepartaments.DataSource=command.ExecuteReader(CommandBehavior.CloseConnection)
            ddlDepartaments.DataBind()
        End If
    End Sub
</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <asp:DropDownList id="ddlDepartaments" runat="server"></asp:DropDownList>
    </form>
</body>
</html>

Saludos

pebe · #8 (**permalink**) 17/01/2005, 12:03

Muchas Gracias xknown Funciono a la primera, Gracias por tu ayuda.