Hi.
I actually have problem.
brOpenConnection method doesn't work in Excel VBApplication.
I get msg error of -2147220223 "Unidentified Internal Error".
DSN is working conditions. MSQuery returned well result
Thanks

Make sure the object is DIM'ed as NEW clsD3Connection or use the SET to
create a new instance of the object before you attempt to connect it.

Mark Brown

<soumi0 (AT) walla (DOT) com> wrote

Access to remote host with using DCOM (References D3VB4Tst.exe) Okey
Sub Macro()
Dim oEnv As clsD3Environment
Dim oConn As clsD3Connection
Set oEnv = CreateObject("D3VB4Tst.clsD3Environment", "remote_host")
Set oConn = oEnv.brOpenConnection("", "dm") <----Ok

Access to local host with using DCOM(References D3OleSrv.dll) Okey
Sub Macro()
Dim oEnv As clsD3Environment
Dim oConn As clsD3Connection
Set oEnv = CreateObject("D3OleSrv.clsD3Environment")
Set oConn = oEnv.brOpenConnection("", "dm") <--- Ok


Access to local host with using ODBC(References D3CLODBC.dll) ERROR
Sub Macro()
Dim aEnv As clsD3Environment
Dim aCon As clsD3Connection
Set aEnv = New clsD3Environment
Set aCon = aEnv.brOpenConnection("ODBC", "DM") <--Error 2147220223

Sorry, last group string for REMOTE HOST

Access to REMOTE host with using ODBC(References D3CLODBC.dll)
ERROR
Sub Macro()
Dim aEnv As clsD3Environment
Dim aCon As clsD3Connection
Set aEnv = New clsD3Environment
Set aCon = aEnv.brOpenConnection("ODBC", "DM") <--Error 2147220223

soumi0 (AT) walla (DOT) com wrote:

Why are you using CreateObject()? This is late binding. If you have a
reference to the D3 Class library (D3OleSrv), you should use early
binding.

Dim oEnv As clsD3Environment
Dim oDomain As clsD3NetDomain
Dim oDB As clsD3Database
Dim oFile as clsD3File

Set oEnv = New clsD3Environment
Set oDomain = oEnv.brOpenDomain("")
Set oDB = oDomain.brOpenDatabase(DBName)
Set oFile = oDB.brOpenFile(FileName)

Use Tools/References menu in Excel to select the D3Object Library
in-process Server.

Use View/Object Browser menu in Excel to examine this class library.

I've never used the ODBC lib, but in your example, it appears that you
are missing CreateObject() for the aEnv variable. However, as above,
this is late binding. You're better off setting up a reference to the
lib and using early binding.

--
Kevin Powick

"Kevin Powick писал(а):
"

I agree for local access, but for remote machine i use
Tools/References menu in Excel to select the D3CLODBC(only) Library.
Next sample from D3Books OnLine

brOpenConnection Method Example

Sub Main()

Dim oEnv As New clsD3Environment
Dim oConn1 As clsD3Connection
Dim oConn2 As clsD3Connection
' Environment settings
oEnv.brCurrency = "$"
oEnv.brDecimal = "."
oEnv.brGrouping = ","
oEnv.brCasing = False

Set oConn1 = oEnv.brOpenConnection("ODBC", "USproduction")
Set oConn2 = oEnv.brOpenConnection("ODBC", "UKproduction")

' "USproduction" is USER_DSN or SYSDSN
....

' Closing connections
oEnv.brCloseConnection oConn1
oEnv.brCloseConnection oConn2
Set oEnv = Nothing
End Sub

The parameters for brOpenConnection should be

"ODBC", DSN_Name

DSN_name is the name of the Data Source Name you defined to attach to the
database. Usually NOT DM.

Mark Brown


<soumi0 (AT) walla (DOT) com> wrote

soumi0 (AT) walla (DOT) com wrote:

Why? I use D3OleSvr to connect to remote hosts all the time. The only
"trick" is setting the registry key "MdsServerName" to the IP address
or hostname of the remote system.

HKEY_LOCAL_MACHINE\SOFTWARE\PickSystems\D3\Current Version\D3FSI

I actually wrote a simple utility to do the registry change for me when
I want to connect to different hosts.

Why use ODBC? It's slow and a terrible implementation in D3, forcing
you to create duplicate files of your D3 data.

Use the D3OleSvr whenever you can.

D3Books OnLine are terrible. The fact that they reference VB4 should
indicate how old they are.

Unless they have been updated recently, the information is often
missing or inaccurate.

--
Kevin Powick

I wrote(formulate) wrongly in my question,
e.g. brOpenConn("ODBC","DM") where "DM" is SYS_DSN or USER_DSN.
When I run brOpenConn , remote host registered my access as new (next)
pibs, but VB returned error.Pibs records is empty.
My second question.Can I "shutdown" counter pibs?
Example: I have 2 log users.Pibs 2 and 3.After my 5 try exec wrongly
macros, log in next user .
System assignment pibs 8.I want after exec macros "returned counter"
pibs on 3.In that case next log in user will get 4 pibs
Thanks

Please get me example your HKEY to group or soumi (AT) walla (DOT) com

or Query acros
DSN with ODBC.This is obsolescence?
Thanks