webdeveloper

Faça isso: Dim sql_ins sql_ins = "INSERT INTO ir (nome_cli, end_cli, cep_cli, cid_cli, est_cli, rg_cli, cpf_cli, telr_cli, telco_cli, telce_cli, data_cli, email_cli, indicacao, vara, proc, recla, dirpf, situacao_atual, prox_passo, concluido) VALUES ('"& Inome & "', '" & Iender & "', '" & Icep & "', '" & Icid & "', '" & Iest & "', '" & Irg & "', '" & Icpf & "', '" & Itelr & "', '" & Itelco & "', '" & Itelce & "', '" & Idata& "', '" & Iemail& "', '" & Iindi & "', '" & Ivara & "', '" & Iproc & "', '" & Irecl & "', '" & Idir & "', '" & Isit & "', '" & Iproxp & "', '" & Iconc & "')" Response.Write sql_ins Response.End Call AbrirConexao() objConexao.execute(sql_ins) Call FecharConexao() end Sub Veja a quey na tela, e verifique se tem algo errado.

No exemplo que você citou (Buscapé), se não me egano a query busca sem ordenação nenhuma: Select a.CodProduto, b.DesLoja From Produtos Inner Join Lojas On a.CodLoja = b.CodLoja Assim ela traz aleatóriamente, se não me engano baseado na posição que o registro ocupa na tabela.

Faça isso e veja o que aparece. <% Set parcela = createobject("adodb.recordset") Set parcela.activeconnection = abredb SQL = "SELECT * FROM mgitu.itu_vw_condpagto WHERE cond_st_codigo='"&Session("CondPagto")&"'" parcela.open sql Response.Write parcela("cond_in_parcelas") Response.End total = parcela("cond_in_parcelas") [color="#FF0000"]if i = total Then[/color] linha do erro i = 0 %> texto <% End If i = i +1 %>

Basta alimentar o Data1 somente com os campos que você queira.

Se o seu FlexGrid estiver vinculado ao RecordSet, acredito que dando um Refresh resolva seu problema.

Tente o CDbl.

Um exemplo de uso de duas tabelas: SELECT a.CodProduto, a.DesProduto, b.VlrCustoUnit FROM Produtos a INNER JOIN Custos b ON b.CodProduto = a.CodProduto

Se você quiser selecionar todos os campos em branco, faça assim: SQL = "SELECT Aparelho, Marca, Chassi, Modelo, Bloqueado" & _ " FROM TEsquemas WHERE" & _ " (Aparelho = '" & APARELHO & "' OR Aparelho ='' )" & _ " AND ( Marca = '" & MARCA & "' OR Marca = '' )" & _ " AND ( Chassi = '" & CHASSI & "' OR Chassi = '' )" & _ " AND ( Modelo = '" & MODELO & "' OR Modelo = '' )"

Pode ser também, um Array de String.

Porque ao invés de concatenar tudo em uma variável, você não monta o HTML direto, até porque as variáveis tem um limite de caracteres.

Que valor vem na variável strSearch? Dá algum erro?

Dá uma olhada aqui.

Dá algum erro? Seja um pouco mais explícito.

Se o servidor roda scripts ASP, creio que o problema está nesta linha: Set objFolder = objFSO.GetFolder("i:\Inetpubwwwroot4www.meusite.nom.br\pagina\mensagem\images") Aí deveria ser o caminho lógico e não o fisíco.

Acertei alguns label's que estavam com o nome errado no código, tirei um End If que tinha a mais e otimizei um If, pegue aqui.

Na minha opinião é melhor você criar uma tabela só de observações, com o id do aluno, a data e com a observação propriamente dita, assim a cada observação nova você iria inserir o id, data e observação nesta tabela, quando for gerar a ficha dele você seleciona todas as observações que estão nesta tabela que pertençam a este aluno.

Significa que você esta tentando retornar um valor que não existe, exemplo, a consulta não retornou registros e você está tentando exibí-los. oRs.Open "select des_produto from produtos where cod_produto = 123", oCnn Response.Write oRs("des_produto") 'Isso aqui causará um erro caso este produto não existir Tente assim: oRs.Open "select des_produto from produtos where cod_produto = 123", oCnn 'Checa primeiro se o produto existe If No oRs.EOF Then Response.Write oRs("des_produto") Else Response.Write "Produto não cadastrado!" End If

Dá uma olhada aqui.

Verifique o valor que deveria retornar se não está estourando campo ou a formatação.

Você fez referência à biblioteca DAO?

Poste o código que você está usando.

Se for na base de cálculo, use minutos = segundos / 60.

Se o campo "valor unitario b" estiver como número no banco de dados ele vai vir como número, então você poderá somar normalmente, caso não some, tente usar uma conversão forçada CLng(txtval1.Text) por exemplo.

Que bom! A idéia do fórum é justamente esta, não fazer, explicar como se faz.

Acho que assim funciona: CdCliente = session("CdCliente") DtCadastro = Date() Status = "Ativo" abredb.Execute("INSERT INTO Orcamento (CdCliente,DtCadastro) values ('" & CdCliente & "','" & DtCadastro & "'")") Se no banco o CdCliente for numero: CdCliente = session("CdCliente") DtCadastro = Date() Status = "Ativo" abredb.Execute("INSERT INTO Orcamento (CdCliente,DtCadastro) values (" & CdCliente & ",'" & DtCadastro & "'")")