
multiples selecciones en listbox
Publicado por Emilio (4 intervenciones) el 11/12/2007 15:54:44
Hola,
quiero hacer varias selecciones dentro de un listbox, este es el codigo que tengo. primeramente cargo los valores de una tabla auxiliar y acto seguido hago la consulta. Como puedo definir bien la consulta (que esta comentada) y el recordset? no se si me he explicado bien. Tampoco puedo ponerlo de esa manera pq los valores pueden cambiar y podrian ser N (" & num1 & "," & num2 & "," & num3 & "," & num4 & ").
Private Sub sector1_Click()
Dim pMxdoc As IMxDocument
Set pMxdoc = Application.Document
Dim basededatos As Database
Dim st As String
Dim num As Integer
Dim rs As DAO.RecordSet
num = ListSect.ListIndex
Set basededatos = Workspaces(0).OpenDatabase("C:SIFIempresas2000.mdb", False)
st = "select aux_sector.* from aux_sector"
Set rs = basededatos.OpenRecordset(st)
rs.Move (num)
num = rs("cod_sector")
st = "DELETE SECTORES.* FROM SECTORES"
basededatos.Execute (st)
st = "INSERT INTO SECTORES ( COD_MUN, Num, [cod_sector] ) " & _
"SELECT EMPRESAS.COD_MUN, Count(EMPRESAS.Empresa) AS Num, EMPRESAS.[cod_sector] " & _
"FROM EMPRESAS GROUP BY EMPRESAS.COD_MUN, EMPRESAS.[cod_sector] " & _
"HAVING (((EMPRESAS.[cod_sector]) = " & num & ")) ORDER BY EMPRESAS.COD_MUN"
'st = "INSERT INTO SECTORES ( COD_MUN, Num, [cod_sector] ) " & _
' "SELECT EMPRESAS.COD_MUN, Count(EMPRESAS.Empresa) AS Num, EMPRESAS.[cod_sector] " & _
' "FROM EMPRESAS GROUP BY EMPRESAS.COD_MUN, EMPRESAS.[cod_sector] " & _
' "HAVING (((EMPRESAS.[cod_sector]) IN (" & num1 & "," & num2 & "," & num3 & "," & num4 & ")) ORDER BY EMPRESAS.COD_MUN"
basededatos.Execute (st)
MsgBox st
pMxdoc.ActiveView.Refresh
End Sub
quiero hacer varias selecciones dentro de un listbox, este es el codigo que tengo. primeramente cargo los valores de una tabla auxiliar y acto seguido hago la consulta. Como puedo definir bien la consulta (que esta comentada) y el recordset? no se si me he explicado bien. Tampoco puedo ponerlo de esa manera pq los valores pueden cambiar y podrian ser N (" & num1 & "," & num2 & "," & num3 & "," & num4 & ").
Private Sub sector1_Click()
Dim pMxdoc As IMxDocument
Set pMxdoc = Application.Document
Dim basededatos As Database
Dim st As String
Dim num As Integer
Dim rs As DAO.RecordSet
num = ListSect.ListIndex
Set basededatos = Workspaces(0).OpenDatabase("C:SIFIempresas2000.mdb", False)
st = "select aux_sector.* from aux_sector"
Set rs = basededatos.OpenRecordset(st)
rs.Move (num)
num = rs("cod_sector")
st = "DELETE SECTORES.* FROM SECTORES"
basededatos.Execute (st)
st = "INSERT INTO SECTORES ( COD_MUN, Num, [cod_sector] ) " & _
"SELECT EMPRESAS.COD_MUN, Count(EMPRESAS.Empresa) AS Num, EMPRESAS.[cod_sector] " & _
"FROM EMPRESAS GROUP BY EMPRESAS.COD_MUN, EMPRESAS.[cod_sector] " & _
"HAVING (((EMPRESAS.[cod_sector]) = " & num & ")) ORDER BY EMPRESAS.COD_MUN"
'st = "INSERT INTO SECTORES ( COD_MUN, Num, [cod_sector] ) " & _
' "SELECT EMPRESAS.COD_MUN, Count(EMPRESAS.Empresa) AS Num, EMPRESAS.[cod_sector] " & _
' "FROM EMPRESAS GROUP BY EMPRESAS.COD_MUN, EMPRESAS.[cod_sector] " & _
' "HAVING (((EMPRESAS.[cod_sector]) IN (" & num1 & "," & num2 & "," & num3 & "," & num4 & ")) ORDER BY EMPRESAS.COD_MUN"
basededatos.Execute (st)
MsgBox st
pMxdoc.ActiveView.Refresh
End Sub
Valora esta pregunta


0