| Pregunta: | 14363 - PARAMETRO PARA SQL EN VBASIC |
| Autor: | fernacisco fernandez |
| Hola.
llamo a una bd access atravez de una app vbasic, lo que quiero es como hacer que una instruccion SQL le prugunte al usuario el parameto a medir en la condicion where., ya que en access solo hay que poner los siguiente"[ ]" y el motor solo entiende que hay que ingresar un valor. pero cuanto esta consulta es llamado por vbasic, encuentra errores. de ante mano nuchas gracias | |
| Respuesta: | Cristian Rojas Iriarte |
| Dim db As Connection
Set db = New Connection db.CursorLocation = adUseClient Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=bd.mdb;" Dim Sql As String Dim Softgen As String 'esta es tu variable de busqueda 'tambien la puedes hacer con ' text1.text ' encerrando entre tildes la variable Softgen = InputBox("Ingrese Edad", "Busqueda con SQL", "29") Sql$ = "Select * from datos where " Sql$ = Sql$ + "edad >= '" & Softgen & "'" Set adoPrimaryRS = New Recordset adoPrimaryRS.Open (Sql), db, adOpenStatic, adLockOptimistic Dim oText As TextBox For Each oText In Me.txtFields Set oText.DataSource = adoPrimaryRS Next mbDataChanged = False | |