|
|
Postada em 29/04/2008 18:48 hs
nada amigo, não aparece o grid, vc tem e-mail ou msn para mim te passar o aplicativo em que eu estou me baseando, ou alguma outra idéia de como posso fazer isso, filtrar um flexgrid, não precisa modifica-lo quero apenas filtrar num textbox. obrigado
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/04/2008 19:04 hs
manda pra este amanhão insta-lo o msn aqui e a gente conversa até |
|
|
|
|
|
Postada em 29/04/2008 19:36 hs
blza brigadú.
|
|
|
|
Zoltran
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/04/2008 17:02 hs
Só pra deixar uma contribuição Tiagoski. Private Sub Text1_Change() MSHFlexGrid1.Clear MySql = SELECT * FROM"
MySql = MySql & " tbl_funcionarios "
MySql = MySql & " WHERE nome_guerra like '%" & Text1 & "%'"
MySql = MySql & " ORDER BY nome_guerra" With conexao
.CursorType = adOpenDynamic
.LockType = adLockReadOnly
.CursorLocation = adUseServer
.Open MySql, conn
If .BOF = False Then
With MSHFlexGrid1
Set .DataSource = conexao
.ColWidth(1) = 700
.ColWidth(2) = 2300
.ColWidth(3) = 700
.ColWidth(4) = 700
.ColWidth(5) = 700
.TextMatrix(0, 1) = "RG"
.TextMatrix(0, 2) = "Nome"
.TextMatrix(0, 3) = "Ger."
.TextMatrix(0, 4) = "Depto"
.TextMatrix(0, 5) = "Telefone."
.ColAlignmentFixed(1) = 3
.ColAlignmentFixed(2) = 3
.ColAlignmentFixed(3) = 3
.ColAlignmentFixed(4) = 3
.ColAlignmentFixed(5) = 3
End With
Else
MSHFlexGrid1.Clear
End If
.Close
End With
End Sub |
|
|
|
|
|
Postada em 30/04/2008 20:02 hs
zoltran o meu banco de dados é access, será que o seu código com mysql funciona?
|
|
|
|
Zoltran
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/05/2008 08:42 hs
Tiago, o codigo acima é usado em Access, e retirei-o de um projeto em funcionamento. |
|
|
|
