добавление FeatureClass

Question

Здравствуйте уважаемые форумчане!

Я только учусь программировать в VB. Столкнулась с проблемой добавления FeatureClass из FeatureDataset базы геоданных в открытый ArcMap. Обычное OpenFromFile не подходит, это же все-таки БГД.

Помогите, пожалуйста, люди добрые.

Заранее огромное спасибо!!!

Answer 1

Чето зайти не получилось под своим ником?

С иниками, если опыта мало, лучше пока не связываца

Как с программированием, вообще?

Answer 2

Ой, честно говоря с программированием с детства не дружу

Было бы ещё время разобраться, так может что-нить ещё и получилось бы..
Чем меньше у меня времени остается до часа Х тем меньше надежд
А так приходиться ковыряться на форумах, и просить о помощи таких волшебников как Вы!

Answer 3

А почему такому недружелюбному "программеру" поручили писательством заняться? Начальство наверно не в курсе?

Был у меня такой пример, чел нихрена не понимал в Land Desktop'e, а пел работадателю, что все ОК. Во, во.

Answer 4

Долгая история. И начальство в курсе.. вот тока ему все ровно

И получается что дело делать надо, тока я не совсем понимаю как

Answer 5

тогда надо http://www.dataplus.ru/Training/Index.htm

начальство пусть дает деньги и в ближайшую контору по обучению

Answer 6

А я не работаю, а тока учусь (точнее заканчиваю обучение). В процессе обучения ничего такого и в помине не было:( А терь - нате пожалста, делайте как хотите!

Answer 7

Ладно горемыка, вот тебе класс для работы с ини-файлом:

ClsIniFile.bas

Option Explicit

Private Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, _
     ByVal lpKeyName As String, _
     ByVal lpString As String, _
     ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, _
     ByVal lpKeyName As Any, _
     ByVal lpDefault As String, _
     ByVal lpReturnedString As String, _
     ByVal nSize As Long, _
     ByVal lpFileName As String) As Long



Private sIniFileName As String

Public Property Get FileName() As String
  FileName = sIniFileName
End Property

Public Property Let FileName(Name As String)
  sIniFileName = Name
End Property


Public Function ReadKey(sSection As String, sKey As String, _
   Optional sDefault As String = "") As String

    Dim sValue As String
   
    sValue = String$(255, vbNullChar)
   
    If GetPrivateProfileString(sSection, sKey, _
             sDefault, sValue, Len(sValue), _
             sIniFileName) > 0 Then
        sValue = Left(sValue, InStr(sValue, vbNullChar) - 1)
        ReadKey = sValue
    Else
        ReadKey = sDefault
    End If
End Function

Public Function WriteKey(sSection As String, sKey As String, _
   sValue As String) As Boolean
    If WritePrivateProfileString(sSection, sKey, sValue, sIniFileName) Then
        WriteKey = True
    Else
        MsgBox "Ошибочка вышла" & err.LastDllError
        WriteKey = False
    End If
End Function


Private Sub Class_Initialize()
   sIniFileName = "D:\......ini.ini" 'там где иник
End Sub

а хотя бы глобальные переменные от переменных уровня процедуры различаешь?
а то мне много прийдется писательством заниматься

а так должен сам иник выглядеть

[user]
name=f**ker
geobase=asd

[templates] - вот это - sSection
pz=ptz.doc - а это - sKey

и тд

используй так

Public ini As New ClsIniFile

Public Sub ReadINI()

sUser = ini.ReadKey("user", "name")
sTNS = ini.ReadKey("user", "geobase")
sPZ = ini.ReadKey("templates", "pz")

End Sub

книжку по VB или VBA купи или в инете заходи на форумы по языкам!
где хоть заканчиваешь обучение? специальность?
А я прощаюсь, все

Answer 8

Спасибо большое! Вы мне очень помогли!!!

А книжки я читаю и в форумах бываю..
Про то где и что заканчиваю наверное лучше не говорить

Жаль что прощаетесь...
А мне наверное все равно придется задавать всякие глупые вопросы на этом форуме ещё недель 5-6 (жаль конечно, что никто практически не отвечает, многие вопросы остаются без ответа)... и потом я тож со всеми распращаюсь!
Ещё раз огромное спасибо!!!

Answer 9

Вот тебе ссылка, на много ссылок, особенно по VB
http://gis.tyumen.ru/mycollection/mybookmarks.html

Answer 10

Ладно, не буду прощаться. Превед!