mojaSymfonia FORUM
https://forum.mix-soft.pl/

Integracja
https://forum.mix-soft.pl/viewtopic.php?f=15&t=638		 Strona 1 z 1
Autor:  tatanka [ 2009-02-25, 15:05 ]
Tytuł:  Integracja
Witam,
Mam projekt vba w którym przy wykorzystaniu obiektu integracji tworzę sobie dokument i zapisy dla niego. I teraz chciałbym zapisać ten dokument w buforze fk.
W jaki sposób w projekcie vba podłączyć się do bazy fk ?? W projekcie VB (oddzielny exe), który kiedyś robiłem trzeba było podać string, użytkownika i hasło ale w tym przypadku już jestem zalogowany do fk bo mam uruchomiony program i z jego poziomu uruchamiam projekt vba, więc może ktoś podpowie jak to powinno wyglądać.

Znalazłem kawałek kodu :
Kod:
Dim db As new MxBtbase.BtDatabase
Dim mic aAs new MxInterConnection

mic.ExecuteApp "OpenDB", db


ale niestety po jego wykonaniu nic się nie dzieje.
Autor:  wrob [ 2009-02-25, 19:40 ]
Tytuł: 
Np cos w tym stylu w obiekcie dokument "D"
Kod:

  Public MxIC As MXINTERLib.MxInterConnection
  Public db As New mxdokfkforte.BtDatabase
 
Private Sub Document_Open()
  Document.Title = "XXXX"
  Set MxIC = Document.CommandDoc("GetMxInterConnection", 1)
  MxIC.ExecuteApp "OpenDB", db
  If db.IsOpen = 0 Then
   MsgBox "juz otwarta"
  End If
  db.CurrentDate = Application.WybranaFirma.AktualnaData
  dok.Open Trim(str(Application.WybranaFirma.WybranyRok.rok)) + ";BUFOR", db ' np "0;BUFOR", db
End Sub
Autor:  tatanka [ 2009-02-25, 20:28 ]
Tytuł: 
Podczas krokowego wykonywania kodu program zatrzymuje się na lini :

Kod:
Set mic = Document.CommandDoc("GetMxInterConnection", 1)


nie podając żadnego błędu.
Czy obiekt Document trzeba zadeklarować w jakiś sposób.
Autor:  wrob [ 2009-02-25, 21:25 ]
Tytuł: 
Daklarowac to nie trzeba - jak robisz nowy SBC to masz tam w jego strukturze(w drzewku nad formami i modulami) odrazu taki obiekt - ma taki czerwony kwadracik z litera D
Autor:  tatanka [ 2009-02-26, 09:42 ]
Tytuł: 
Na tak rzeczywiście nie zrozumiałem tego od razu.
Przerzuciłem tą procedurę do siebie i
Kod:
Public MxIC As MXINTERLib.MxInterConnection
  Public db As New mxdokfkforte.BtDatabase

Private Sub Document_Open()
  Document.Title = "XXXX"

  Set MxIC = Document.CommandDoc("GetMxInterConnection", 1)



Set MxIC = Document.CommandDoc("GetMxInterConnection", 1)

w linijce powyżej mam error 424 Object required

Kod:
  MxIC.ExecuteApp "OpenDB", db
  If db.IsOpen = 0 Then
   MsgBox "juz otwarta"
  End If
  db.CurrentDate = Application.WybranaFirma.AktualnaData
  dok.Open Trim(str(Application.WybranaFirma.WybranyRok.rok)) + ";BUFOR", db ' np "0;BUFOR", db
End Sub


Czy u Ciebie tan fragment kodu działa ??
Może brakuje mi jakiś referencji ??
Autor:  tatanka [ 2009-02-26, 10:11 ]
Tytuł: 
Już sobie poradziłem. Linie :

Kod:
Set MxIC = Document.CommandDoc("GetMxInterConnection", 1)


zastąpiłem

Kod:
Set MxIC = Application.ActiveDocument.CommandDoc("GetMxInterConnection", 1)


Dziękuję za pomoc.
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/