Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Автолинковка при инсталляции программы / 7 сообщений из 7, страница 1 из 1
17.06.2008, 12:02
    #35376568
Роман Шевченко
Роман Шевченко
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автолинковка при инсталляции программы
Ситуация:
Есть программа, работающая с SQL сервером (MS SQL 2000) в локальной сети предприятия. Программа делает аналитику по имеющимся базам (их несколько).
Старые версии программ работали на DAO, сейчас перевожу потихоньку на ADO.
То есть, ситуация на данный момент такая:

Программа <-> (ADO соединение) <-> файл mdb <-> (ODBC драйвер) <-> SQL сервер

Знаю, что криво, знаю что через жопу и что промежуточный mdb файл надо выкинуть. Но это в перспективе. На данном этапе ситуация именно такова.

Собственно, вопрос:

Как при инсталляции программы (или при первом запуске или по нажатию определенной кньопки, не важно) произвести:

1. Создание файлового источника ODBC
2. Линковку определенных таблиц из файлового источника ODBC в mdb файл

Сейчас эту операцию делаю руками на каждой клиентской машине. Но это напряжно. А если инсталлировать на клиентские машины mdb файл с уже прилинкованными таблицами, то имя пользователя будет одно и то же (мое) и это приводит к непоняткам с одновременным доступом на сервер нескольких пользователей с одинаковым именем.

СПС.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2008, 12:16
    #35376632
LeonM
LeonM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автолинковка при инсталляции программы
П.Литвин,К.Гетц,М.Гилберт Access 200X. Корпоративные приложения, гл.2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2008, 12:21
    #35376664
Роман Шевченко
Роман Шевченко
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автолинковка при инсталляции программы
Спасибо за наводку :) Однако, хотелось бы сцылочку на оные действия стредствами Visual Basic....

Да, кстати, чуть не забыл: главная тонкость

При автоматическом создании ODBC источника, необходимо прописать в него UID (имя пользователя) и WSID (имя машины в сети) с текущей клиентской машины...
А вот как их определить - это для меня на данный момент главный вопрос....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2008, 13:31
    #35376942
Роман Шевченко
Роман Шевченко
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автолинковка при инсталляции программы
Поиск - великая штука.....

Вопрос про определение имени компа и имени пользователя снимаеться....

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Определение имени пользователя машины

Declare Function GetUserNameAPI Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetUserName() As String
  Dim sBuffer As String
  Dim lSize As Long
  sBuffer = Space$( 255 )
  lSize = Len(sBuffer)
  Call GetUserNameAPI(sBuffer, lSize)
  If lSize >  0  Then
    'GetUserName = Left$(sBuffer, lSize)
    GetUserName = left$(sBuffer, InStr(sBuffer, Chr( 0 )) -  1 )
  Else
    GetUserName = vbNullString
  End If
End Function
___________________________________________________________________________________________________________

Определение имени компьютера

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Public Function GetComputer() As String
    Dim compName As String *  255 , k As Long
    k =  255 
    If GetComputerName(compName, k) Then
        GetComputer = Left(compName, k)
    Else
        GetComputer = ""
    End If
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2008, 14:40
    #35377263
Роман Шевченко
Роман Шевченко
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автолинковка при инсталляции программы
Однако, вопрос про автоматическое создание DSN и автолинковку таблиц в mdb файл остается актуальным....

Кстати, кто подскажет, как проверить, существует ли DSN с таким именем или нет? Если существует то выход, если нет - то создать....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2008, 19:46
    #35378399
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автолинковка при инсталляции программы
Нафиг тебе DSN? Без него жизнь не мила? Указывай параметры коннекта напрямую без DSN и все.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2008, 14:10
    #35382723
Роман Шевченко
Роман Шевченко
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автолинковка при инсталляции программы
Не получиться. У меня mdb файл работает как прокси, в нем линки из трех MS SQL баз данных. И прилинковывать таблицы в него нужно с учетом UID и WSID конкретного пользователя....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Автолинковка при инсталляции программы / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 315ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2162161]:
 0ms
get settings:
 13ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 36ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 206ms
total:  315ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]