Visual Basic.NET - Error "Imports"

   
Vista:

Error "Imports"

Publicado por Sarah (2 intervenciones) el 18/09/2007 19:49:05
Hola qué tal!? Estoy intentando leer un archivo y debo colocar lo siguiente:

Imports System.Data
Imports System.Data.OleDb

Sin embargo me da error y no reconoce la palabra "Imports".
Me subraya el Imports y me dice que: "Las instrucciones Imports deben preceder a cualquier declaración"

Alguien sabes qué significa este error?
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

Publicado por P. J. (706 intervenciones) el 18/09/2007 22:00:12
"Las instrucciones Imports deben preceder a cualquier declaración"

Tienes algo asi?,

dim strCad as string
Imports System.Data
Imports System.Data.OleDb

Pos eso esta mal, el imports debe ir al inicio.
Sino es asi revisa tus referencias,

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

Publicado por Sarah (2 intervenciones) el 18/09/2007 22:14:08
No no lo tengo así...lo colocqué al principio de la clase (La clase es la de mi ventana....)

No se qué puede estar generando el error
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

Publicado por P. J. (706 intervenciones) el 18/09/2007 22:26:43
Y si pegaras tu codigo para poder verlo?

Recuerda IMPORTS debe ser la primera LINEA de codigo.
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

Publicado por Sarah (2 intervenciones) el 19/09/2007 15:27:45
Hola...ya arreglé lo del Imports....pero me sigue dando error....Me subraya el "my".... No sé qué debo poner (me dice que no se ha declarado la variable 'my'.

Este es el código...Gracias por la ayuda.

Sub ReadCSVFile()

'Obtenemos el delimitador que usa el Sistema
Dim valor As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines\Text", "Format", Nothing)

'Con esto cambias el delimitador del sistema a (,) = coma
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines\Text", "Format", "Delimited(,)")

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=" & Chr(34) & "text;HDR=No;Format=(,)" & Chr(34)
Dim objConn As New OleDbConnection(sConnectionString)

objConn.Open()

Try
Dim objCmdSelect As New OleDbCommand("SELECT * FROM test.csv", objConn)
Dim objAdapter1 As New OleDbDataAdapter

objAdapter1.SelectCommand = objCmdSelect

Dim objDataset1 As New DataSet
objAdapter1.Fill(objDataset1, "Test")
DataGrid1.DataSource = objDataset1.Tables(0) '.DefaultView

Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
objConn.Close()
'Con esto restauramos el delimitador del sistema a como estaba incialmente
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines\Text", "Format", valor)
End Try

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

Publicado por Sarah (3 intervenciones) el 19/09/2007 16:03:05
Coye disculpa que pregunte de nuevo....pero tu sabrás dónde debo colocar el archivo .csv para que el programa lo lea...?

Lo guardé en la carpeta donde está el programa, pero no hace nada porque cuando lo corro aparece la ventana y el datgrid sin niguna info....No se dónde lo tengo que ubicar para que lo lea.

Gracias y disculpa la molestia
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

Publicado por Harold V. (411 intervenciones) el 19/09/2007 18:09:42
Si usas un sub para llamar al archivo, a esto le puedes pasar como parametro la ubicacion de tu archivo csv............

Sub LeerCSV(ruta as string) 'Ejm C:\Tucarpeta\test.csv

Dim info As New FileInfo(ruta)
Dim mPath as string=info.DirectoryName & "\" ' vendria a ser C:\Tucarpeta\

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="& mPath & ";Extended Properties=" & Chr(34) & "text;HDR=No;Format=(,)" & Chr(34)
Dim objConn As New OleDbConnection(sConnectionString)

objConn.Open()

'info.name= Devuelve el nombre del archivo con su extension...
Dim objCmdSelect As New OleDbCommand("SELECT * FROM " & info.name, objConn)
Dim objAdapter1 As New OleDbDataAdapter

etc...............
etc..............

End Sub

en el OleDbCommand he cambiado test.csv por el archivo que viene de la ruta....
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

Publicado por Sarah (5 intervenciones) el 19/09/2007 20:15:13
Muchísimas gracias!!! Funcionó...
el problema es que no me reconoce el "FileInfo"... Lo coloqué manual y funionó perfecto.

Sabes por qué puede ser? =S

Y gracias de verdad!
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

Publicado por Harold V. (411 intervenciones) el 19/09/2007 22:52:14
Hola Sarah, q bueno q te haya servido,,,,,,,,,,,,,,

Con respecto al Fileinfo, debes utilizar el Namespace:

Imports System.IO
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