Opção Import

[eclypz 0]

Ola, Estou construindo uma BD em que as tabelas, são alimentadas por imports feitos pelo utilizador, de ficheiros .txt.O meu problema actualmente é o seguinte:Queria colocar um botão num formulário que, ao clicar nele surgisse a caixa de dialogo do import... nao sei como fazer isso, alguem me ajuda?Obrigado!__

[InterPlanet® 0]

Oi!Faz assim ó:No botao de comando que vai importar coloca o seguinte procedimento no evento ao clicar:Dim Arquivo As StringArquivo = InputBox("Digite o endereço para o arquivo a ser importado:" & vbCrLf & vbCrLf & "Exemplo:" & vbCrLf & "- C:\lista.txt"", "Importação de arquivo")'Verifica se o arquivo informado existe, caso sim, importaIf Dir$(Arquivo) <> "" ThenDoCmd.TransferText acImportDelim, , "TabelaX", Arquivo, True ' Este é o comando de importaçãoMsgBox "As informações de " & Arquivo & " foram importadas com sucesso!", vbInformation, "Informação..."ElseMsgBox "Não foi possível localizar o arquivo " & Arquivo & ". Verifique se digitou corretamente o endereço e se o arquivo realmente está no diretório informado.", vbCritical, "Erro: Arquivo não localizado"End IfExplicação:DoCmd.TransferText acImportDelim, , "TabelaX", Arquivo, TrueDoCmd.TransferText = é a função de importaçãoacImportDelim = é o tipo, no caso importa para dentro do access o conteudo do txt para a tabela que chamei TabelaX, se quiser pode usar acLinkDelim, neste caso ele nao importa, so vinculaTabelaX = é o nome da tabela que sera criada para armazenar os dados, pod emudar ou usar uma ja prontaArquivo = é o que o usuario digitou, o endereço onde estão as informaçõesTrue = esse Sim diz ao access que a primeira linha do txt é o nome dos campos na tabela a ser criada, no caso TabelaX, então a primeira linha deve conter o nome dos campos, quer a tabela para ond evao os dados exista ou nao.Vlw. Qualquer coisa, tamos ai!

[du tamiozzo 0]

Oi!Faz assim ó:No botao de comando que vai importar coloca o seguinte procedimento no evento ao clicar:Dim Arquivo As StringArquivo = InputBox("Digite o endereço para o arquivo a ser importado:" & vbCrLf & vbCrLf & "Exemplo:" & vbCrLf & "- C:\lista.txt"", "Importação de arquivo")'Verifica se o arquivo informado existe, caso sim, importaIf Dir$(Arquivo) <> "" ThenDoCmd.TransferText acImportDelim, , "TabelaX", Arquivo, True ' Este é o comando de importaçãoMsgBox "As informações de " & Arquivo & " foram importadas com sucesso!", vbInformation, "Informação..."ElseMsgBox "Não foi possível localizar o arquivo " & Arquivo & ". Verifique se digitou corretamente o endereço e se o arquivo realmente está no diretório informado.", vbCritical, "Erro: Arquivo não localizado"End IfExplicação:DoCmd.TransferText acImportDelim, , "TabelaX", Arquivo, TrueDoCmd.TransferText = é a função de importaçãoacImportDelim = é o tipo, no caso importa para dentro do access o conteudo do txt para a tabela que chamei TabelaX, se quiser pode usar acLinkDelim, neste caso ele nao importa, so vinculaTabelaX = é o nome da tabela que sera criada para armazenar os dados, pod emudar ou usar uma ja prontaArquivo = é o que o usuario digitou, o endereço onde estão as informaçõesTrue = esse Sim diz ao access que a primeira linha do txt é o nome dos campos na tabela a ser criada, no caso TabelaX, então a primeira linha deve conter o nome dos campos, quer a tabela para ond evao os dados exista ou nao.Vlw. Qualquer coisa, tamos ai!

cara, desculpe a ignoranciamas como fica esse código em C#?????vlw