NOVA BUSCA SQL
Olá a todos,
Preciso do seguinte:
Por exemplo ao selecionar a região Norte no combo será feita uma busca sql, o resultado da busca será montado num arquivo TXT com os seguintes dados: COD - CLIENTE - TELEFONE - REGIÃO. Neste caso só com clientes da região Norte.
E assim com todas as outras regiões.
Sei que a busca é feita com o operador LIKE, mas não tenho conseguido montar a procura.
O que consegui até agora está escrito abaixo:
Private Sub Combo1_Click()
Dim Fhandle As Integer
Fhandle = FreeFile
Kill App.Path & "_regiao.txt"
Open App.Path & "_regiao.txt" For Output As Fhandle
' INICIA CABEÇALHO
Print #Fhandle, "RELATÓ“RIO DOS CLIENTES DA REGIÃO "; Combo1.Text; ""
Print #Fhandle, Date; Time
Print #Fhandle, "..................................................................................."
Print #Fhandle, "|COD.| NOME |TELEFONE | REGIÃO | "
' FIM DO CABEÇALHO
Close Fhandle 'Fecha todos arquivos open
'Abre o arquivo
If Dir$(App.Path & "_regiao.txt") = "r_regiao.txt" Then
Xx = Shell("Notepad.exe " & App.Path & "_regiao.txt", 1)
End If
Espero que possam me ajudar.
Preciso do seguinte:
Por exemplo ao selecionar a região Norte no combo será feita uma busca sql, o resultado da busca será montado num arquivo TXT com os seguintes dados: COD - CLIENTE - TELEFONE - REGIÃO. Neste caso só com clientes da região Norte.
E assim com todas as outras regiões.
Sei que a busca é feita com o operador LIKE, mas não tenho conseguido montar a procura.
O que consegui até agora está escrito abaixo:
Private Sub Combo1_Click()
Dim Fhandle As Integer
Fhandle = FreeFile
Kill App.Path & "_regiao.txt"
Open App.Path & "_regiao.txt" For Output As Fhandle
' INICIA CABEÇALHO
Print #Fhandle, "RELATÓ“RIO DOS CLIENTES DA REGIÃO "; Combo1.Text; ""
Print #Fhandle, Date; Time
Print #Fhandle, "..................................................................................."
Print #Fhandle, "|COD.| NOME |TELEFONE | REGIÃO | "
' FIM DO CABEÇALHO
Close Fhandle 'Fecha todos arquivos open
'Abre o arquivo
If Dir$(App.Path & "_regiao.txt") = "r_regiao.txt" Then
Xx = Shell("Notepad.exe " & App.Path & "_regiao.txt", 1)
End If
Espero que possam me ajudar.
Oi Italo,
não precisa, necessariamente, usar o operador LIKE.
Você deve abrir um recordset usando como Source um SELECT que aplique o filtro desejado:
Depois você faz um loop pelos registros do recordset, gravando os dados no TXT com o método Print.
não precisa, necessariamente, usar o operador LIKE.
Você deve abrir um recordset usando como Source um SELECT que aplique o filtro desejado:
strSQL = "SELECT TeusCampos FROM TuaTabela " & _
"WHERE CampoRegiao='" & TuaCombo.Text & "'"
Depois você faz um loop pelos registros do recordset, gravando os dados no TXT com o método Print.
Tópico encerrado , respostas não são mais permitidas