Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Como Conectar conSQl Server Compact

24/05/2009 - 04:17 por José A. Giménez [Py] | Informe spam
Ayuda Hacer una pregunta
Saludos a todos , tengo un código que funciona bien sobre una base de datos
creada en SQL server.
Cómo puedo hacer para que funcione con SQl Compact Edition? con una base
.sdf?
He intentado buscando en la red, pero no doy con el código.
Este es el código que funciona, pero con SQL Server. Desde ya gracias por la
ayuda

Imports System.Data.SqlClient

Public Class Form1
Public Function CadenaConexion() As String
Dim csb As New SqlConnectionStringBuilder
csb.DataSource = "(local)\SQLEXPRESS"
csb.InitialCatalog = "prueba_SQL"
csb.IntegratedSecurity = True
Return csb.ConnectionString
End Function

Public Function Insertar(ByVal nombre As String, _
ByVal apellidos As String, _
ByVal email As String, _
ByVal fecha As DateTime, _
ByVal descripcion As String) As Integer
Dim sCon As String = CadenaConexion()
Dim sel As String
Dim NombreTabla As String
NombreTabla = "Tabla1"
sel = "INSERT INTO " & NombreTabla & _
"(Nombre, Apellidos, Email, Fecha, Descripcion) " & _
"VALUES " & _
"(@Nombre, @Apellidos, @Email, @Fecha, @Descripcion) " & _
"SELECT @@Identity"

Using con As New SqlConnection(sCon)
Dim cmd As New SqlCommand(sel, con)
cmd.Parameters.AddWithValue("@Nombre", nombre)
cmd.Parameters.AddWithValue("@Apellidos", apellidos)
cmd.Parameters.AddWithValue("@Email", email)
cmd.Parameters.AddWithValue("@Fecha", fecha)
cmd.Parameters.AddWithValue("@Descripcion", descripcion)

con.Open()
Dim t As Integer = CInt(cmd.ExecuteScalar())
con.Close()
Return t

End Using
End Function

email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 mp
25/05/2009 - 18:48 | Informe spam
Soy nuevo en el desarrollo .NET , pero tengo este codigo para conectar a una
BD para una PDA , espero te sirva.
Saludos
MP
// para saber en donde se encuentra la BD

string pathDir =
System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase);

string pathDB = System.IO.Path.Combine(pathDir, "lista.sdf");

string connectionString = string.Empty;

connectionString = string.Format(@"DataSource={0}", pathDB);

// crear objeto conexion

SqlCeConnection conn = new SqlCeConnection(connectionString);

"José A. Giménez [Py]" <gimenezj(arroba)hotmail(punto)com> escribió en el
mensaje news:%
Saludos a todos , tengo un código que funciona bien sobre una base de
datos creada en SQL server.
Cómo puedo hacer para que funcione con SQl Compact Edition? con una base
.sdf?
He intentado buscando en la red, pero no doy con el código.
Este es el código que funciona, pero con SQL Server. Desde ya gracias por
la ayuda

Imports System.Data.SqlClient

Public Class Form1
Public Function CadenaConexion() As String
Dim csb As New SqlConnectionStringBuilder
csb.DataSource = "(local)\SQLEXPRESS"
csb.InitialCatalog = "prueba_SQL"
csb.IntegratedSecurity = True
Return csb.ConnectionString
End Function

Public Function Insertar(ByVal nombre As String, _
ByVal apellidos As String, _
ByVal email As String, _
ByVal fecha As DateTime, _
ByVal descripcion As String) As Integer
Dim sCon As String = CadenaConexion()
Dim sel As String
Dim NombreTabla As String
NombreTabla = "Tabla1"
sel = "INSERT INTO " & NombreTabla & _
"(Nombre, Apellidos, Email, Fecha, Descripcion) " & _
"VALUES " & _
"(@Nombre, @Apellidos, @Email, @Fecha, @Descripcion) " & _
"SELECT @@Identity"

Using con As New SqlConnection(sCon)
Dim cmd As New SqlCommand(sel, con)
cmd.Parameters.AddWithValue("@Nombre", nombre)
cmd.Parameters.AddWithValue("@Apellidos", apellidos)
cmd.Parameters.AddWithValue("@Email", email)
cmd.Parameters.AddWithValue("@Fecha", fecha)
cmd.Parameters.AddWithValue("@Descripcion", descripcion)

con.Open()
Dim t As Integer = CInt(cmd.ExecuteScalar())
con.Close()
Return t

End Using
End Function



Preguntas similares

 

Busqueda sugerida :