Rita
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 09/06/2006 20:26 hs
oi gente, gostaria de saber se alguém pode me ajudar a resolver esse probleminha. tenho uma tabela em um .mdb onde estão armazenados os nomes de alguns funcionários e suas respectivas datas para férias, pois bem, preciso do seguinte. tenho no form um flexgrid com 13 colunas, a primeira dos nomes e as demais com os nomes dos meses do ano (Janeiro, Fevereiro,...) e estou precisando fazer uma consulta a esse banco e carregar os nomes dos funcionários na primeira coluna e suas respectivas datas de férias na coluna do mês correto, ou seja, se o funcionário for tirar férias em Agosto, ele precisa que a data armazenada n banco seja carregada na coluna do mês de Agosto. e assim por diante, lembrando que pode acontecer de dois ou mais funcionários tirarem férias no mesmo mês. será que alguém sabe como resolver esse pepino. já vou agradecendo desde já a paciência e colaboração de vocês. Rita |
|
|
|
|
|
José Luiz
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/06/2006 22:21 hs
Cria uma rotina para pegar o mês da data q está armazenada e coloca numa variável. Ou, na tabela q armazena estes dados tu criacampos com o nome dos meses, assim tu só tem referenciar o banco com a coluna desejada do Flex. Se ainda não for este o caso tu me manda o esquema do BD q eu tentarei te ajudar. Até. |
|
|
|
|
|
Postada em 11/06/2006 23:20 hs
olha só Rita faz dessa forma: 'cria duas variáveis para armazenar os valores Dim Linha, Coluna as Byte 'cria a string de conexão com o banco de dados
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="caminho_para_seu_banco.mdb"
Conn.Open
'efetua a consulta ao banco e preenche o flexgrid Set rs = New ADODB.Recordset
Consulta = "SELECT * FROM Tabela ORDER BY Nome"
rs.Open Consulta, Conn
Coluna = 0
Do Until rs.EOF = True
DataFerias = rs.Fields("DataFerias")
Coluna = Month(DataFerias)
FlexGrid.Rows = FlexGrid.Rows + 1
Linha = Linha + 1
FlexGrid.TextMatrix(Linha, 0) = rs.Fields("Nome")
FlexGrid.TextMatrix(Linha, Coluna) = rs.Fields("DataFerias")
Coluna= 0
DataFerias = "00:00:00"
rs.MoveNext
Loop
rs.Close
Conn.Close dessa forma seu flexgrid será preenchido com as datas nos respectivos meses corretamente. qualquer coisa posta aí pra galera. Abraços Luciano |
|
|
|
|
|
Postada em 12/06/2006 09:20 hs
Sua sugestão funcionou perfeitamente Luciano, obrigada, mas tenho uma dúvida. Se eu possuir um mesmo funcionário com dois períodos de férias agendados no ano, tem como fazer esses dois períodos aparecerem na mesma linha no grid? São dois registros diferentes mas com o mesmo código de funcionário, tem jeito? Se tiver me dá uma ajudinha nisso ou quem puder me ajudar, só tá faltando isso pra terminar o programa. Rita |
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/06/2006 09:39 hs
Rita, verifique a propriedade MergeCells do Flex, se possuem o mesmo código nomes diferentes e datas de férias iguais ou diferentes, use esta prorpiedade. vlu// |
|
|
|
Geronimo
|
JOINVILLE
SC - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/06/2006 18:35 hs
Veja este exemplo de como mesclar as celulas no msflexgrid :
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
