Banco de Dados

[mandyflower 0]

Olá! Estou fazendo um programinha em VB de Nota Fiscal e consigo fazer com que o VB reconheça o arquivo.mdb mas ele não reconhece o nome da tabela, portanto não carrega os dados. Pra que o prg sempre reconheça os banco de dados em qualquer computador, criei um menu com a opção "Abrir BD" e aparece a caixinha e talz... mas ele naum reconhece e tabela do mdb. Aih vai o meu código:

 

Private Sub abrir_Click()

' If MsgBox("O Arquivo não existe! Deseja copiar para o Destino ?", vbQuestion + vbYesNo) = vbYes Then End

' entrada = "digite o caminho dos dados"

' basededados = InputBox$(entrada)

' comundialog.ShowOpen ' display Open common dialog box.

' comundialog.ShowSave ' display Save common dialog box.

' comundialog.ShowColor ' display Color common dialog box.

' comundialog.ShowFont ' Display Font common dialog box.

 

comundialog.ShowOpen

basededados = comundialog.FileName ' endereço do banco de dados

MsgBox (basededados) 'mostra o endereço selecionado

Data1.DatabaseName = basededados

Data1.RecordSource = notafiscal

' MsgBox (Data1.DatabaseName)

MsgBox (Data1.RecordSource)

 

End Sub

 

Se alguem puder me ajudar... vlw!!!! http://forum.imasters.com.br/public/style_emoticons/default/hug.gif

[Graymalkin 0]

Aqui deveria ser...

 

Data1.RecordSource = "notafiscal"

... não?

 

Abraços,

 

Graymalkin