Acceso a Datos sql server vb .net 2005

26/06/2006 - 13:01 por Hugo Gsell | Informe spam
Hola. Tengo dos proyectos (Soluciones) una que hice en casa y otra en el
trabajo.
Me traje la de casa para el trabajo.
El proyecto de casa funciona bien.
el proyecto del trabajo donde pegué el mismo código NO FUNCIONA.
Por el error que me tira es algun problema de seguridad en la configuracion
del proyecto.
Pero no encuentro la cosa-.
El error es:
********
Error de solicitud de permiso de tipo
'System.Data.SqlClient.SqlClientPermission, System.Data, Version=2.0.0.0,
Culture=neutral, PublicKeyToken=b77a5c561934e089'.
********
El código es:
*********
Public Class Form1
Private dt As DataTable
Private da As SqlDataAdapter
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim sCnn As String = "server=desarrollo1\SQLEXPRESS; database=wkf;
user id=desarrolladores; password4679"
Dim cnn As New SqlConnection(sCnn)
' La cadena de selección
Dim sSel As String = "SELECT * FROM Usuarios ORDER BY idusuario"
' Para traer solo los registros entre dos fechas
'sSel = "SELECT * FROM Prueba WHERE (FechaAlta >= '2006/02/01' AND
FechaAlta <= '2006/02/05')"
'
' Comprobar si hay algún error
Try
' Crear un nuevo objeto del tipo DataAdapter
da = New SqlDataAdapter(sSel, cnn)
' Crear los comandos de insertar, actualizar y eliminar
Dim cb As New SqlCommandBuilder(da)
' Como hay campos con caracteres especiales,
' al usarlos incluirlos entre corchetes.
cb.QuotePrefix = "["
cb.QuoteSuffix = "]"
' Asignar los comandos al DataAdapter
' (se supone que lo hace automáticamente, pero...)
da.UpdateCommand = cb.GetUpdateCommand()
da.InsertCommand = cb.GetInsertCommand()
da.DeleteCommand = cb.GetDeleteCommand()
'
' Esta base de datos usa el ID con valores automáticos
da.MissingSchemaAction = MissingSchemaAction.AddWithKey
'
dt = New DataTable
' Llenar la tabla con los datos indicados
da.Fill(dt)
'
' Y mostrar el primer registro
If dt.Rows.Count > 0 Then

Dim dr As DataRow = dt.Rows(0)
'txtID.Text = dr("IDusuario").ToString
MsgBox(dr("Nombre").ToString)
'txtEmail.Text = dr("contrasena").ToString
'txtFechaAlta.Text = dr("FechaAlta").ToString
'txtComentario.Text = dr("contrasena").ToString
'
'btnActualizar.Enabled = True
'btnEliminar.Enabled = True
Else
MsgBox("NO hay nada")
End If

Catch ex As Exception
MessageBox.Show("ERROR al conectar o recuperar los datos:" &
vbCrLf & _
ex.Message, "Conectar con la base", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub
End Class

Preguntas similare

Leer las respuestas

#1 Hugo Gsell
26/06/2006 - 14:02 | Informe spam
ya pude afinar mas el problema.
Si creo una aplicación nueva (proyecto nuevo) hago un form y un boton. pego
el código y funciona...
hago guardar el proyecto en otra carpeta con otro nombre ejecuto y YA NO
FUNCIONA.
Hugo A. Gsell
Sgo del Estero
Argentina

"Hugo Gsell" escribió en el mensaje
news:uW$
Hola. Tengo dos proyectos (Soluciones) una que hice en casa y otra en el
trabajo.
Me traje la de casa para el trabajo.
El proyecto de casa funciona bien.
el proyecto del trabajo donde pegué el mismo código NO FUNCIONA.
Por el error que me tira es algun problema de seguridad en la
configuracion del proyecto.
Pero no encuentro la cosa-.
El error es:
********
Error de solicitud de permiso de tipo
'System.Data.SqlClient.SqlClientPermission, System.Data, Version=2.0.0.0,
Culture=neutral, PublicKeyToken·7a5c561934e089'.
********
El código es:
*********
Public Class Form1
Private dt As DataTable
Private da As SqlDataAdapter
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim sCnn As String = "server=desarrollo1\SQLEXPRESS; database=wkf;
user id=desarrolladores; password4679"
Dim cnn As New SqlConnection(sCnn)
' La cadena de selección
Dim sSel As String = "SELECT * FROM Usuarios ORDER BY idusuario"
' Para traer solo los registros entre dos fechas
'sSel = "SELECT * FROM Prueba WHERE (FechaAlta >= '2006/02/01' AND
FechaAlta <= '2006/02/05')"
'
' Comprobar si hay algún error
Try
' Crear un nuevo objeto del tipo DataAdapter
da = New SqlDataAdapter(sSel, cnn)
' Crear los comandos de insertar, actualizar y eliminar
Dim cb As New SqlCommandBuilder(da)
' Como hay campos con caracteres especiales,
' al usarlos incluirlos entre corchetes.
cb.QuotePrefix = "["
cb.QuoteSuffix = "]"
' Asignar los comandos al DataAdapter
' (se supone que lo hace automáticamente, pero...)
da.UpdateCommand = cb.GetUpdateCommand()
da.InsertCommand = cb.GetInsertCommand()
da.DeleteCommand = cb.GetDeleteCommand()
'
' Esta base de datos usa el ID con valores automáticos
da.MissingSchemaAction = MissingSchemaAction.AddWithKey
'
dt = New DataTable
' Llenar la tabla con los datos indicados
da.Fill(dt)
'
' Y mostrar el primer registro
If dt.Rows.Count > 0 Then

Dim dr As DataRow = dt.Rows(0)
'txtID.Text = dr("IDusuario").ToString
MsgBox(dr("Nombre").ToString)
'txtEmail.Text = dr("contrasena").ToString
'txtFechaAlta.Text = dr("FechaAlta").ToString
'txtComentario.Text = dr("contrasena").ToString
'
'btnActualizar.Enabled = True
'btnEliminar.Enabled = True
Else
MsgBox("NO hay nada")
End If

Catch ex As Exception
MessageBox.Show("ERROR al conectar o recuperar los datos:" &
vbCrLf & _
ex.Message, "Conectar con la base", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub
End Class


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida