4 replies to this topic

[Umbrella Corp]

olá pessoal, seguinte fiz uma consulta no banco Access SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone
FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor
WHERE fornecedor.id_fornecedor='1'; que funcionou perfeitamente no access, mas na hora de exibir essa informções na pagina da esse erro

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/site/sitio/teste.asp, line 19

sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone
----------------------------------------------------------------------------------------------^


e preciso so exibir as info na pagina que esta assim

<%
Dim adoCon, strCon, rsInfo, rsTotal, sql
Dim caminho_banco

'Definindo caminho do banco
caminho_banco = Server.MapPath("dados/dados.mdb")

'Definindo string de conexão
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco

'Criando objeto
Set adoCon = Server.CreateObject("ADODB.Connection")

'Abrindo conexão
adoCon.Open strCon


sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone
FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor
WHERE fornecedor.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)

response.write(produtor)
response.write(data)
response.write(valor)
response.write(nome)
response.write(telefone)
%>


onde esta o erro ?? alguem pode me ajudar ?

[tathy]

Tenta primeiro isso...


sql = " SELECT "
sql = sql & " c.produtor, c.data, c.valor, f.nome, "
sql = sql & " f.telefone "
sql = sql & " FROM fornecedor as f
sql = sql & " INNER JOIN compra as c "
sql = sql & " ON c.id_fornecedor = f.id_fornecedor "
sql = sql & " WHERE f.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)

[stumpy]

Assim realmente não dá pois ele entende que se teve quebra de linha o seu comando SQL terminou

Sendo assim:

sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone
FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor
WHERE fornecedor.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)

você tem que fazer como a Taty citou pois desta forma você estará colocando tudo em uma linha só ou

fazer tudo na mesma linha que fica mais dificíl para dar manutenção
ficando assim:

sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor WHERE fornecedor.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)

abraços

[Umbrella Corp]

Assim realmente não dá pois ele entende que se teve quebra de linha o seu comando SQL terminou

Sendo assim:

sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone
FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor
WHERE fornecedor.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)

você tem que fazer como a Taty citou pois desta forma você estará colocando tudo em uma linha só ou

fazer tudo na mesma linha que fica mais dificíl para dar manutenção
ficando assim:

sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor WHERE fornecedor.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)

abraços

funciono, vlw galera

[emburyxiuqu]

fazer tudo na mesma linha que fica mais dificíl para dar manutenção .