Jump to content

Agregar el valor de textbox a sentencia SQL


Recommended Posts

Hola a tod@s

En el siguiente código lee información del archivo "ConsultaSQL.txt":

Sub opentxt()

Dim fileName As String, textData As String, textRow As String, fileNo As Integer
Dim CodCliente As String

fileName = "C:\Users\PC\Usuario\ConsultaSQL.txt"
fileNo = FreeFile
    
CodCliente = UserForm.TextBox1.Value
    
Open fileName For Input As #fileNo
Do While Not EOF(fileNo)
   Line Input #fileNo, textRow
   textData = textData & textRow
Loop
Close #fileNo

End Sub

Sin embargo, necesito que mediante un Textbox ingresar el código del cliente y este insertarse en la SQL que se encuentra en el archivo .txt para que haga el filtro correspondiente. El objetivo es filtrar por código cliente e importarlo a excel que este ultimo ya 

Archivo texto ConsultaSQL:

SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]
FROM CABECERAMOVIMIENTO AS C
GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]

El objetivo es el que se forme la siguiente SQL para luego importarlo a excel.

SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]
FROM CABECERAMOVIMIENTO AS C
WHERE C.[CODIGO REL] = "A 030-030"
GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]

Espero haberme hecho entender.

Saludos.

 

 

Edited by CarlosKurt
Link to comment
Share on other sites

Sql = "SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]"
Sql = Sql & " FROM CABECERAMOVIMIENTO AS C"
Sql = Sql & " WHERE C.[CODIGO REL] =  '" & TextBox1 & "'"
Sql = Sql & " GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]"

 

Link to comment
Share on other sites

Hace 11 horas, Antoni dijo:
Sql = "SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]"
Sql = Sql & " FROM CABECERAMOVIMIENTO AS C"
Sql = Sql & " WHERE C.[CODIGO REL] =  '" & TextBox1 & "'"
Sql = Sql & " GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]"

 

Hola @Antoni,  su propuesta me serviría si la consulta Sql estuviera en un módulo, sucede que la consulta Sql esta un archivo con extension de texto (.txt). Entonces la idea es leer la consulta Sql del archivo y agregar la siguiente linea 

WHERE C.[CODIGO REL] =  '" & TextBox1 & "'

La intención es trabajar las consultas Sql en un archivo .txt y no en los módulos.

Saludos.

Link to comment
Share on other sites

Hace 7 horas, Antoni dijo:

A ver si es esto lo que quieres:

Sub opentxt()
'....
'....
i = InStr(textData, "GROUP BY")
textData = Left(textData, i - 1) & "WHERE C.[CODIGO REL] = '" & TextBox1 & "' " & Mid(textData, i)
End Sub

 

Hola @Antoni, había olvidado esos tipos de funciones que tiene Vba Excel.

Doy por terminado el tema.

Saludos.

 

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • =ELEGIR(F20,7500,5000,5000,3500,3500,3500,2500,2500,2500,2500,2500,1500) Espero te sirva  
    • ya te di acceso,me parecio raro que no pudieras entrar pero ya deberias entrar,hace mucho que me suscribi a esta pagina y simpre pude subir mi archivo de ejemplo,pero ahora me doy cuenta que si no pago una tarifa de membresia no podre subir ejemplos para que puedan prestar su ayuda 
    • ya te di acceso,me parecio raro que no pudieras entrar pero ya deberias entrar
    • Coloca esta subrutina y el resultado lo pondrá en la Hoja Principal "E15" hacia abajo... Saludos   Sub concatena()     Set DATOS = Worksheets("Verificar Matriz")     Sheets("principal").Select     Range("E15:E5000").ClearContents     rt = 5     RD = 6     RS = 15     Do While DATOS.Cells(RD, 4) <> ""         pasa = 0         For C = 5 To 22             If DATOS.Cells(RD, C) <> "0" Then                 pasa = pasa + 1             End If         Next         If pasa > 0 Then             CADENA = ""             For C = 5 To 22                 If DATOS.Cells(RD, C) > 0 Then                     If Len(CADENA) > 0 Then                         CADENA = CADENA & ","                     End If                     CADENA = CADENA & C - 4 & "-" & DATOS.Cells(rt, C) & "=" & Chr(34) & DATOS.Cells(RD, C) & Chr(34)                 End If             Next             Cells(RS, "E") = CADENA             RS = RS + 1         End If         RD = RD + 1     Loop End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy