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
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


0