MapForums

Hallo guys,

i got a serious problem while importing data using vba
(com-object). import without the parameter ArryOfFields
works fine. any ideas ?

thanks in advance.

mark
(mark.pfizenmayer@web.de)

Code
====

Public objDataSets As MapPointCtl.DataSets
Public objDataSet As MapPointCtl.DataSet

.
.
.

Public Sub procDatenImport(sDateiname As String, _
sKennzahlName As String, _
sFeld() As String, _
iFeldTyp() As Integer, _
iDarstellungstyp As Integer)
Dim varFeld()
Dim iAnz As Integer
Dim iLoop As Integer


iAnz = UBound(sFeld)
iAnz = 1
ReDim varFeld(iAnz, 2)

For iLoop = 1 To iAnz
varFeld(iLoop, 1) = sFeld(iLoop) 'Fieldname
varFeld(iLoop, 2) = iFeldTyp(iLoop) 'geoField...
Next iLoop

Set objDataSets = mapKarte.ActiveMap.DataSets


' at this method i got the message "incorrect parameter" (german: "falscher parameter")
Set objDataSet = objDataSets.ImportData(sDateiname, varFeld(), geoCountryGermany, geoDelimiterTab, geoImportFirstRowIsHeadings)

.
.
.

Solution ...


>For iLoop = 1 To iAnz
> varFeld(iLoop, 1) = sFeld(iLoop) 'Fieldname
> varFeld(iLoop, 2) = iFeldTyp(iLoop) 'geoField...
=> wrong: iFeldTyp = Integer
=> right: iFeldTyp = Variant/Long
>Next iLoop