como hacer una consulta en visual basic 2005 con la BD es sql server

[joseray19]

hola q mas, estoy estudiando programacion y estamos viendo visual basic 2005 y nos dejaron un trabajo en visual y conectarlo a sql server, y el problema es:

queremos consultar los registros de la Base de Datos y mostrarlos sobre un combobox, y no e sido capa, no se si me pueden ayudar es de duma importancia,, gracias cualquier codigo al correro: [email protected] o [email protected].

este es el codigo.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim conexion As SqlClient.SqlConnection

Dim comando As SqlClient.SqlCommand

Dim query As String

Dim tabla As New DataTable

conexion =
New SqlClient.SqlConnection()

conexion.ConnectionString = (
"Data Source=DEISYGONZALEZ\SQLEXPRESS;Initial Catalog=SGB;Integrated Security=True")

query = (
"select * from texto where @cod_inventario = '" & Me.TextBox1.Text & "'")

comando =
New SqlClient.SqlCommand

comando.Connection = conexion

comando.CommandText = query

Me.TextBox2.Text = comando.("cod_inventario").ToString

'comando.Parameters.Add("@titulo_texto", SqlDbType.NVarChar).Value = Me.TextBox2.Text

'comando.Parameters.Add("@autor_texto", SqlDbType.NVarChar).Value = Me.TextBox3.Text

Try

conexion.Open()

MsgBox(
"La conexion se a establecido con exito", MsgBoxStyle.Information)

comando.ExecuteNonQuery()

conexion.Close()

Catch ex As Exception

MsgBox(
"Ha habido problemas al intentar establecer conexion" & ex.Message, MsgBoxStyle.Critical)

Finally

conexion.Dispose()

End Try

End Sub

End
Class

cualquier ayuda vienbenida sea...... :ad ios:

[Ka0stj]

Yo le cargo información a los ComboBox de la siguiente manera:

Código vb:

Public Sub cargar_Combo( _
        ByVal ComboBox As ComboBox, _
        ByVal sql As String)
 
        ' nueva conexión indicando al SqlConnection la cadena de conexión  
        objConn = New SqlConnection(miconexion.StrConexion)
 
        Try
            ' Abrir la conexión a Sql  
            objConn.Open()
            ' Pasar la consulta sql y la conexión al Sql Command   
            Dim cmd As New SqlCommand(sql, objConn)
            ' Inicializar un nuevo SqlDataAdapter   
            Dim da As New SqlDataAdapter(cmd)
            'Crear y Llenar un Dataset  
            Dim ds As New DataSet
            da.Fill(ds)
            ' asignar el DataSource al combobox  
            ComboBox.DataSource = ds.Tables(0)
            ' Asignar el campo a la propiedad DisplayMember del combo   
            ComboBox.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString
            'ComboBox.ValueMember = ds.Tables(0).Columns(0).Caption.ToString
 
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, _
                             "error", MessageBoxButtons.OK, _
                             MessageBoxIcon.Error)
        Finally
            If objConn.State = ConnectionState.Open Then
                objConn.Close()
            End If
        End Try
    End Sub
 

Checa la propiedad DataSource ya que en ningún momento veo que le estes asignando nada al Combobox.

Espero y te sirva, Saludos!