Guest Miuu Postado Fevereiro 24, 2006 Denunciar Share Postado Fevereiro 24, 2006 Dim Resultado As New ADODB.RecordsetPrivate Sub Form_Load()SQLString = "Select Codigo,Nome,Nivel from Usuarios Order by Codigo"Consulta.CommandText = SQLStringResultado.Open Consulta, , adOpenStatic, adLockBatchOptimisticSet DataGrid.DataSource = ResultadoEnd SubPrivate Sub txtPesConUsu_Change()SQLString = "Select Codigo,Nome,Nivel from Usuarios Where Nome Like '" + txtPesConUsu + "*'"Consulta.CommandText = SQLStringResultado.CloseSet Resultado.Source = ConsultaResultado.OpenSet DataGrid.DataSource = ResultadoEnd Subbom ele funciona quando eu retiro o * mas fica apenas lendo completo e não parcialaxo ke u codigo ta certo, alguém tem alguma ideia do ke possa ser? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Fevereiro 24, 2006 Denunciar Share Postado Fevereiro 24, 2006 resolvido... vlw t+ Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mariozneto Postado Fevereiro 24, 2006 Denunciar Share Postado Fevereiro 24, 2006 Bom dia Amigo!!!!Explica a Solução para que outros usuários que visualizem seu post, saibam da resposta!!!Falow... T+ Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Fevereiro 24, 2006 Denunciar Share Postado Fevereiro 24, 2006 desculpe, é só usar % invés de *se alguém puder explikar a diferença entre eles, sou novo ainda e tal =P to só aprendendo...vlw t+ Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mariozneto Postado Fevereiro 25, 2006 Denunciar Share Postado Fevereiro 25, 2006 OK!!!Falow... T+ Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Miuu
Dim Resultado As New ADODB.Recordset
Private Sub Form_Load()
SQLString = "Select Codigo,Nome,Nivel from Usuarios Order by Codigo"
Consulta.CommandText = SQLString
Resultado.Open Consulta, , adOpenStatic, adLockBatchOptimistic
Set DataGrid.DataSource = Resultado
End Sub
Private Sub txtPesConUsu_Change()
SQLString = "Select Codigo,Nome,Nivel from Usuarios Where Nome Like '" + txtPesConUsu + "*'"
Consulta.CommandText = SQLString
Resultado.Close
Set Resultado.Source = Consulta
Resultado.Open
Set DataGrid.DataSource = Resultado
End Sub
bom ele funciona quando eu retiro o * mas fica apenas lendo completo e não parcial
axo ke u codigo ta certo, alguém tem alguma ideia do ke possa ser?
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.