Exportar .sdf a .txt en visual basic .net

Respuesta de
a
Usuario
Disculpa desarrollo en visual studio 2005 en el lenguaje visual basic, con una aplicación para windows ce 5.0 tengo el dispositivo y ya logro conectar y hacer un programa creando base de datos conectado a sql server compact edition, el problema aquí es que quisiera que lo que hay en la base de datos .SDF convertir el contenido a .txt si se pudiera desde el programa o algo estaría muy bien, investigue sobre como podría hacerle desplegando todo el contenido en un datagrid y de ahí querer ir escribiendo todo en un .txt pero no encuentro nada relacionado a hacer eso quisiera que me ayudaras a hacerlo :( t mando esa parte de código que podría servir solo es la desplegada al datagrid por favor ayudame! Me urge hacerlo amigo
Dim a As New Data.SqlServerCe.SqlCeConnection("Data Source = .\Program Files\otroproyecto\capturas.sdf; Password=; Encrypt DataBase=False;")
a.Open()
view ="select ID,ZAFRA,NUMERO,LOTE,LABOR from captura_valores"
If (Not view.Trim.Equals("")) Then
Try
Adapt =New SqlCeDataAdapter(view, a)
Adapt.Fill(Table)
Me.DataGrid1.DataSource = Table
Catch ex As Exception
End Try
End If
a.Close()
'Table.Rows.Clear()
Avatar
Experto
¿Lo quieres hacer a nivel de visual o de SQL?
Usuario
Que tal amigo, lo quiero hacer a nivel de visual por favor si me puedes agregar la porción de código que a lo mejor me faltaría no se si tu idea también seria recorrer el datagrid y armar el archivo .txt si se puede así por favor incrustame el código necesario de verdad te lo agradecería demasiado experto!
Avatar
Experto
Hola mira te tengo esta solución, asumiendo que el objeto al que te refieres como Table, es un Datatable...
Donde dice Ruta debes de poner la ruta donde quieres que se almacene tu archivo.
Dim a As New Data.SqlServerCe.SqlCeConnection("Data Source = .\Program Files\otroproyecto\capturas.sdf; Password=; Encrypt DataBase=False;") 
a.Open() 
view ="select ID,ZAFRA,NUMERO,LOTE,LABOR from captura_valores" 
If (Not view.Trim.Equals("")) Then 
Try 
Adapt =New SqlCeDataAdapter(view, a) 
Adapt.Fill(Table)
Dim i, k As Integer
Dim aux As String = ""
For i = 0 To Table.Rows.Count - 1
For k = 0 To 4
aux = aux + Table.Rows(i).Item(k) + ", "
Next
Dim objStreamWriter As StreamWriter
objStreamWriter = File.AppendText("Ruta\NombreArchivo.txt")
objStreamWriter.WriteLine(aux)
objStreamWriter.Close()
aux = ""
Next
MsgBox("Se escribio con exito")
Me.DataGrid1.DataSource = Table 
Catch ex As Exception 
End Try 
End If 
a.Close() 
Table.Rows.Clear()
Cualquier cosa me cuentas...
Saludos,
Cristian Perez.
Usuario
Muy bien gracias por todo! Excelente amigo