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

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy