Error al conectar a la base PPC

A priori el código está bien, prueba en poner además de Exception,
SqlCeException, a ver si te da mas información del error.

saludos


José Miguel Torres
jtorres_diaz~~ARROBA~~terra.es
http://jmtorres.blogspot.com


"Carmen Calderon" escribió en el mensaje
news:164e01c5047f$c7ba4c00$
Tengo esta función que esta generandome un error pero no
me lo muestra... alguien tiene alguna idea?

Saludos,



Carmen



Public Function Conectar() As Boolean

If constring = "" Then

constring = "Data Source = ViMed.sdf;"

End If

Dim conn As New SqlCeConnection(constring)

Dim myInsertQuery As String = "INSERT INTO Salas (Codigo,
Nombre) Values(156, 'Prueba1')"

Dim comm As New SqlCeCommand(myInsertQuery)

Try

comm.Connection = conn

conn.Open()

comm.ExecuteNonQuery()

Conectar = True

Catch ex As Exception

MessageBox.Show(ex.Message, "Error al abrir conexion")

Conectar = False

Finally

comm.Connection.Close()

End Try

End Function

Realice lo que tu me dijiste y ahora si me muestra el
error:

The database file cannot be found. Check the path to the
database. [,,,Filename,,]

en mi emulador yo veo que mi base de datos esta en la
siguiente ruta: "\my documents\ViMed". También
especificando de esta manera me da error de que no
encuentra la base de datos. Qué me hace falta?

A priori el código está bien, prueba en poner además de

Exception,

SqlCeException, a ver si te da mas información del error.

saludos


José Miguel Torres
jtorres_diaz~~ARROBA~~terra.es
http://jmtorres.blogspot.com


"Carmen Calderon" escribió

en el mensaje

news:164e01c5047f$c7ba4c00$
Tengo esta función que esta generandome un error pero no
me lo muestra... alguien tiene alguna idea?

Saludos,



Carmen



Public Function Conectar() As Boolean

If constring = "" Then

constring = "Data Source = ViMed.sdf;"

End If

Dim conn As New SqlCeConnection(constring)

Dim myInsertQuery As String = "INSERT INTO Salas (Codigo,
Nombre) Values(156, 'Prueba1')"

Dim comm As New SqlCeCommand(myInsertQuery)

Try

comm.Connection = conn

conn.Open()

comm.ExecuteNonQuery()

Conectar = True

Catch ex As Exception

MessageBox.Show(ex.Message, "Error al abrir conexion")

Conectar = False

Finally

comm.Connection.Close()

End Try

End Function


.

Realice lo que tu me dijiste y ahora si me muestra el
error:

The database file cannot be found. Check the path to the
database. [,,,Filename,,]

en mi emulador yo veo que mi base de datos esta en la
siguiente ruta: "\my documents\ViMed". También
especificando de esta manera me da error de que no
encuentra la base de datos. Qué me hace falta?

A priori el código está bien, prueba en poner además de

Exception,

SqlCeException, a ver si te da mas información del error.

saludos


José Miguel Torres
jtorres_diaz~~ARROBA~~terra.es
http://jmtorres.blogspot.com


"Carmen Calderon" escribió

en el mensaje

news:164e01c5047f$c7ba4c00$
Tengo esta función que esta generandome un error pero no
me lo muestra... alguien tiene alguna idea?

Saludos,



Carmen



Public Function Conectar() As Boolean

If constring = "" Then

constring = "Data Source = ViMed.sdf;"

End If

Dim conn As New SqlCeConnection(constring)

Dim myInsertQuery As String = "INSERT INTO Salas (Codigo,
Nombre) Values(156, 'Prueba1')"

Dim comm As New SqlCeCommand(myInsertQuery)

Try

comm.Connection = conn

conn.Open()

comm.ExecuteNonQuery()

Conectar = True

Catch ex As Exception

MessageBox.Show(ex.Message, "Error al abrir conexion")

Conectar = False

Finally

comm.Connection.Close()

End Try

End Function


.

Estas segura de que:
constring = "Data Source = \My Documents\ViMed.sdf;"

está así???






"Carmen Calderon" escribió en el
mensaje news:177401c50496$240b4110$
Realice lo que tu me dijiste y ahora si me muestra el
error:

The database file cannot be found. Check the path to the
database. [,,,Filename,,]

en mi emulador yo veo que mi base de datos esta en la
siguiente ruta: "\my documents\ViMed". También
especificando de esta manera me da error de que no
encuentra la base de datos. Qué me hace falta?

A priori el código está bien, prueba en poner además de

Exception,

SqlCeException, a ver si te da mas información del error.

saludos


José Miguel Torres
jtorres_diaz~~ARROBA~~terra.es
http://jmtorres.blogspot.com


"Carmen Calderon" escribió

en el mensaje

news:164e01c5047f$c7ba4c00$
Tengo esta función que esta generandome un error pero no
me lo muestra... alguien tiene alguna idea?

Saludos,



Carmen



Public Function Conectar() As Boolean

If constring = "" Then

constring = "Data Source = ViMed.sdf;"

End If

Dim conn As New SqlCeConnection(constring)

Dim myInsertQuery As String = "INSERT INTO Salas (Codigo,
Nombre) Values(156, 'Prueba1')"

Dim comm As New SqlCeCommand(myInsertQuery)

Try

comm.Connection = conn

conn.Open()

comm.ExecuteNonQuery()

Conectar = True

Catch ex As Exception

MessageBox.Show(ex.Message, "Error al abrir conexion")

Conectar = False

Finally

comm.Connection.Close()

End Try

End Function


.