No conecta a la BD usando SqlConnectionStringBuilder... estoy intentando realizar un INSERT INTO en una Base de datos MDF creada en el propio Visual Studio 2008 (no 2005, ojo)
La cuestión es que en la web de elguille.info aparece esto:
Cita:
La cuestión es que cuando va a hacer el INSERT, peta diciendo lo siguiente: Public Function getCadenaConexion() As String
Dim csb As New SqlConnectionStringBuilder ' Manera simple de crear y administrar _
' el contenido de las cadenas de conexión que utiliza la clase SqlConnection
csb.DataSource = "(local)\SQLEXPRESS" ' Nombre o dirección de red de la instancia _
' de SQL Server con la que se va a establecer la conexión
csb.InitialCatalog = "FERIA"
csb.Password = "mi_password"
csb.IntegratedSecurity = True
Return csb.ConnectionString
End Function
Public Function InsertarTitular(ByVal dni As String, _
ByVal nombre As String, _
ByVal apellidos As String) As Integer
Dim strConex As String = getCadenaConexion()
Dim sel As String
MsgBox(strConex)
sel = "INSERT INTO " & "titular" & "(dni_tit, nomb_tit, apell_tit) " & _
"VALUES " & "(@Dni, @Nombre, @Apellidos)"
Using conex As New SqlConnection(strConex)
Dim cmd As New SqlCommand(sel, conex) ' Inicializa una nueva instancia _
' de la clase SqlCommand con el texto de la consulta y una conexión SqlConnection
cmd.Parameters.AddWithValue("@Dni", dni)
cmd.Parameters.AddWithValue("@Nombre", nombre)
cmd.Parameters.AddWithValue("@Apellidos", apellidos)
conex.Open()
Dim t As Integer = CInt(cmd.ExecuteNonQuery()) ' Ejecuta una instrucción _
' de Transact-SQL en la conexión y devuelve el número de filas afectadas
conex.Close()
Return t
End Using
End Function
Dim csb As New SqlConnectionStringBuilder ' Manera simple de crear y administrar _
' el contenido de las cadenas de conexión que utiliza la clase SqlConnection
csb.DataSource = "(local)\SQLEXPRESS" ' Nombre o dirección de red de la instancia _
' de SQL Server con la que se va a establecer la conexión
csb.InitialCatalog = "FERIA"
csb.Password = "mi_password"
csb.IntegratedSecurity = True
Return csb.ConnectionString
End Function
Public Function InsertarTitular(ByVal dni As String, _
ByVal nombre As String, _
ByVal apellidos As String) As Integer
Dim strConex As String = getCadenaConexion()
Dim sel As String
MsgBox(strConex)
sel = "INSERT INTO " & "titular" & "(dni_tit, nomb_tit, apell_tit) " & _
"VALUES " & "(@Dni, @Nombre, @Apellidos)"
Using conex As New SqlConnection(strConex)
Dim cmd As New SqlCommand(sel, conex) ' Inicializa una nueva instancia _
' de la clase SqlCommand con el texto de la consulta y una conexión SqlConnection
cmd.Parameters.AddWithValue("@Dni", dni)
cmd.Parameters.AddWithValue("@Nombre", nombre)
cmd.Parameters.AddWithValue("@Apellidos", apellidos)
conex.Open()
Dim t As Integer = CInt(cmd.ExecuteNonQuery()) ' Ejecuta una instrucción _
' de Transact-SQL en la conexión y devuelve el número de filas afectadas
conex.Close()
Return t
End Using
End Function
Cita:
He estado leyendo en Internet y siempre dicen lo mismo: tu usuario de Windows necesita tener privilegios, aunque hay otra manera de hacerlo para no tener que depender de nadie... Sin embargo, no dicen cómo hacerlo...No se puede abrir la base de datos "FERIA" solicitada por el inicio de sesión. Error de inicio de sesión. Error de inicio de sesión del usuario 'ISRAEL\Isra'.
Me podéis hechar una mano? Es para un proyecto de clase que nos han mandado a última hora y voy a contrarreloj entre este trabajo, varios más, y 2 exámenes...
Muchas gracias de antemano por todo! Un saludo!
