Visual Basic.NET - Error en clase

 
Vista:

Error en clase

Publicado por Christian (174 intervenciones) el 28/07/2004 19:45:48
Hola,

Este codigo me da error donde lo marque con * ya que me dice que tengo un problema de no referenciar al objeto.

Imports System
Imports Microsoft.Win32
Public Class IngresoODBC
Public DATOS() As String

Public Function Obtener() As String()
Dim sValue As String
Dim X As Integer
Dim pRegKey As RegistryKey = Registry.LocalMachine
pRegKey = pRegKey.OpenSubKey("Software\ODBC\ODBC.INI\ODBC Data Sources")
For Each sValue In pRegKey.GetValueNames()
*** DATOS(X) = sValue*
X = X + 1
Return DATOS
Next
End Function

End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error en clase

Publicado por Edgar (1501 intervenciones) el 28/07/2004 19:55:47
Te falta escribit una linea que diga algo como Datos = new string(DIMENSION)

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error Con clase

Publicado por Christian (174 intervenciones) el 28/07/2004 20:04:15
Hola,
me da el siguiente error que si bien me esta dando en otro lado es el mismo que me daba en el anterior valor.
te paso los codigos de la dll y su correspondiente instancia en el formulario de windows.
'--Referencia a objeto no establecida como instancia de un objeto--'

-----------------------Clase
Imports System
Imports Microsoft.Win32
Public Class IngresoODBC
Public DATOS() As String

Public Function Obtener() As String()
Dim sValue As String
datos = new string()
Dim X As Integer
Dim pRegKey As RegistryKey = Registry.LocalMachine
pRegKey = pRegKey.OpenSubKey("Software\ODBC\ODBC.INI\ODBC Data Sources")
For Each sValue In pRegKey.GetValueNames()
DATOS(X) = sValue
X = X + 1
Return DATOS
Next
End Function

End Class
-----------------formulario
Dim Iodbc As New DLL_de_ODBC.IngresoODBC()
Dim DATO() As String
Dim X As Integer
Iodbc.Obtener()
Me.ComboBox1.Items.Clear()
For X = 1 To Iodbc.DATOS.Length
Me.ComboBox1.Items.Add(Iodbc.DATOS(X))
Next
Me.ComboBox1.SelectedIndex = 0
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error Con clase

Publicado por Edgar (1501 intervenciones) el 28/07/2004 20:20:27
Hola

Por una parte.. en el codigo del formulario debes poner Datos = lodbc.Obtener, por otra parte, al hacer DATOS=new String debes darle la dimension del arreglo.

Espero que te sirva

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error Con clase

Publicado por christian (174 intervenciones) el 28/07/2004 20:43:03
Hola,

hice lo que me pediste pero sigue dando errores como el que te puese amteriormente.

Si se te ocurre algo o quieres probar tu el codigo para verlo, seria genial.

Saludos
christian
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error Con clase

Publicado por Edgar (1501 intervenciones) el 28/07/2004 21:21:46
Haz algo mas sencillo, el metodo GetValueNames te devuelve un arreglo de strings... no hagas un foreach si puedes devolver este valor

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar