Problema al conectarme a otra IP con SQL 2008 y VB 2010

stuart_david3 · #1 (**permalink**) 30/09/2011, 09:41

Muy buenos días a todos en el foro... Disculpen la molestia de antemano, pero eh tenido un problema que no le he podido dar solución, verán tengo una base de datos en otra computadora en red... Con el SQL Server 2008 puedo checar las tablas y las bases de datos de la misma con una Autentificación de SQL Server... Ahora batalle un poco, pero gracias a Dios pude conectar la Base de datos con unas consultas en Visual Studio 2010 usando lenguaje VB...

Les comparto el códgo que use...

Código ASP:

Ver original<%@ Page Language="VB" ContentType="text/html" Debug="true" ResponseEncoding="iso-8859-1" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
 
<html>
 
<script language="VB" runat="server">
 
    Sub Page_Load(Sender As Object, E As EventArgs)
 
        Dim MyConnection As SqlConnection = New SqlConnection("server=10.11.2.49;database=extractor;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim MyCommand As SqlCommand = New SqlCommand("SELECT b_traba1.rpe, b_traba1.nomtrab, b_traba1.pattrab, b_traba1.mattrab, b_traba1.fe_antre, b_traba1.rfc, b_traba1.cl_curp, b_traba2.afilimss, b_traba1.cl_tipco,b_traba1.cl_zona FROM b_traba1,b_traba2 WHERE b_traba1.cl_tipco IN (1,4,7,9) AND b_traba1.rpe=b_traba2.rpe AND b_traba1.cl_zona = 'DU020' AND b_traba1.cl_sitla is null GROUP BY b_traba1.rpe, b_traba1.nomtrab, b_traba1.pattrab, b_traba1.mattrab, b_traba1.fe_antre, b_traba1.rfc, b_traba1.cl_curp, b_traba2.afilimss, b_traba1.cl_tipco,b_traba1.cl_zona", MyConnection)
 
        MyConnection.Open()
 
        Dim dr As SqlDataReader = MyCommand.ExecuteReader()
 
        MyDataGrid.DataSource = dr
        MyDataGrid.DataBind()
 
        MyConnection.Close()
    End Sub
 
</script>
 
<body>
 
  <h3><font face="Verdana">Selección de Trabajadores CFE</font></h3>
 
  <ASP:DataGrid id="MyDataGrid" runat="server"
    Width="700"
    BackColor="#ccccff"
    BorderColor="black"
    ShowFooter="false"
    CellPadding=3
    CellSpacing="0"
    Font-Name="Verdana"
    Font-Size="8pt"
    HeaderStyle-BackColor="#aaaadd"
    EnableViewState="false"
  />
 
</body>
</html>

Mi problema ocurre cuando intento poner un ListBox ya que quiero mostrar ahi los nombre de las columnas de una tabla, soy nuevo en esta interfaz así que lo que hice fue crear en vista de diseño un ListBox y de ahí enlazarlo a un origen de datos con mi SQL Server 2008, al agregar la conexión e incluirle los parametros de la misma si me lee las bases de datos de la misma... pero cuándo le doy probar conexión me genera este error:

"No se admite esta versión del servidor. Debe tener instalado Microsoft SQL server 2005 o posterior."

Leí varias cosas sobre el tema y configure el SQL para que permita conexiones remotas, y para que se pueda autentificar por medio de Windows y SQL... La verdad ya no se que hacer...

Y se me hace raro que no haga la conexión siendo que como les dije anteriormente ya eh podido generar consultas trabajando con la misma base de datos de la otra computadora de la misma red

...

Les agradezco mucho su ayuda de antemano, en verdad que si la necesito :s...

Una última cosa, si me puedo conectar a las bases de datos locales pero a las del servidor que especifico no... :s...

stuart_david3 · #2 (**permalink**) 30/09/2011, 12:30

Tendrá algo que ver que la máquina a la que estoy accesando tiene el SQL 2005 y yo tenga instalado en mi máquina el 2008?? Por que el error que me arroja me dice que debe ser 2005 así que no creo que sea eso, pero pues no estoy seguro...

mackbeth · #3 (**permalink**) 30/09/2011, 14:30

indicas como datasource a un reader?, te recomiendo que llenes un dataset con tu consulta mediante un SQLdataAdapter:

Dim adapt as new SqlDataAdapter
Dim ds as new DataSet
MyConnection.Open()
adapt.SelectCommand = MyCommand;
adapt.Fill(ds);
MyConnection.Close()
MyDataGrid.DataSource = ds.Tables(0).DefaultView

y lo que respecta a la version, no tiene nada que ver el que tienes instalado, de hecho podrías conectarte sin tener SQL en tu equipo, intenta con este connection string:

Data Source =10.11.2.49; Initial Catalog =extractor; User Id =myUsername; Password =myPassword;

stuart_david3 · #4 (**permalink**) 03/10/2011, 07:44

Bueno, lo que yo quería era enlazar a mi base de datos mediante la vista de diseño del ListBox, pero desafortunadamente ocurre el error que puse al inicio del tema, pues total lo hice desde código y funciona aquí se los dejo por si a alguien le sirve :p...

Código ASP:

Ver original<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
        Dim conn As SqlConnection =
         New SqlConnection("server=10.11.2.49;database=extractor;User ID=sa;Password=administrador;Trusted_Connection=no")
        Dim sql As String =
         "Select b_traba1.rpe, b_traba1.nomtrab, b_traba1.pattrab, b_traba1.mattrab, b_traba1.fe_antre, b_traba1.rfc, b_traba2.calletra, b_traba2.afilimss, b_traba1.cl_tipco,b_traba1.cl_zona FROM b_traba1,b_traba2 WHERE b_traba1.cl_tipco IN (1,4,7,9) AND b_traba1.rpe=b_traba2.rpe AND b_traba1.cl_zona = 'DU020' AND b_traba1.cl_sitla is null GROUP BY b_traba1.rpe, b_traba1.nomtrab, b_traba1.pattrab, b_traba1.mattrab, b_traba1.fe_antre, b_traba1.rfc, b_traba2.calletra, b_traba2.afilimss, b_traba1.cl_tipco,b_traba1.cl_zona"
        Dim dr As New SqlCommand(sql, conn)
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim values2 As ArrayList = New ArrayList()
        conn.Open()
        reader = dr.ExecuteReader()
        While reader.Read()
            values.Add(reader.Item("rpe").ToString() & " " & reader.Item("nomtrab").ToString())
            values2.Add(reader.Item("afilimss").ToString() & " " & reader.Item("calletra").ToString())
        End While
        lb.DataSource = values
        lb.DataBind()
        lb2.DataSource = values2
        lb2.DataBind()
        conn.Close()
        reader.Close()
    End Sub
</script>
<html>
<head>
<title>ListBox using SQLDataReader</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
<form id="Form1" method="post" runat="server">
<asp:ListBox id="lb" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
    <asp:ListBox id="lb2" SelectionMode="Multiple" runat="server" Height="643px" 
    Width="196px"/>
</form>
</body>
</html>

Ahora mi duda es la siguiente, como puedo consultar registros de mi base de datos en base a los listbox que, por ejemplo seleccione con el mouse y le de click a un botón, disculpen las molestias buscaré como hacerlo, pero si alguien pudiese ayudarme se lo agradecería mucho...

Gracias por tu respuesta mackbeth...