none
no se ha inicializado connectionstring RRS feed

  • Pregunta

  • hola este es mi codigo pero me mada un error que dice que no se ha inicilaizado No se ha inicializado la propiedad ConnectionString.

    este es mi codigo. ayuda porfavor.

    Imports

     

    System.IO

    Imports

     

    System.Data

    Imports

     

    System.Data.OleDb

    Imports

     

    System.Data.SqlClient

    Imports

     

    System.Configuration

    Imports

     

    System

    Public

     

    Class importa

     

    Dim da As New OleDb.OleDbDataAdapter(comando)

     

    Dim conexion As New OleDbConnection

     

    Dim comando As New OleDbCommand

     

    Dim adaptador As New OleDbDataAdapter

     

    Private Sub importa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     

    Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ASPEL\DAC\Sistemas Aspel\SAE4.60\SNAT;Extended Properties=Paradox 5.x;"

     

    Dim conn As New OleDbConnection(connstring)

    conn.Open()

     

    comando.CommandText =

    "SELECT * FROM CLIE01"

    comando.Connection = conexion

     

    Dim da As New OleDb.OleDbDataAdapter(comando)

     

    Dim tabla As New DataTable()

    da.Fill(tabla)

    DataGridView1.DataSource = tabla

    conn.Open()

     

     

    End Sub

    End

     

    Class

     

    martes, 13 de julio de 2010 20:14

Respuestas

  • hola

    aun tienes variables globales

    Dim conexion As New OleDbConnection    

    Dim comando As New OleDbCommand

     

    ademas veras que usas

    comando.Connection = conexion

     

    cuadno le asignas la cadena de conexion a

    Dim conn As New OleDbConnection(connstring)

     

    en tu caso deberias hacer

    comando.Connection = conn


    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    • Marcado como respuesta juan11mh martes, 13 de julio de 2010 20:57
    martes, 13 de julio de 2010 20:44

Todas las respuestas

  • hola

    porque a nivel de clase defines estas lienas:

    Dim da As New OleDb.OleDbDataAdapter(comando)

    Dim conexion As New OleDbConnection

    Dim comando As New OleDbCommand

    Dim adaptador As New OleDbDataAdapter


    y despeus dentro del  importa_Load los vuelves a definir

    esto puede estar causando el problema

     

    elimina estas lineas a nivel de clase

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    martes, 13 de julio de 2010 20:21
  • ya lo intente leandro borrando las variables pero me sigue dando el mismo error que dece que no se ha inicializado conectionstring.

     

    mports

     

    System.IO

    Imports

     

    System.Data

    Imports

     

    System.Data.OleDb

    Imports

     

    System.Data.SqlClient

    Imports

     

    System.Configuration

    Imports

     

    System

    Public

     

    Class importa

     

    Dim conexion As New OleDbConnection

     

    Dim comando As New OleDbCommand

     

     

     

    Private Sub importa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     

    Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ASPEL\DAC\Sistemas Aspel\SAE4.60\SNAT;Extended Properties=Paradox 5.x;"

     

    Dim conn As New OleDbConnection(connstring)

    conn.Open()

     

    comando.CommandText =

    "SELECT * FROM CLIE01"

    comando.Connection = conexion

     

    Dim da As New OleDb.OleDbDataAdapter(comando)

     

    Dim tabla As New DataTable()

    da.Fill(tabla)

    DataGridView1.DataSource = tabla

    conn.Open()

     

     

    End Sub

    End

     

    Class

    martes, 13 de julio de 2010 20:33
  • hola

    aun tienes variables globales

    Dim conexion As New OleDbConnection    

    Dim comando As New OleDbCommand

     

    ademas veras que usas

    comando.Connection = conexion

     

    cuadno le asignas la cadena de conexion a

    Dim conn As New OleDbConnection(connstring)

     

    en tu caso deberias hacer

    comando.Connection = conn


    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    • Marcado como respuesta juan11mh martes, 13 de julio de 2010 20:57
    martes, 13 de julio de 2010 20:44
  • gracias me ayudo de mucho tu respuesta.

     

    este es mi codigo y funciona bien:

    Imports

     

    System.IO

    Imports

     

    System.Data

    Imports

     

    System.Data.OleDb

    Imports

     

    System.Data.SqlClient

    Imports

     

    System.Configuration

    Imports

     

    System

    Public

     

    Class importa

     

    Dim comando As New OleDbCommand

     

    Dim adaptador As New OleDbDataAdapter

     

     

     

    Private Sub importa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     

    Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ASPEL\DAC\Sistemas Aspel\SAE4.60\SNAT;Extended Properties=Paradox 5.x;"

     

    Dim conn As New OleDbConnection(connstring)

    conn.Open()

     

    comando.CommandText =

    "SELECT * FROM CLIE01"

    comando.Connection = conn

     

    Dim da As New OleDb.OleDbDataAdapter(comando)

     

    Dim tabla As New DataTable()

    da.Fill(tabla)

    DataGridView1.DataSource = tabla

    conn.Close()

     

     

    End Sub

    End

     

    Class

    martes, 13 de julio de 2010 20:58
  • Hola tengo este error, me podrian ayudar?

    El motor de base de datos Microsoft Jet no pudo encontrar el objeto 'INSUMOS01'. Asegúrese de que el objeto existe, y que ha escrito el nombre y la ruta de acceso al objeto correctamente.

    Lo tengo exactamente como tu pero me sale ese error, gracias

    lunes, 28 de septiembre de 2015 19:16