Foros del Web » Programación para mayores de 30 ;) » .NET »

Error de Conexion en SmartDevice

Estas en el tema de Error de Conexion en SmartDevice en el foro de .NET en Foros del Web. Buenos días, no estoy seguro si el tema debería ir aquí, si es asi lo siento. Tengo un problema que mes está volviendo loco, el ...
  #1 (permalink)  
Antiguo 28/07/2011, 03:09
cRz87
Invitado
 
Mensajes: n/a
Puntos:
Error de Conexion en SmartDevice

Buenos días, no estoy seguro si el tema debería ir aquí, si es asi lo siento.
Tengo un problema que mes está volviendo loco, el caso es que estoy haciendo un proyecto SmartDevice en Visual Studio 2008 con SQL Server CE.
He buscado en todos sitios y cada vez que inicio la emulación en la PDA me da error de conexión.
Desde la PDA puedo ver los registros de la tabla, pero en cambio en los combobox que tengo no se me cargan, no se si será porque la ruta de la BD está mal.
Este es el codigo:

Imports System.Data
Imports System.Data.SqlServerCe

Public Class Fsessio
Dim con As SqlCeConnection
Private Sub Fsessio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim con As SqlCeConnection
Dim cadena As String = "Data Source = " + System.IO.Path.GetDirectoryName(System.Reflection. Assembly.GetExecutingAssembly().GetName().CodeBase .ToString()) + "\casaametller_complements.sdf"

con = New SqlCeConnection(cadena)
con = New SqlCeConnection("casaametller_complements.sdf")
con.Open()
Dim cmd As SqlCeCommand = con.CreateCommand
cmd.CommandText = "SELECT Nom FROM ca_ab_centres ORDER BY Nom"
Dim da As New SqlCeDataAdapter(cmd)
Dim ds As New DataSet
da.Fill(ds)
Cbbotigues.ValueMember = "Nom"
Cbbotigues.DisplayMember = "Codi"
Me.Cbbotigues.DataSource = ds.Tables(0)
con.Close()
Catch ex As Exception
MsgBox("Error de Connexió")
End Try
Try

con = New SqlCeConnection
con.ConnectionString = "Data Source=C:\Documents and Settings\programador\Mis documentos\Visual Studio 2008\Projects\Inventari\Inventari\casaametller_com plements.sdf"
con.Open()
Dim cmd As SqlCeCommand = con.CreateCommand
cmd.CommandText = "SELECT Nom FROM ca_ab_venedors"
Dim da As New SqlCeDataAdapter(cmd)
Dim ds As New DataSet
Dim dr As Data.DataRow
da.Fill(ds, "ca_ab_venedors")
For Each dr In ds.Tables("ca_ab_venedors").Rows
CBusuaris.Items.Add(dr("Nom"))
Next
Catch ex As Exception
MsgBox("Error de Connexió 1")
con.Close()
End Try
End Sub
End Class

He hecho dos pruebas, una con la ruta en teoria de la bd de la pda y la otra con la ruta de la bd en el pc, pero nada de nada, espero que puedan ayudarme.

Gracias y Saludos,
  #2 (permalink)  
Antiguo 01/08/2011, 06:32
cRz87
Invitado
 
Mensajes: n/a
Puntos:
Respuesta: Error de Conexion en SmartDevice

Solucionado! les dejo el código por si a alguien le interesa, aora tengo otro problema y es q n inserta datos en la tabla...
Aqui va:

Try
Dim cadena As String = "Data Source = " + System.IO.Path.GetDirectoryName(System.Reflection. Assembly.GetExecutingAssembly().GetName().CodeBase .ToString()) + "\nombre_origen_datos.sdf"

con = New SqlCeConnection(cadena)
con.Open()
Dim cmd As SqlCeCommand = con.CreateCommand
cmd.CommandText = "Consulta_SQL"
Dim da As New SqlCeDataAdapter(cmd)
Dim ds As New DataSet
Dim dr As Data.DataRow
da.Fill(ds, "nombre_tabla")
For Each dr In ds.Tables("Nombre_tabla").Rows
ComboBox.Items.Add(dr("campo_tabla"))
Next
Catch ex As Exception
MsgBox("Error de Conexión")
con.Close()
End Try

Etiquetas: bd, conexion, sql, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 03:24.