Cadena de conexion

[Vega19]

buenas tengo un problema

tengo 3 form:

1: Ingresa Servidor= txtservidor
2: Ingresa Bd = txtBd

3 tengo un textbox1 la cual al momento de poner la sentencia y precione clic en el boton me muestre en un datagridview.

Ejemplo:

Ingrese Servidor=(local)
Ingrese bd = Neptuno

y al digitar en el textbox "select *from clientes" me muestre en el datagridview


mi codigo es el siguiente pero no me muestra las tablas:

Código vb:

Imports System.Data.SqlClient
Public Class Form3
    Dim obs As String
    Dim obs2 As String
    Dim cnx As New SqlConnection("server=" & obs & ";Integrated security=true;database=" & obs2 & "")
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        obs = Form1.txtservidor.Text
        obs2 = Form2.txtbd.Text
        lblcone.Text = obs
        lbldb.Text = obs2
        DataGridView1.Visible = False
 
    End Sub
    Sub Mostrar()
        Dim pt As New SqlDataAdapter(TextBox1.Text, cnx)
        Dim tbl As New DataTable
        pt.Fill(tbl)
        DataGridView1.DataSource = tbl
        Me.Refresh()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Call Mostrar()
        DataGridView1.Visible = True
    End Sub
End Class
 

[jaullo]

Me parece que en ningun lugar estas abriendo la conexion, por ejemplo:

Código ASP:

sub mostrar()
cnx.open()
'codigo
end sub
 

[Vega19]

no amigo.. ya lo prove y nada sigue lo mismo !

[dmassive]

¿Le hiciste un debug a eso? Creo que el problema es que hay varias cadenas que te quedan vacias, ni hablar del evento "Load" del formulario que yo trato siempre de evitar porque no entiendo, ni jamas entendere como funciona, prefiero usar el "activate" u otro.

Asi que como primera medida, hacele un seguimento a las cadenas de texto.

[cristianp87]

creo que el problema es que no le asigna una base a la cadena

("server=" & obs & ";Integrated security=true;database=" & obs2 & "")

yo siempre utilizo esta cadena;

Data Source = nombreservidor; Initial Catalog = nombredelaba; Integrated Security = True

[Porlachucha]

la variable obs y obs2, no tienen nada cuando creas la cadena de conexion, por eso no puedes abrir la BD, ya que la asignacion ocurre despues de crear l acadena.

Dim cnx As New SqlConnection("server=" & obs & ";Integrated security=true;database
debe ir despues de la asignacion de las variables obs y obs2

plch