CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Para Los Que Siguen El Maual..

(1/4) > >>

eliza_marti:
Hola chicos!... :hola: ..Soy Nueva en Visual Basic .net y he estado leyendo el manual que hay en el foro..les cuento que he leido y practicado las 346 primeras páginas y todo bien!.. :) ..hasta que me salté al capítulo 36 de ADO y entonces los ejemplos ya no me funcionaron..sé que algo estoy haciendo mal..pero no sé que es.. :( ..las conexiones no me funcionan..Alguien sería tan amable de enviarme algún código que me pueda funcionar?.. :unsure: ....Bye!.. :hola: ..Suerte... :comp: ..

Snaft_J1:
:huh:  Por que mejor no posteas tu codigo para que lovean y te digan que estas haciendo mal? ;)

sergiotarrillo:
que error te sale, en tiempo de compilacion o en tiempo de ejecucion?

eliza_marti:
Saludos a todos… :hola:  Gracias  Por interesarse en mi pregunta, si leen el código, en la parte que me sale el error, hay un aviso  ….., en esa parte se presenta una pantalla que dice:” An unhandled exception of type System.Data.OleDB.OleDBException ocurred in system.data.dll”… :( ..agregué la referencia system.data.dll y nada..también revisé las dll en el system32..y todo bien!. :unsure: .si estaban!.. la ruta de mi base de datos es la correcta igual que las tablas, la verdad no se que sucede se supone que debe funcionar..porsia estoy utilizando Access 2003 ..aunque no creo que ese sea el motivo del fallo… :( ….Bueno...voy a seguir investigando..pero si alguien puede detectar mi error le estaré muy agradecida..bye! :hola: ..suerte!.. :comp:  ;) ...


Imports System.Data.OleDb

Public Class Form1
Inherits System.Windows.Forms.Form

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' crear conexion
        Dim oConexion As New OleDbConnection
        oConexion = New  OleDbConnectio("Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=c:\Documents and Settings\HOME\Mis documentos\Base_Eli.mdb")
        ' crear comando compuesto por varias consultas
        Dim oComando As New OleDbCommand("SELECT * FROM Clientes; SELECT * FROM Productos", oConexion)
        Dim oDataReader As OleDbDataReader
      
        'ojitos………..aqui me sale el error!!!!!!!!!!!!!!!!!!!
        oConexion.Open()
        oDataReader = oComando.ExecuteReader() ' obtener DataReader
        ' recorrer filas de la primera consulta
        While oDataReader.Read()
            Me.lstClientes.Items.Add(oDataReader("Nombre"))
        End While
        ' pasar a la siguiente consulta y recorrer
        ' las filas
        oDataReader.NextResult()
        While oDataReader.Read()
            Me.lstProductos.Items.Add(oDataReader("Nombre"))
        End While
        oDataReader.Close()
        oConexion.Close()
    End Sub
End Class

sergiotarrillo:
Todo ese codigo cierralo con Try Catch.......
Cuando capturas la excepcion haslo de la siguiente manera:

--- Código: Text --- Try     'aqui el codigo de abajoCatch ex as OledbException     MsgBox("se produjo el sgte error: " & ex.Message.ToString())End Try  [/b]


--- Código: Text ---'ojitos………..aqui me sale el error!!!!!!!!!!!!!!!!!!!oConexion.Open()oDataReader = oComando.ExecuteReader() ' obtener DataReader' recorrer filas de la primera consultaWhile oDataReader.Read()Me.lstClientes.Items.Add(oDataReader("Nombre"))End While' pasar a la siguiente consulta y recorrer' las filasoDataReader.NextResult()While oDataReader.Read()Me.lstProductos.Items.Add(oDataReader("Nombre"))End While  
Comprueba que error te sale y mandalo, porque asimple inspeccion esta bien....

Navegación

[0] Índice de Mensajes

[#] Página Siguiente