ERRO DE BUSCA NO BANCO DE DADOS

RATOPD9 20/02/2010 13:30:58
#334889
tenho 1 bando de dados com varias tabelas, todas sem akela 1° coluna q gera um codigo automatico.

tipo, quando vou pesquisar usando a 1° coluna que tem numeros de 1 a 100 mas na sequencia tipo.. 1, 1,1, 1,2, em numeros interios da certo, mas quando coloco pra pesquisar alguma linha com numero quebrado, da erro.

exemplo..
coluna 1
linha 1 = 1
linha 2 = 1,1

se eu coloka pra pesquisar o numero 1 ou 2 ou 90 da certo, mas se for pesquisar o 1,1 ou 9,9 da erro.

vlw
TECLA 20/02/2010 13:33:47
#334891
Poste a QUERY que está usando para fazer a pesquisa.
RATOPD9 20/02/2010 13:38:58
#334892
tecla, não sei oq é query, então vo postar todos os codigos..

botão..
  Private Sub Command1_Click()
Dim i As Integer

[ô]pesquisa na tabela o código fornecido
rs.Open [Ô]SELECT * FROM toma1w WHERE distancia=[Ô] & Text1.Text, cnn, adOpenKeyset, adLockOptimistic
[ô]verifica se existem registros
If rs.BOF = True And rs.EOF = True Then
    [ô]cliente não cadastrado
    MsgBox [Ô]valor não encontrado![Ô], vbInformation, [Ô]Atenção[Ô]

    [ô]fecha a conexão
    rs.Close
Else
    With MSFlexGrid1
        [ô]preeche o flex
        i = 1
        Do While Not rs.EOF
            [ô]quantidade de linhas

            Text2.Text = rs(0).Value
            Text3.Text = rs(1).Value
            Text4.Text = rs(2).Value
            Text5.Text = rs(3).Value
            Text6.Text = rs(4).Value
            [ô]proximo registro
            i = i + 1
            rs.MoveNext
        Loop
    End With
    [ô]fecha a conexão com a tabela
    rs.Close
End Sub
End If


form_load

  Private Sub Form_Load()

[ô]abre o banco e a tabela
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0; Data Source=[Ô] & App.Path & [Ô]\bd.mdb[Ô]

End Sub


esse aqui eh o txt onde digito o numero pra buscar no banco de dados..

  Private Sub Text1_Change()

[ô]somente números, Enter e Esc
If KeyAscii >= Asc([Ô]0[Ô]) And keysacii <= Asc([Ô]9[Ô]) Or KeyAscii = 13 Or KeyAscii = 27 Then
    [ô]permite
    KeyAscii = KeyAscii
Else
    [ô]não permite
    KeyAscii = 0
End If

End Sub
RICART 20/02/2010 13:56:13
#334894 Resposta escolhida
Vc precisa converter o conteúdo do textbox Text1.Text para double. Creio que no seu banco esteja como double. Mesmo que vc visualize no bd como 1,1, isso é apenas visual, pois o dado está gravado como 1.1.
TECLA 20/02/2010 13:58:28
#334895
Qual o tipo de dados do campo [Ô]distancia[Ô]?
RATOPD9 20/02/2010 14:10:01
#334897
sim TECLA, mas é um nome provisorio.
fiz como o RICART falou e deu certo, não sabia que o numero gravado é 1.1 e não 1,1 (ja q vejo 1,1) hehe

obrigado!
Tópico encerrado , respostas não são mais permitidas
Voltar