Расскажите пожалуйста как подключить базу на SQL Server 2000 к PB используя реестр и ini файлы
У меня есть информация из учебника о подключении к Access, но и там я не все поняла(???)

Создание пользовательских стандартных классов.

1. Создайте пользовательский класс Standard Class типа Transaction. Это будет базовый класс транзакций с дополнительными функциями, которые позволят пользователю выполнять основные операции при работе с базой данных: подключение и отключение от базы данных. Имена объекта и функций указаны в скрипте.

// Функция к базовому пользовательскому классу
// of_connect for n_trn_base
/*
C помощью dbhandle() проверить, подключена ли база данных
*/
If this.dbhandle() > 0 then
Return -1
End If

CONNECT USING this;

If this. SQLCode <> 0 Then
Messagebox (" Присоединение к базе данных.", &
"Невозможно подсоединиться к Б/Д. " + &
"~r~nDBParm: " + this. DBParm + &
"~r~nКод ошибки: " + String (this.SQLDBCode ) + &
"~r~n" +"Б/Д Сообщение об ошибке: " + this. SQLErrText, &
StopSign!, OK!, 1)
End If
Return this.SQLCode

// Функция к базовому пользовательскому классу
// of_disconnect for n_trn_base
/*
C помощью dbhandle() проверить, подключена ли база данных
*/
If this.dbhandle() > 0 then
DISCONNECT USING this;
If sqlca. SQLCode <> 0 Then
Messagebox (" Отсоединение от базы данных.", &
"Невозможно отсоединиться от Б/Д. " + &
"~r~nDBParm: " + this. DBParm + &
"~r~nКод ошибки Б/Д: " + String(sqlca. SQLDBCode) + &
"~r~n" +"Б/Д Сообщение об ошибке: " + sqlca. SQLErrText, &
StopSign!, OK!, 1)
End If
Return sqlca.SQLCode
Else
Return -1
End If

2. Создайте наследника вновь созданного класса для работы с базами данных, управляемых СУБД Access, с именем n_trn_access. Опишите в классе наследнике следующие объектные переменные:

String sysdir, curdir
и локальные внешние функции (Local External Functions )
function long GetSystemDirectory(ref string a_sysdir,long l_dir) &
library "kernel32.dll" alias for "GetSystemDirectoryA(это менять надо - ???)"
function long GetCurrentDirectory(long l_dir,ref string a_curdir) &
library "kernel32.dll" alias for "GetCurrentDirectoryA"

3. Создайте функцию, которая построит источник данных, в качестве параметра функции задается имя INI-файла.
//public function boolean create_dsn (string as_ INI);
String syskey, ls_NameDataSource, ls_DBFile
long err = 0
sysdir = Space(255)
curdir = Space(255)
GetSystemDirectory(sysdir, 255) // получить системный директорий
GetCurrentDirectory(255,curdir) // получить текущий директорий
ls_DBFile = ProfileString(as_INI,"Data Source(это имя сервера ???)","DB (это имя базы ???)","1" )
curdir += '\' + ls_DBFile
sysdir += '\odbcjt32.dll'
ls_NameDataSource = ProfileString(as_INI,"Data Source","DataBase","1" )
syskey = 'HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\' + &
ls_NameDataSource
err += RegistrySet ( syskey, 'DBQ', RegString!, curdir )
err += RegistrySet ( syskey, 'Driver', RegString!, sysdir )
err += RegistrySet ( syskey, 'DriverId', RegULong!, 25 )
err += RegistrySet ( syskey, 'FIL', RegString!, 'MS Access;')
err += RegistrySet ( syskey, 'Safe Transactions', RegULong!, 0 )
err += RegistrySet ( syskey, 'UID', RegExpandString!, '')
syskey = 'HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources'
err += RegistrySet ( syskey, ls_NameDataSource, RegString!, &
'Driver do Microsoft Access (*.mdb)' ) (что написать тут ???)
if err <> 7 then (почему <>7 ???)
return false
else
return true
end if
4. В объекте наследнике переопределите функцию of_connect:
//public function integer of_connect (string as_ INI);
string ls_NameDataBase
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False // Для совместной работы с Б/Д
ls_NameDataBase = ProfileString(as_INI,"Data Source","DataBase","1" )
SQLCA.DBParm = "ConnectString=DSN="+ ls_NameDataBase+ " ' "
If this.dbhandle() > 0 then
Return -1
End If
CONNECT USING this;
If this. SQLCode <> 0 Then // Если произошла ошибка при подсоединении к Б/Д
IF this. SQLdbCode = 999 THEN // Если не найден источник данных
create_dsn (as_ INI) // Создать источник данных
of_connect(as_ INI) // Еще раз подсоединиться к Б/Д
ELSE
Messagebox (" Присоединение к базе данных.", &
"Невозможно подсоединиться к Б/Д. " + &
"~r~nКод ошибки: " + String (this.SQLDBCode ) + &
"~r~nСообщение об ошибке: " + this. SQLErrText, &
StopSign!, OK!, 1)
END IF
End If
Return this.SQLCode


5. В своем приложении измените свойство SQLCA (нажать кнопку «Additional Properties» на вкладке General свойств приложения, выбрать в окне Application вкладку Variable Types), значение которого должно соответствовать имени, созданного Вами класса транзакций.

6. В событи open приложения вызовите функцию of_connect Вашего объекта транзакций вместо SQL-оператора, а в событии close вызовите функцию of_disconnect.

7. В сценарии к событию Open приложения измените значения свойств подключения к базе данных переменной SQLCA. Значения необходимо взять из Вашего файла параметров. Для этого проделайте следующее:

Создайте текстовый файл в любом подходящем редакторе, например, «Блокноте» и сохраните его под любым именем, но обязательно с расширением INI.

Пример подобного файла: (что мне написать ???)
[Data Source]
DataBase = GIG_Access_enterprises
DB = курсовик1
Скопируйте всю секцию в файл с именем соответствующим вашему приложению, и расширением INI (какую секцию ???). Внимательно прочтите его и измените, так чтобы информация подходила к созданным Вами функциям.
Формат функции ProfileString следующий:

Profile String (“<имя файла>.INI,” “<имя секции>”, “<имя свойства переменной транзакции, которому присваивается значение >”,”<>значение по умолчанию”)

НАПРИМЕР:

sqlca. DBMS = ProfileString(“PB.INI”,”Example_SqlServer”,”DBMS,”” )

Задание
1. Используя материал предыдущих лекций, добавить в приложение обработку ошибок при вызове функций для работы с данными (retrieve, update, delete, и др.). Изменения должны быть сделаны в базовом элементе управления DataWindow.

ПОМОГИТЕ ПОЖАЛУЙСТА ЛЮДИ ДОБРЫЕ, ЗАРАНЕЕ СПАСИБО.

Dim2000
HEEELP ME wrote:

> Расскажите пожалуйста как подключить базу на SQL Server 2000 к PB
> используя реестр и ini файлы
> У меня есть информация из учебника о подключении к Access, но и там я не
> все поняла(???)

Вот и читай до просветления. Не люблю ленивых студентов.
Posted via ActualForum NNTP Server 1.3
Так другой информации у меня больше нету.

Мне не понятно только там где вопросы стоят, помогите пожалуйста.

alexis glinski HEEELP MEМне не понятно только там где вопросы стоят, помогите пожалуйста.
на все эти вопросы есть ответы в help'e PowerBuilder'a (вызывается нажатием F1)
Ну хорошо, а что же писать в ini файле?

Локшин Маркт.е. через OLE DB.
Спасибо конечно, но мне просто через ODBC надо