Los foros del Guille

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 

elGuille.hosting: La oferta avanzada:
.NET 2.0, SQL Server, 4000MB, 30GB transf. por 19.95 Eur al mes

Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

18/nov/2008
El primer libro de C# escrito por el Guille:

Aprenda C# 3.0 desde 0.0 - Parte 3, lo nuevo


Cónsiguelo desde aquí: http://www.elguille.info/NET/AprendaCSharp3/parte3_lo_nuevo.aspx

  Foro: .NET VB Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 58140 - Llenar un TextBox al seleccionar un combo
IDAsuntoFechaNick 
58140 Llenar un TextBox al seleccionar un combo13/02/17 12:13pitus   
Buenos días. Tengo una tabla de datos en SqlServer. En la tabla hay un id, Poblaciones y km. En el diseño hay dos combos, origen y destino. También tengo un TextBox llamado km. Mi duda és: Al momento de seleccionar una poblacion en el combo destino quiero que aparezcan los km el el textbox.
Muestro un trocito de codigo. El error se produc en la linea "adapter.Fill(ds)"

Private Sub Desti
    _TextChanged(sender As Object, e As EventArgs)
     Handles Desti.TextChanged

       Dim connectionString As String = Nothing
       Dim connection As SqlConnection
       Dim command As SqlCommand
       Dim adapter As New SqlDataAdapter()
       Dim ds As New DataSet()
       Dim sql As String = Nothing
       Dim sql1 As String = Nothing
       Dim id As Integer

       connectionString = "Data
            Source=Josep-Pc\sqlexpress;Initial Catalog=Desplacaments;Integrated
            Security=SSPI;"
        
       sql = "SELECT poblacio, km FROM Poblacions where id
            =" + Desti.ValueMember + ";"
       connection = New SqlConnection(connectionString)
       Try
           connection.Open()
           command = New SqlCommand(sql, connection)
           adapter.SelectCommand = command
           adapter.Fill(ds)
           adapter.Dispose()
           command.Dispose()
           connection.Close()
       Catch ex As Exception
           MessageBox.Show("No es pot obrir ")
       End Try
       Try
           If ds.Tables("Poblacions").Rows.Count = 0 Then
               MessageBox.Show("Oh, no hi ha registres!")
           Else
              
               km.Text = ds.Tables("Poblacions").Rows(id).Item(id).ToString
           End If
       Catch ex As Exception
           MessageBox.Show("Error")
       End Try
   End Sub
[Editado: pitus, 13/02/2017 12:58:57]
IDAsuntoFechaNick 
58144 Re: Llenar un TextBox al seleccionar un combo (Resp: 58140)16/02/17 10:42pitus   
Solucione esto. Dejo aqui mi solucion por si puede servir a alguien.
Try
     connection.Open()
     command = New SqlCommand(sql, connection)
     adapter.SelectCommand = command
     adapter.Fill(ds)
     adapter.Dispose()
     command.Dispose()
     connection.Close()
     Desti.DataSource = ds.Tables(0)
 Catch ex As Exception
     MessageBox.Show("No es pot obrir ")
 End Try

 MessageBox.Show(ds.Tables(0).Rows.Count)
 Try
     If ds.Tables(0).Rows.Count = 0 Then
         MessageBox.Show("Oh, no hi ha registres!")
     Else
         'MessageBox.Show(ds.Tables(0).Rows(0).Item(0))
         'Desti.Text = ds.Tables(0).Rows(0).Item(0)
         km.Text = ds.Tables(0).Rows(0).Item(1)
     End If
 Catch ex As Exception
     MessageBox.Show("Error")
 End Try


Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias.

 
(c) Guillermo 'guille' Som, 2005-2017  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 94 - App. iniciada: 15/12/2017 14:58:54 GMT - La hora GMT del servidor es: 16/12/2017 05:21:47 GMT