COMO GAVAR DADOS DE UM MSFLAXGRID NUM BANCO ACCESS

USUARIO.EXCLUIDOS 22/08/2006 15:10:21
#166518

[txt-color=#000000]Como Gavar dados de uma grade para uma tabela do banco access e depois exportar esses dados para word ou exel??

Já tentei este código para tentar gravar numa outra tabela porÃ©m da um erro:"Operação não permitida quando o objeto está fechado"[/txt-color]

[txt-color=#ff0000]lin = 1

Do Until Tbrel.EOF
Msfgrade.Rows = lin + 1
Tbrel("Data") = Msfgrade.TextMatrix(lin, 0)
Tbrel("laboratorio") = Msfgrade.TextMatrix(lin, 1)
Tbrel("Nome do Monitor") = Msfgrade.TextMatrix(lin, 2)
Tbrel("Professor") = Msfgrade.TextMatrix(lin, 3)
Tbrel("Turma") = Msfgrade.TextMatrix(lin, 4)
Tbrel("ha") = Msfgrade.TextMatrix(lin, 5)
Tbrel("Horario") = Msfgrade.TextMatrix(lin, 6)
Tbrel("Data Show") = Msfgrade.TextMatrix(lin, 7)
Tbrel("Software") = Msfgrade.TextMatrix(lin, 8)
Tbrel("laboco") = Msfgrade.TextMatrix(lin, 9)
Tbrel("laboco1") = Msfgrade.TextMatrix(lin, 10)
lin = lin + 1
Tbrel.MoveNext
Loop
Tbrel.Close

Me ajudem por favor...bjoss
Bruna

USUARIO.EXCLUIDOS 22/08/2006 16:01:48
#166527 Resposta escolhida

VOcê antes precisa abrir o seu recordset (a conexão com o banco já deve estar aberta, certo?):

Para ADO, seria asim:


Set Tbrel = New ADODB.Recordset
Tbrel.CursorLocation = adUseClient
Tbrel.Open "SuaTabela", cnBanco, adOpenKeyset, adLockOptimistic

For lin = 1 To Msfgrade.Rows - 1
Tbrel.addnew
Tbrel("Data") = Msfgrade.TextMatrix(lin, 0) 
Tbrel("laboratorio") = Msfgrade.TextMatrix(lin, 1) 
Tbrel("Nome do Monitor") = Msfgrade.TextMatrix(lin, 2) 
Tbrel("Professor") = Msfgrade.TextMatrix(lin, 3) 
Tbrel("Turma") = Msfgrade.TextMatrix(lin, 4) 
Tbrel("ha") = Msfgrade.TextMatrix(lin, 5) 
Tbrel("Horario") = Msfgrade.TextMatrix(lin, 6) 
Tbrel("Data Show") = Msfgrade.TextMatrix(lin, 7) 
Tbrel("Software") = Msfgrade.TextMatrix(lin, 8) 
Tbrel("laboco") = Msfgrade.TextMatrix(lin, 9) 
Tbrel("laboco1") = Msfgrade.TextMatrix(lin, 10) 
tbrel.update
Next 
Tbrel.Close 
Set tbrel = nothing

Espero que ajude.

USUARIO.EXCLUIDOS 22/08/2006 17:21:55
#166547

Obrigada BIODIESEL, consegui fazer funcionar mas como exporto estes dados agora????

Brigadão metade vc ja me ajudou!!!

USUARIO.EXCLUIDOS 22/08/2006 17:23:08
#166548

Sou eu (bruna) sem querer entrei no login do meu amigo....rs

USUARIO.EXCLUIDOS 22/08/2006 17:29:48
#166552

Pelo VB eu não sei como fazer, mas pelo access, ao abrir o banco de dados, clique em cima da tabela que deseja exportar e clique no Ãcone de vÃnculos do office. Clique em analisar com o MS Excel.

Assim, sua tabela será exportada para o Excel.

Vlw

Página única

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

Voltar