Howdy, Stranger!
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.6K Microsoft Dynamics NAV
- 18.7K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 115 Navision DOS
- 854 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 615 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 305 Dynamics CRM
- 109 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 993 SQL General
- 384 SQL Performance
- 34 SQL Tips & Tricks
- 34 Design Patterns (General & Best Practices)
- Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.7K General
- 1.1K General Chat
- 1.6K Website
- 79 Testing
- 1.2K Download section
- 23 How Tos section
- 260 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions
is nodbc dsn less possible?
tzikitzake
Member Posts: 13
hi, I'm trying a dns-less odbc connection from excel 2007 VBA to Navision 4.03 with NODBC 4.0 but doesn't work (defining a DSN connection from Data Sources from Control Panel works fine). I have investigated about it, but I can't find an answer if it is possible or if it is neccessary to define a DSN (I think with c/odbc 3.70 was possible).My problem is that I need to change the company with VBA and don't know if it is possible using a DSN.
my code is like:
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DRIVER={Microsoft Navision Driver};CSF=YES;NType=TCP;SName=xxxxxxxxxCN=yyyyyy;OPT=Text;UID=uuuuu;PWD=ppppppppp;PPath=C:\Archivos de programa\Microsoft Business Solutions-Navision\Client;CC=YES;BE=YES;CD=NO" _
, Destination:=Range("$A$1"))
.CommandText = Array( _
"SELECT ""Agrupaciones de coste"".Agrupación, ""Agrupaciones de coste"".Nombre" & Chr(13) & "" & Chr(10) & "FROM ""Agrupaciones de coste"" ""Agrupaciones de coste""")
.Name = "navision data"
.Refresh BackgroundQuery:=False
End With
my code is like:
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DRIVER={Microsoft Navision Driver};CSF=YES;NType=TCP;SName=xxxxxxxxxCN=yyyyyy;OPT=Text;UID=uuuuu;PWD=ppppppppp;PPath=C:\Archivos de programa\Microsoft Business Solutions-Navision\Client;CC=YES;BE=YES;CD=NO" _
, Destination:=Range("$A$1"))
.CommandText = Array( _
"SELECT ""Agrupaciones de coste"".Agrupación, ""Agrupaciones de coste"".Nombre" & Chr(13) & "" & Chr(10) & "FROM ""Agrupaciones de coste"" ""Agrupaciones de coste""")
.Name = "navision data"
.Refresh BackgroundQuery:=False
End With
0