MapForums

Is it possible to create a recordset that contains both the Mappoint demographic data and data that I import?

Background - I've created an Excel application that 1) imports customer data 2) creates drive time zones for our sales representative 3) exports the customer data within the drive time zone back to Excel. I just want to add the size of the zip code to the export.

Thanks.

-------------------------------------------------------------------


Private Sub CommandButton1_Click()

Set oApp = CreateObject("MapPoint.Application.NA.11")
oApp.Visible = True
Set objMap = oApp.NewMap
Dim objDataSet As MapPoint.DataSet

Dim objRecordset As MapPoint.Recordset
Dim objField As MapPoint.Field
Dim objPin As MapPoint.Pushpin
Set objDataSet = objMap.DataSets.ShowImportWizard
objDataSet.Symbol = 33
'start reading on row 2 of spreadsheet
nReadRow = 2
nShapeIndex = 1
nExportRow = 2

Do
szZip = Worksheets("Sheet1").Cells(nReadRow, 4)
fdrivetime = Worksheets("Sheet1").Cells(nReadRow, 5)
nColor = AssignColor(Worksheets("Sheet1").Cells(nReadRow, 6))
Set objLoc = objMap.FindAddressResults(, , , , szZip)(1)
Set objPin = objMap.AddPushpin(objLoc, Worksheets("Sheet1").Cells(nReadRow, 1))
Symbol = 205
' objMap.DataSets.ZoomTo
Set objshape = objMap.Shapes.AddDrivetimeZone(objLoc, fdrivetime * geoOneMinute)
objMap.Shapes.Item(nShapeIndex).Fill.Visible = True
objMap.Shapes.Item(nShapeIndex).ZOrder (geoSendBehindRoads)
objMap.Shapes.Item(nShapeIndex).Fill.ForeColor = nColor
objMap.Shapes.Item(nShapeIndex).Line.ForeColor = vbBlack
objMap.Shapes.Item(nShapeIndex).Line.Weight = 1
objMap.Shapes.Item(nShapeIndex).SizeVisible = False
' objshape.Select

Set objRecordset = objDataSet.QueryShape(objshape)
objRecordset.MoveFirst
Do Until objRecordset.EOF
For Each objField In objRecordset.Fields

Worksheets("Sheet2").Cells(nExportRow, 1) = objPin.Name
Worksheets("Sheet2").Cells(nExportRow, 7) = objRecordset.Fields("ZIP")
Worksheets("Sheet2").Cells(nExportRow, 2) = objRecordset.Fields("State")
Worksheets("Sheet2").Cells(nExportRow, 3) = objRecordset.Fields("County")
Worksheets("Sheet2").Cells(nExportRow, 4) = objRecordset.Fields("CL")
Worksheets("Sheet2").Cells(nExportRow, 5) = objRecordset.Fields("PL")
Worksheets("Sheet2").Cells(nExportRow, 6) = objRecordset.Fields("Size")
Worksheets("Sheet2").Cells(nExportRow, = fdrivetime
Next objField
objRecordset.MoveNext

nExportRow = nExportRow + 1
Loop
nShapeIndex = nShapeIndex + 1
nReadRow = nReadRow + 1
Loop Until Worksheets("Sheet1").Cells(nReadRow, 1) = ""
End Sub