ayuda sobre listbox
Publicado por fransesco (10 intervenciones) el 31/07/2006 21:17:57
tengo este codigo en visual
Dim con1 As SqlConnection
Dim comando As SqlCommand
Dim p1, p2 As SqlParameter
Dim cad As String
con1 = New SqlConnection
con1.ConnectionString = ("integrated security=SSPI;server=(local);database=inventario")
con1.Open()
comando = New SqlCommand
comando.Connection = con1
comando.CommandType = CommandType.StoredProcedure
cad = "exec todo_cpu3" & ListBox1.Text & ""
comando.CommandText = "todo_cpu3"
p1 = comando.Parameters.Add("@a", SqlDbType.VarChar, 100)
p2 = comando.Parameters.Add("@z", SqlDbType.VarChar, 100)
p1.Direction = ParameterDirection.Input
p2.Direction = ParameterDirection.Output
p1.Value = ListBox1.Text
comando.ExecuteNonQuery()
ComboBox1.Text = p2.Value
con1.Close()
y realizo un procedimiento en sql server asi
create procedure todo_cpu3
@a varchar (100),
@z varchar(100) output
as
if exists( select * from cpu where inventario=@a)
begin
select @z=descripcion
from cpu,componente,tamaño_elemento
where inventario=@a and componente.clave_cpu=cpu.clave_cpu and clave_componente=clave_tipo_h_s_carac_tam
end
else
begin
select @z='no tiene componentes'
end
go
y anteriorrmente asigme los inventarios al listbox1
y al seleccionar un inventario en el listbox me aparece en el combobox
eso si me sale.
mi problema es que si un inventario tiene mas de un componente
no me muestra todos los componentes de ese inventario
como le prodria hacer
Dim con1 As SqlConnection
Dim comando As SqlCommand
Dim p1, p2 As SqlParameter
Dim cad As String
con1 = New SqlConnection
con1.ConnectionString = ("integrated security=SSPI;server=(local);database=inventario")
con1.Open()
comando = New SqlCommand
comando.Connection = con1
comando.CommandType = CommandType.StoredProcedure
cad = "exec todo_cpu3" & ListBox1.Text & ""
comando.CommandText = "todo_cpu3"
p1 = comando.Parameters.Add("@a", SqlDbType.VarChar, 100)
p2 = comando.Parameters.Add("@z", SqlDbType.VarChar, 100)
p1.Direction = ParameterDirection.Input
p2.Direction = ParameterDirection.Output
p1.Value = ListBox1.Text
comando.ExecuteNonQuery()
ComboBox1.Text = p2.Value
con1.Close()
y realizo un procedimiento en sql server asi
create procedure todo_cpu3
@a varchar (100),
@z varchar(100) output
as
if exists( select * from cpu where inventario=@a)
begin
select @z=descripcion
from cpu,componente,tamaño_elemento
where inventario=@a and componente.clave_cpu=cpu.clave_cpu and clave_componente=clave_tipo_h_s_carac_tam
end
else
begin
select @z='no tiene componentes'
end
go
y anteriorrmente asigme los inventarios al listbox1
y al seleccionar un inventario en el listbox me aparece en el combobox
eso si me sale.
mi problema es que si un inventario tiene mas de un componente
no me muestra todos los componentes de ese inventario
como le prodria hacer
Valora esta pregunta


0