SQL com variáveis

[Beavis440 0]

Estou tentando colocar 3 variaveis em um comando SQL.

 

Por enquanto tentei assim:

 

"SELECT * from " & SQLTabela & " where " & SQLColuna & " = " & VariavelConsulta & ""

 

Mas o VB6 não esta aceitando.

Alguém sabe como fazer?

[Mário Monteiro 179]

Que erro acusou?

 

As variaveis estão vindo com valores corretos?

[Beavis440 0]

Ele esta selecionando essa parte da SQL:

SELECT * from "

Dizendo que não esta correto os parametros

[Mário Monteiro 179]

Aparentemente as variaveis estão vazias

 

Onde está colocando seus valores?

[Beavis440 0]

Eu estou querendo criar funções com as SQL para não precisar escrever toda hora de novo para otimizar os códigos.

Fiz da Seguinte maneira

Public Function SQLSelect(SQLTabela As String, SQLColuna As String, VariavelConsulta As String) 
   "SELECT * from " & SQLTabela & " where " & SQLColuna & " = " & VariavelConsulta & ""
End Function

[Mário Monteiro 179]

E como está chamando?

[Beavis440 0]

SQLSelect(CadClientes,Codigo,txtCodigo)

 

Estou tentando criar outras Funções também

Tem muito lugares com estruturas iguais porem com formularios diferentes, Objetos ADODC diferentes.

Um exemplo é isso:

 

frmConsultaOrdem.ADODCSoma.CommandType = adCmdText
    frmConsultaOrdem.ADODCSoma.RecordSource = SQL
    frmConsultaOrdem.ADODCSoma.Refresh

    frmConsultaCadastro.ADODCCliente.CommandType = adCmdText
    frmConsultaCadastro.ADODCCliente.RecordSource = SQL
    frmConsultaCadastro.ADODCCliente.Refresh

 

Queria poder criar Funções para manter as estruturas e ir mudando só as diferenças deles.

Para assim usar essas estruturas como ferramentas para meus projetos

Não sei se isso é possível.

[KhaosDoctor 242]

A variável de consulta é uma String?

[Beavis440 0]

Sim, mas o problema esta ja no começo.

Naquelas aspas como descrevi acima

[KhaosDoctor 242]

Então estão faltando aspas simples ( ' ) no seu código.

 

"SELECT * from " & SQLTabela & " where " & SQLColuna & " = '" & VariavelConsulta & "'"

[Beavis440 0]

Vlw Pessoal consegui.

 

Public Function SQLSelect(SQLTabela As String, SQLColuna As String, VariavelConsulta As String)
   Abre_Conexao
       SQL = "SELECT * from " & SQLTabela & " where " & SQLColuna & " = '" & VariavelConsulta & "'"
       Tabela.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly
       If Not Tabela.EOF Then
           SQLSelect = True
       Else
           SQLSelect = False
       End If
   Fecha_Conexao
End Function

 

Para chamar:

Private Sub cmdNovo_Click()
       If txtCPF = "" Then
           MsgBox "Informe o CPF do Cliente!", vbInformation, "Consulta"
       Else
           If SQLSelect("CadClientes", "CPF", txtCPF) = True Then
               cmdNovo.Visible = False
               PreencheDadosOrdem
               cmdLimpar.Visible = True
               txtCPF.Enabled = False
               cmdSalvar.Enabled = True
               cmdConsultar.Enabled = False
           Else
               MsgBox "Cliente não cadastrado!", vbInformation, "Consulta"
       End If
   End If
End Sub