PASSAR MAIS DE UM CAMPO PARA O RECORDSET

USUARIO.EXCLUIDOS 31/08/2007 15:11:19
#233634

tem como fazer isso

Set Rs1 = DB.OpenRecordset("SELECT Cliente,Vulgo,Endereco & "-" & Bairro & " - " & Cidade & " -" & Estado as Endere From tblCliente Where month(Nascimento)=" & Month(Date))


nesse caso no estou querendo passar o conteudo dos campos
Endereco,Bairro,Cidade,Estado da tblCliente para um unico campo
Endere
USUARIO.EXCLUIDOS 31/08/2007 15:14:54
#233637
Set Rs1 = DB.OpenRecordset("SELECT Cliente,Vulgo,Endereco,Bairro,Cidade, Estado as Endere From tblCliente Where month(Nascimento)=" & Month(Date) and Bairro = '& Bairro & ')"

é isso que vc qr amigo? Passar mais parametros na pesquisa?
USUARIO.EXCLUIDOS 31/08/2007 15:18:38
#233638
Tem sim, seria deste jeito:

Set Rs1 = DB.OpenRecordset("SELECT Cliente,Vulgo,Endereco + "-" + Bairro + " - " + Cidade + " -" + Estado as Endere From tblCliente Where month(Nascimento)=" & Month(Date))

basta trocar o (&) pelo sinal (+)
MADMAX 31/08/2007 15:20:30
#233639
Não eh assim que costumo montrar meus recorsets mais..


Set Rs1 = DB.OpenRecordset("SELECT Cliente,Vulgo,(Endereco & "-" & Bairro & " - " & Cidade & " -" & Estado) Endere From tblCliente Where month(Nascimento)=" & Month(Date))

mas acho melhor fazer assim

dim rs1 as adodb.recorset ou set rs1 as new adodb.recorset
sql = "SELECT Cliente,Vulgo,(Endereco & "-" & Bairro & " - " & Cidade & " -" & Estado) Endere From tblCliente Where month(Nascimento)=" & Month(Date)
set rs1 = db.execute(sql)


na verdade no final apenas tirei o as do seu select , mais ele funciona sim e isso que vc quer fazer tem como sim. qualquer erro passa a menssagem ai ...vlw
MADMAX 31/08/2007 15:22:22
#233640
ops conforme o FRAU disse me esqueci , se for sql para concatenar "+" se for oracle use "|" , espero ter ajudado
USUARIO.EXCLUIDOS 31/08/2007 21:02:39
#233684
Fiz todos os exemplo citados por vcs retorna o erro 13 runtime
DANIKULL 01/09/2007 01:19:45
#233692
ARNALDOCRUZ, me diz uma coisa???
cada paraetro é um campo ou toda a seleção que vc descreve esta em um único campo??
ROBIU 01/09/2007 06:27:52
#233698 Resposta escolhida 
Set Rs1 = DB.OpenRecordset("SELECT Cliente,Vulgo,Endereco & '-' & Bairro & ' -' & Cidade & ' -' & Estado as Endere  From tblCliente Where month(Nascimento)=" & Month(Date))


Se não funcionar tira os parametros 

Set Rs1 = DB.OpenRecordset("SELECT Cliente,Vulgo,Endereco & '-' & Bairro & ' -' & Cidade & ' -' & Estado as Endere  From tblCliente ")


Testei aqui e funcionou.
Tópico encerrado , respostas não são mais permitidas
Voltar