Hhhkjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj Jjjj

ttttttttttttt
APP USO COMBO BOX
Imports System.Data.SqlClient
Public Class FrmEmpresas
Dim oconexionsql As New ConexionSql
Dim cn As SqlConnection = oconexionsql.conectar
Sublimpiar()
txtnom.Clear()
txttele.Clear()
End Sub

Function agregarEmpresa(ByVal nombre As String, _
ByVal telefono As String) As String
Dimr As String = "Empresa Agregada"
Try
Dim cmd As New SqlCommand
With cmd
.Connection = cn
.CommandType =CommandType.StoredProcedure
.CommandText = "insertaEmpresa"
.Parameters.AddWithValue("@nombre", nombre)
.Parameters.AddWithValue("@telefono", telefono)cn.Open()
.ExecuteNonQuery()
cn.Close()
End With
Catch ex As Exception
r = ex.Message
End Try
Return r
EndFunction
Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click
MsgBox(agregarEmpresa(txtnom.Text, txttele.Text))
limpiar()'listar()
End Sub
Private Sub FrmEmpresas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

Imports System.Data.SqlClient
PublicClass FrmListaProducto
Dim oconexionsql As New ConexionSql
Dim cn As SqlConnection = oconexionsql.conectar
Sub cargarCombo()
Try
Dim ds As New DataSetDim da As New SqlDataAdapter _
("Select categoryId,Categoryname from categories", cn)
da.Fill(ds, "Categoria")
With cboCate
.DataSource =ds.Tables("categoria")
.DisplayMember = "Categoryname"
.ValueMember = "Categoryid"
End With
Catch ex As Exception
MsgBox(ex.Message)...