Foros del Web » Programación para mayores de 30 ;) » Programación General »

Ayudenme a Terminar por favor

Estas en el tema de Ayudenme a Terminar por favor en el foro de Programación General en Foros del Web. saludos bueno ya estoy terminando una consulta de vb6.0 a sql server 2000 para poder terminar solo me falta que en los textbox para buscar ...
  #1 (permalink)  
Antiguo 01/07/2010, 10:18
 
Fecha de Ingreso: junio-2010
Ubicación: maracaibo
Mensajes: 40
Antigüedad: 12 años, 1 mes
Puntos: 0
De acuerdo Ayudenme a Terminar por favor

saludos bueno ya estoy terminando una consulta de vb6.0 a sql server 2000

para poder terminar solo me falta que en los textbox para buscar hacer la Busqueda por PVP y q me tome el valor que le doy en este caso no me toma decimales, asi yo les de entrada por el teclado ej:

si ingreso que me busque los productos por PVP que esten:

desde 0.1 hasta 0.3 (y agrego esos datos al textbox) son decimales

me los busca de esta manera de 1 a 3 que son enteros el codigo del programa es el siguiente si me pueden ayudar por favor

Option Explicit
Dim cnConexionBD As ADODB.Connection
Dim rsConexion As ADODB.Recordset
Dim strSQL As String
Dim strCodigo As String
Dim sngPVPdesde As Single
Dim sngPVPhasta As Single
Dim strDescripcion As String
Dim strMarca As String
Dim strReferencia As String

Private Sub cmdConsultar_Click()
Set cnConexionBD = New ADODB.Connection
cnConexionBD.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;" & _
"Initial Catalog=dbMundoSQL;Data Source=MDOINV02"
cnConexionBD.CursorLocation = adUseClient
cnConexionBD.Open

strDescripcion = txtDescripcion.Text
strMarca = txtMarca.Text
strReferencia = txtReferencia.Text
sngPVPdesde = txtPVPdesde.Text
sngPVPhasta = txtPVPhasta.Text
strCodigo = txtCodigo.Text

strSQL = "SELECT PrecioDetal * 1.12 AS PVP, tblProduct.CodRef, tblProduct.Descripcion, " & _
"tblProduct.Marca, tblExistencia.Existencia, tblProduct.IDUnidC , tblExistencia.Observaciones " & _
"FROM tblProduct " & _
"INNER JOIN tblExistencia ON tblProduct.CodRef = tblExistencia.CodRef " & _
"WHERE (Descripcion LIKE '%" & strDescripcion & "%' ) AND (Marca LIKE '%" & strMarca & "%') AND " & _
"(tblProduct.CodRef LIKE '%" & strCodigo & "%') AND (Observaciones LIKE '%" & strReferencia & "%') " & _
"AND ((PrecioDetal * 1.12) BETWEEN " & sngPVPdesde & " AND " & sngPVPhasta & ")"

If OptCodigo.Value = True Then
strSQL = strSQL & "ORDER BY tblProduct.CodRef"
End If
If OptDescripcion.Value = True Then
strSQL = strSQL & "ORDER BY Descripcion"
End If
If OptMarca.Value = True Then
strSQL = strSQL & "ORDER BY Marca"
End If
If OptPVP.Value = True Then
strSQL = strSQL & "ORDER BY PVP"
End If
If OptReferencia.Value = True Then
strSQL = strSQL & "ORDER BY Observaciones"
End If

Set rsConexion = cnConexionBD.Execute(strSQL)
If rsConexion.RecordCount > 0 Then
Set dgrConsulta.DataSource = rsConexion
Else
dgrConsulta.Refresh
MsgBox "No Hay Existencia del Producto"

End If
dgrConsulta.Columns(0).Width = 1000 'Ancho columna PVP
dgrConsulta.Columns(1).Width = 1300 'Ancho columnas Codigo
dgrConsulta.Columns(2).Width = 3500 'Ancho columna Descripcion
dgrConsulta.Columns(3).Width = 1500 'Ancho columnas Marca
dgrConsulta.Columns(4).Width = 800 'Ancho columnas Existencia
dgrConsulta.Columns(5).Width = 800 'Ancho columnas Unidades
dgrConsulta.Columns(6).Width = 2500 'Ancho columnas Existencia
txtTotalRegistros.Text = rsConexion.RecordCount

End Sub

Private Sub cmdRefrescar_Click()
cnConexionBD.Close
End Sub

Private Sub cmdSalir_Click()
End
End Sub

Private Sub txtPVPdesde_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(",") Then
KeyAscii = Asc(".")
End If

End Sub

de antemano les agradesco la ayuda por favor

Etiquetas: favor, terminar
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:20.