• Miércoles 21 de Abril de 2021, 14:04

Autor Tema:  Problema con consulta select en visual basic  (Leído 1613 veces)

novatovenezolano

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Problema con consulta select en visual basic
« en: Sábado 10 de Agosto de 2013, 20:03 »
0
Explico bien mi problema a ver si alguien me puede ayudar:
1) tengo un formulario con varios datacombos, los cuales se cargan dependiendo del valor del anterior y los hago con recordset
2) el primer datacombo selecciono la banda para que me filtre los anchos de banda con esta instrucción
Código: [Seleccionar]
Private Sub DataCombo6_Change()
With RSbanda
.Requery
.Find "BANDA = '" & CInt(DataCombo6.Text) & "' "
variablebanda = !Id
End With
With RSancho
.Requery
If .State = 1 Then .Close
.Open " select DISTINCT (ANCHO_DE_BANDA) from Frecuencia where BANDA = " & variablebanda & ""
End With
DataCombo16.Enabled = True
Set DataCombo16.RowSource = RSancho
DataCombo16.ListField = "ANCHO_DE_BANDA"
DataCombo16.DataField = "ANCHO_DE_BANDA"
End Sub

me carga perfecto los anchos de banda, y hago lo mismo con este para que me cargue los canales

Código: [Seleccionar]
Private Sub DataCombo16_Change()
With RSancho
.Requery
variableancho = DataCombo16.Text
If .State = 1 Then .Close
.Open "select distinct (CANAL) from Frecuencia where ANCHO_DE_BANDA = '" & variableancho & "' "
End With
DataCombo8.Enabled = True
Set DataCombo8.RowSource = RSancho
DataCombo8.ListField = "CANAL"
DataCombo8.DataField = "CANAL"
End Sub

y perfecto me carga los canales y selecciono uno, mi tabla tiene 5 campos: banda, frecuencia. ancho de banda, canal y sitio, el valor del sitio lo tomo de un combo que tiene en su propiedad list los valores H y L, lo que quiero hacer es que al seleccionar por ultimo el sitio me envíe a una caja de texto el valor de esa frecuencia, ya que una frecuencia puede estar en h o l y lo hago en el evento click del combo con este código:

Código: [Seleccionar]
Private Sub Combo1_Change()
With RSxancho
.Requery
variablecanal = CInt(DataCombo8.Text)
sitio = Combo1.Text
variableancho = DataCombo16.Text
If .State = 1 Then .Close
.Open "select FRECUENCIA from Frecuencia where CANAL = " & variablecanal & " and H/L = '" & sitio & "' and ANCHO_DE_BANDA = '" & variableancho & "' and BANDA = " & variablebanda & " "
Text13.Text = RSxancho.Fields("Frecuencia").Value
End With
End Sub

pero no me realiza la consulta, no se han especificado valores para alguno de los parámetros requeridos y no se realmente donde radicara el problema.
 
Agradecería que alguien pueda ayudarme