kalau u. masalah mas aksan yg ingin agar biarpun ga pake mts server tapi bisa pake business object yg ditaruh diserver, gimana kalau pake logika berikut (ini hanya ide, blm saya coba)
# letakkan kedua file di server (mis: nama server nya adalah MyServer)
# register dll yg di server tadi dg regsvr32
# gunakan kode berikut u. mengakses object class di dalam dll tadi
'------------------
dim oCRMClass as Object
'gunakan late binding, karena early binding ga bisa kita gunakan disini
dim oCn as ADODB.Connection
'saya asumsikan kalau hasil dr fungsi connect di CRMClass
' adalah sebuah object connection, jadi disini saya gunakan early binding, jadi jangan lupa add
' reference ke ADO nya. kalau asumsi salah salah, anda bisa gunakan late binding juga.
set oCRM = CreateObject("CRM.CRMClass", "MyServer")
'ini dg asumsi nama project activexdll-nya adalah CRM
set oCn = oCRM.Connect
'-------------------
semoga bisa membantu
best regards
[wwn]
On 9/16/05, Aksan Kurdin <[EMAIL PROTECTED]> wrote:
Nah udah saya coba, jadi saya punya group terdiri dari 2 project:
- CRMClass (ActiveX dll)
- CRMInterface (Exe)
CRMClass berisi fungsi2 database dan bisnis rulenya, sedang
CRMInterface adalah interface pada sisi klien.
-------------------------------------------------------
Di CRMInterface saya start dari sub Main berisi:
Private myProject As VBIDE.VBProject
Public Sub Main()
myProject.References.AddFromFile IIf(Right( App.Path, 1) = "\",
App.Path, App.Path & "\") & "CRM.dll"
frmMain.Show
End Sub
-------------------------------------------------------
sedang di frmMain dimulai dengan deklarasi class:
Option Explicit
Dim cnn As New CRMClass.Connect
Nah saya ditahan error di baris deklarasi ini, CRMClass tidak dikenali.
Kalau sebelumnya, class ini saya ikutkan dalam referens melalui menu
(design time), nah saya ingin referens tsb saya hapus, biar dari kode
saja nambahnya saat real time aplikasi mulai dijalankan. Tapi saat
saya hapus lalu mulai jalankan program dengan ctrl-f5, error muncul
seperti di atas.
Bagaimana cara yang bener ?
TIA
aksan kurdin
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
