Nathi

jonathan, pelo q sei o # # é só pra fazer where. pelo menos, mesmo no access eu sempre gravo data com ' '. não testei aqui, mas talvez funcione sim com o # # mas é certeza q tb funciona com o ' ', sempre fiz assim. mas de qualquer forma, o melhor jeito de se gravar data em todos os bancos é no formato YYYY-MM-DD (com - mesmo no lugar de /). exemplo: strsql = "Update dados set entrega='" & Format(data_entrega, "YYYY-MM-DD") & "'" nathalia, "não funciona direito" pode signficia mil coisas, a gente não tem como saber se você não explicar direito. de preferencia poste o codigo dessa rotina e explica qual o problema. o q acontece, da mensagem de erro?? não volta o valor esperado?? então volta o q??

Olá pessoal. Eu estou fazendo um sistema para uma gráfica, só que encontrei alguns problemas com datas no vb e como sou iniciante, está realmente complicado!! Vou tentar explicar de uma forma "entendível": em um dos formulários, o usuario pesquisa uma Ordem de Serviço pela data de emissão dela. Eu estou com problemas com a data, já que o vb não a reconhece como data!! Já tentei usar ao invés de caixa de texto, uma maskedit, mas tambem não dá certo. Por enquanto a programação está assim: Private Sub PesqOs_txtdata_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Data = CDate(Mid(PesqOs_txtdata, 1, 2) & "/" & Mid(PesqOs_txtdata, 3, 2) & "/" & Mid(PesqOs_txtdata, 5, 4)) 'If Not IsDate(data) Then ' MsgBox "Digite uma data válida para efetuar a pesquisa!", vbExclamation, "Erro de Verificação" ' PesqOs_txtdata = "" 'PesqOs_txtdata.SetFocus 'Exit Sub 'End If strsql = "Select * from Ordem_Servico where OS_emissao = #" & Data & "#" Set tbOrdem = banco.OpenRecordset(strsql) strsql = "Select * from Ordem_Servico where OS_codigo = " & tbOrdem!OS_txtcodigo Set tbOrdem = banco.OpenRecordset(strsql) If tbOrdem.EOF Then MsgBox "Orçamento não existente no sistema!", vbInformation, "Busca de OS" PesqOs_txtdata = "" PesqOs_txtdata.SetFocus Else PesqOS_lstpesquisa.ListItems.Clear Do While Not tbOrdem.EOF strsql = "select * from funcionarios where Fun_Codigo = " & tbOrdem!OS_funcionario Set tbfuncionarios = banco.OpenRecordset(strsql) Set Item = PesqOS_lstpesquisa.ListItems.Add(, , tbOrdem!OS_codigo) Item.SubItems(1) = tbClientes!Cli_Nome Item.SubItems(2) = tbfuncionarios!Fun_nome Item.SubItems(3) = tbOrdem!OS_emissao tbOrdem.MoveNext Loop End If End If End Sub O erro dá na linha que está em negrito, ERRO: "item não encontrado nessa coleção" Se puderem me ajudar, ficarei grata!

Eu estou fazendo um projeto em vb6 so que não consigo alterar o status de uma ordem de serviço de pendente para entregue, bem a sql está assim: Status = MOS_cbosit.Text If tbOrdem.EOF Then Exit Sub Else strsql = "update Ordem_Servico set OS_Empresa = '" & OS_cboempresa & "'" strsql = strsql & ", OS_funcionario = " & OS_txtcodigofun strsql = strsql & ", OS_emissao = '" & OS_txtemissao & "'" strsql = strsql & ", OS_entrega = #" & OS_txtentrega & "#" strsql = strsql & ", OS_clicodigo = '" & OS_txtclicodigo & "'" strsql = strsql & ", OS_pagamento = '" & OS_cbopagamento & "'" strsql = strsql & ", OS_Pedcodigo = " & Pedido strsql = strsql & ", OS_entrada = '" & OS_txtentrada & "'" strsql = strsql & ", OS_Obs = '" & OS_txtobs & "'" strsql = strsql & ", OS_Status = " & Status strsql = strsql & " where OS_Codigo = " & MOS_txtcodigo banco.Execute strsql FRM_OS.OS_lblstatus.ForeColor = &H800000 OS_lblstatus.Caption = "Entregue" End If Na execução ele da erro 3144: erro de sintaxe da update. Eu não encontrei nenhum erro, alguém pode me ajudar, por favor?!!