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
