Listar Clientes do BD

rcdesign · Junho 2, 2003

Pessoal, não estou conseguindo fazer uma coisa aparentemente simples... acho até que estou complicando demais e só está dando erro...Preciso listar algumas informações do cadastro de clientes do meu banco de dados. Este banco de dados possui inúmeros campos e informações e eu quero listar todos os clientes do BD mostrando: número do cadastro, tipo do cliente, nome e razão social.Estou fazendo assim:

<html><head></head><body background="../images/fundo.jpg" bgproperties="fixed" leftmargin="10" topmargin="10" marginwidth="10" marginheight="10"> Você possui os seguintes clientes cadastrados em seu banco de dados: <%dim DB ' conexaodim rcst ' recordsetdim strSql ' String sqlSet DB = Server.CreateObject("ADODB.Connection")cnpath="DBQ=" & server.mappath("cadastro.mdb")DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpathset rcst = Server.CreateObject("ADODB.Recordset")strSql = "SELECT * FROM clientes WHERE cadastro = '" & Request("cadastro")&"'"strsql = strSql & "AND cliente = '" & Request("cliente") & "'" & "AND nome = '" & Request("nome") & "'" & "AND razaosocial = '" & Request("razaosocial") & "'"set rcst = DB.execute (strSql)do While NOT (rcst.eof) %> <table width="60%" border="1" cellspacing="2" cellpadding="2" align="left"> <tr> <td width="17%" height="25">Cadastro</td> <td colspan="5" height="25"> <%Response.Write(rcst("cadastro"))%> </td> </tr> <tr> <td width="17%" height="25">Cliente</td> <td colspan="5" height="25"> <%Response.Write(rcst("cliente"))%> </td> </tr> <tr> <td width="17%" height="25">Nome/Contato</td> <td colspan="5" height="25"> <%Response.Write(rcst("nome"))%> </td> </tr> <tr> <td width="17%" height="25">Razão Social</td> <td colspan="5" height="25"> <%Response.Write(rcst("razaosocial"))%> </td> </tr></table> <% rcst.movenextloopcadastro.closeset cadastro=nothingResponse.Write" "%></body></html>

E dá o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /clubsul/cadastro/listar.asp, line 19

Já tentei diversas alterações e não consigo fazer funcionar....Preciso de ajuda !!!!!!!!!!!!!!!

Salgado · Junho 2, 2003

Posso lhe ajudar?

Tente assim, só copia e cola

Caso Cadastro seja texto:

strSql = "SELECT * FROM clientes WHERE cadastro = '"&Request("cadastro")&"'"
strsql = strSql & " AND cliente ='"&Request("cliente")&"' AND nome= '"&Request("nome")&"' AND razaosocial= '"&Request("razaosocial")&"'"

Caso Cadastro seja Numero:

strSql = "SELECT * FROM clientes WHERE cadastro = "&Request("cadastro")&""
strsql = strSql & " AND cliente ='"&Request("cliente")&"' AND nome= '"&Request("nome")&"' AND razaosocial= '"&Request("razaosocial")&"'"

rcdesign · Junho 2, 2003

Ainda dá erro........ Erro de sintaxe (operador faltando) na expressão de consulta 'cadastro= AND cliente=" AND nome= "AND razaosocial="".

gastao · Junho 2, 2003

cara, tenta jogar os request para dentro de uma variavel, e veja se todos os campos estão corretos, se quiser me enviar, envie que eu vejo pra você com calma

Penna · Junho 3, 2003

SQL = "SELECT * FROM tabela"Set Rs = Conexao.Execute(SQL)Do While Not Rs.EOFCódigoRs.MoveNextLoop

Entrar

Arquivado

Listar Clientes do BD

Recommended Posts

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

gastao 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Penna 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante