Jump to content
Fórum Script Brasil
  • 0

[vb]acessar Arquivo .mdb Usando Comando Shell


v_tummler
 Share

Question

Olá!

Tenho um bd com 4 tabelas e gostaria de imprimir todos os registros, porém usando o comando print (que, diga-se de passagem, é um pé no saco).

Como é muito difícil e exige um monte de códigos, pensei em abrir o bd no access usando o comando "shell", porém não estou conseguindo..

Ficaria muito mais fácil se eu tivesse o Crystal Reports por aqui, mas pra mim ainda não vale a pena..

Como devo proceder?

Abraço!

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Olá!

Tenho um bd com 4 tabelas e gostaria de imprimir todos os registros, porém usando o comando print (que, diga-se de passagem, é um pé no saco).

Como é muito difícil e exige um monte de códigos, pensei em abrir o bd no access usando o comando "shell", porém não estou conseguindo..

Ficaria muito mais fácil se eu tivesse o Crystal Reports por aqui, mas pra mim ainda não vale a pena..

Como devo proceder?

Dê uma procurada, aqui no fórum mesmo, por ShellExecute.

Abraços,

Graymalkin

Link to comment
Share on other sites

  • 0

Pra deixar registrado:

Em general declarations:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1        ' normal
Const SW_SHOWMAXIMIZED = 3  ' maximizado
E o evento para abrir o arquivo:
NomeDest = "C:\Pasta do HSA\MR Informática\Transvip\Tesouraria\Processamento.xls"
ShellExecute Me.hwnd, "Open", Chr(34) & NomeDest & Chr(34), vbNullString, vbNullString, SW_SHOWMAXIMIZED

Valeu pela ajuda!

That´s all folks!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...