ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Автолинковка при инсталляции программы
7 сообщений из 7, страница 1 из 1
Автолинковка при инсталляции программы
    #35376568
Роман Шевченко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Роман Шевченко
Гость
Ситуация:
Есть программа, работающая с SQL сервером (MS SQL 2000) в локальной сети предприятия. Программа делает аналитику по имеющимся базам (их несколько).
Старые версии программ работали на DAO, сейчас перевожу потихоньку на ADO.
То есть, ситуация на данный момент такая:

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

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

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

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

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

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

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

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

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

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


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