Error al conectar a la base PPC

27/01/2005 - 15:52 por Carmen Calderon | Informe spam
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
 

Leer las respuestas

#1 José Miguel Torres
27/01/2005 - 15:56 | Informe spam
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

Preguntas similares