COMO LISTAR OS REGISTROS EM SQL???

USUARIO.EXCLUIDOS 23/08/2007 14:06:50
#232277
SqlTabela = "select * from DIZIMISTA where NOMEDIZIMISTA like '" & Text1.Text & "*" & "' order by NOMEDIZIMISTA"

Set tb = New ADODB.Recordset
Set tb = base.Execute(SqlTabela)

If tb.RecordCount > 0 Then
tb.MoveFirst
Do While Not tb.EOF()
List1.AddItem tb!NOMEDIZIMISTA

tb.MoveNext
Loop
End If

estou tentando listar os registros da tabela, dependendo do que eu digitar na textbox, porem tá dizendo q não existem registros. mas tem!!!

não se preocupem q a linha que abre a base de dados está funcionando.

obrigado, pessoal!
USUARIO.EXCLUIDOS 23/08/2007 14:09:03
#232278

tenta isso

SqlTabela = "select * from DIZIMISTA where NOMEDIZIMISTA like '" & Text1.Text & "%" & "' order by NOMEDIZIMISTA"


substitua..o * por %...
USUARIO.EXCLUIDOS 23/08/2007 14:35:53
#232293
Troque a linha:

If tb.RecordCount > 0 Then


Por:

If Not tb.EOF then
USUARIO.EXCLUIDOS 23/08/2007 14:53:21
#232303 Resposta escolhida
So completando...
pelo que vi voce nao esta separando o % do order by

tenta assim
 
SqlTabela = "select * from DIZIMISTA where NOMEDIZIMISTA like '" & Text1.Text & "%' order by NOMEDIZIMISTA"


Att,
Marcelo Bressan
USUARIO.EXCLUIDOS 23/08/2007 15:13:25
#232318

ainda não deu certo...
USUARIO.EXCLUIDOS 23/08/2007 15:20:34
#232323


Cara muda sua conexão pra essa abaixo..e veja o q acontece

referência>: Microsoft Activex Data Object 2.8

'Em um módulo coloque:
Option Explicit
Public cnn As ADODB.Connection
Public rs As ADODB.Recordset
Public SqlTabela As String


Public Sub Conecta()
    Set cnn = New Connection
    cnn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & App.Path & "\Banco.mdb';Jet OLEDB:Database Password=;"
    Set rs = New ADODB.Recordset
    rs.Open SqlTabela, cnn, adOpenKeyset, adLockOptimistic, adCmdText

End Sub



No load do form, ou qq lugar coloque
SqlTabela = "Sua intrução SQL"
Conecta
Set DataGrid1.DataSource = rs

veja se mostra algo no grid
USUARIO.EXCLUIDOS 23/08/2007 15:36:09
#232332
TENTA COLOCAR O % DOS DOIS LADOS

  SqlTabela = "select * from DIZIMISTA where NOMEDIZIMISTA like '%" & Text1.Text & "%' order by NOMEDIZIMISTA"


ATT,

Marcelo Bressan
USUARIO.EXCLUIDOS 23/08/2007 16:08:09
#232350
Caro
SINKERTEC
achei q era justamente esse o problema, eh o q eu estou usando aki. infelizmente ainda não tá dando certo. mto estranho isso.

Caro Bressan, tentei tbm do jeito q vc falou, mas ainda não deu...
USUARIO.EXCLUIDOS 23/08/2007 16:28:30
#232361
Da algum erro?
USUARIO.EXCLUIDOS 23/08/2007 16:32:07
#232366
CARA REPAREI EM UMA COISA

DE VEZ COLOCAR
Set tb = base.Execute(SqlTabela)
COLOCA
Set tb = base.OPEN(SqlTabela)


ATT,

MARCELO BRESSAN
USUARIO.EXCLUIDOS 23/08/2007 16:33:29
#232369


Boa marcelo

eu voltei pra postar isso
maravilha...pode ser isso mesmo
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar