Автор |
Delphi + Microsoft SQL Server |
Hrono
Пользователь
Сообщений: 3
Зарегистрирован: 19.03.09 |
Опубликовано 20-03-2009 13:51 |
|
|
Доброе время суток. Начинающий в делах программирования. Есть исходник Delphi+ microsoft SQL server 2000 не могу запустить, ошибка типа не найден сервер. Не подскажите как надо настроить server чтоб прое кт заработал(если можно по потробней) |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 20-03-2009 14:59 |
|
|
Hrono написал:
Доброе время суток. Начинающий в делах программирования. Есть исходник Delphi+ microsoft SQL server 2000 не могу запустить, ошибка типа не найден сервер. Не подскажите как надо настроить server чтоб прое кт заработал(если можно по потробней)
Я уж не помню =)
В AdoConnection пишешь в коннекшинстринг что то типа
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Kino;Data Source=KOSTY-EDD9DC2OC |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Hrono
Пользователь
Сообщений: 3
Зарегистрирован: 19.03.09 |
Опубликовано 20-03-2009 15:10 |
|
|
Фишка в чем что вообще не могу запустить проект сразу сообщения что нет соединения
Изменил(а) Hrono, 20-03-2009 15:11 |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 20-03-2009 15:18 |
|
|
Сервер хоть запущен? если все указываешь правильно.. то будет сообщение или что то типо этого что соединился |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Hrono
Пользователь
Сообщений: 3
Зарегистрирован: 19.03.09 |
Опубликовано 20-03-2009 15:28 |
|
|
Сервер запущен(настройки на локальной машине) Суть в чем я вообще не очень шарю в этом сервере(а также в Delphi после открытия проекта не чего нельзя сделать все время вылажит сообщение о сервере)
Изменил(а) Hrono, 20-03-2009 15:31 |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 20-03-2009 21:39 |
|
|
Hrono написал:
Сервер запущен(настройки на локальной машине) Суть в чем я вообще не очень шарю в этом сервере(а также в Delphi после открытия проекта не чего нельзя сделать все время вылажит сообщение о сервере)
Вылетает потому что не может соединится =) помню была такая проблема |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 20-03-2009 21:46 |
|
|
Нашел вот тебе из методички =))) :
Создание псевдонимов БД
Как уже отмечалось ранее, взаимодействие приложения с БД осуществляется через источник данных, для которого задается уникальное на компьютере имя – псевдоним или, по-другому, альяс. Понятия псевдоним и источник данных часто отождествляют. Псевдонимы могут создаваться как с помощью утилиты BDE Administrator, так и с помощью утилиты SQL Explorer. Для обеих утилит этот процесс совершенно аналогичен.
Рассмотрим процесс создания псевдонимов. Откроем SQL Explorer, выбрав пункт Explorer из меню Database Delphi (C++Builder). Выберем пункт ODBC Administrator меню Object. Если данная операция запрещена, то необходимо запустить утилиту C:\WINNT\SYSTEM32\odbcad32.exe. На вкладке Пользовательский DSN нажмем кнопку Добавить. В открывшемся окне (рис. 3) выберем тип драйвера Microsoft SQL Server (или SQL Server) и нажмем кнопку Готово.
Далее (рис. 4) будет предложено ввести имя псевдонима БД, под которым к ней будем обращаться из клиентских приложений и имя сервера (например, WS208).
В качестве имени псевдонима следует указать какое-либо осмысленной буквосочетание, например, Supply, Transport, Нotel и т.д. В следующем окне необходимо выбрать пункт Проверка подлинности учетной записи SQL Server, что означает, что для доступа к серверу будет использовано имя и пароль, задаваемые на сервере, а не имя и пароль, под которым входили в систему. Следует также убрать флажок напротив надписи Получить параметры, используемые по умолчанию от SQL Server, чтобы не указывать имя и пароль для доступа к БД с расширенными полномочиями (в нашем случае это не надо).
В последующих окнах нужно все оставить без изменения, нажимая кнопку Далее и в конце Готово. Альяс будет создан. Обратите внимание, что в окне SQL Explorer альяс пока не появился (появится после закрытия и нового открытия приложения). Следует закрыть SQL Explorer и Borland Delphi (Borland C++Builder).
Далее следует связать альяс с уже созданной базой данных. Во всех рассматриваемых в дальнейшем примерах используется БД Поставка товаров, схема которой представлена на рис. 5.
Далее установления связи альяса с базой данных нужно вновь открыть утилиту SQL Explorer, выбрать свой псевдоним (например, Supply) и ввести необходимые сведения о своей базе (рис. 6):
DATABASE NAME Поставка товаров (имя БД на сервере)
USER NAME sa (имя пользователя сервера)
Утвердить изменения, выбрав пункт Apply меню Object. Следует отметить, что эти сведения можно было ввести и раньше, при создании псевдонима.
Дважды щелкнуть по своему псевдониму, после чего в открывшемся окне ввести пароль, например, sa. Произойдет подключение к удаленной БД. Если в результате попытки подключения произойдет ошибка, повторить попытку.
В левой части окна выбрать пункт Tables и просмотреть сведения об имеющихся в БД таблицах (рис. 7). Просмотреть свойства своих таблиц (структуру полей).
С помощью утилиты SQL Explorer можно также отлаживать SQL запросы. Рассмотрим этот процесс.
С целью настройки программы на нормальное отображение русских букв выбрать пункт Text Font меню View и выбрать шрифт Courier вместо Courier New.
В правой части окна выбрать вкладку Enter SQL (рис. 8). В соответствующем поле ввода ввести текст SQL-запроса, после чего нажать кнопку (выполнить). В нижней правой части окна появятся результаты выполнения запроса. Далее можно вводить новый запрос. Список введенных запросов можно листать кнопками и.
Теперь созданный псевдоним можно использовать в клиентских приложениях для доступа к БД
Компоненты доступа к данным
Рассмотрим более подробно компоненты доступа к данным с помощью технологии BDE. К наиболее используемым компонентам относятся: TTable, TQuery, TStoredProc, TDataSource.
Компоненты TTable, TQuery, TStoredProc, относящиеся к уровню набора данных, имеют общий родительский класс TDataSet. У перечисленных компонентов есть много общих свойств и методов. Рассмотрим наиболее важные из них.
Свойство Active – логического типа. Если принимает значение true, то набор данных активен, т.е. записи в нем доступны для считывания.
Свойство DatabaseName – позволяет задать псевдоним БД, с которой работает набор данных.
В компоненте TTable добавлено свойство ТаbleName – имя таблицы БД, с которой работает компонент.
В компоненте TQuery добавлено свойство SQL – текст SQL-запроса.
В компоненте TStoredProc добавлено свойство StoredProcName – имя хранимой процедуры.
Компонент TDataSource имеет важнейшее свойство DataSet, позволяющее присоединить источник данных к требуемому набору данных. К одному набору данных может быть присоединен только один компонент источника данных.
...
Создание простейших приложений БД
Создадим простейшее приложение БД, позволяющее отображать содержимое таблицы БД Поставщики. Для этого необходимо.
1. Создать новый каталог для проекта.
2. Создать новый проект в Delphi (С++ Builder), сохранив его в созданном ранее каталоге проекта.
3. Поместить на форму следующие компоненты:
• TTable (вкладка BDE), имя TableSupplier;
• TDataSource (вкладка Data Access), имя DataSourceSupplier;
TDBGrid (вкладка Data Controls), имя DBGridSupplier.
4. Задать с помощью Object Inspector следующие свойства компонент:
• DataSourceSupplier–>DataSet = TableSupplier (связать источник с таблицей);
• DBGridSupplier–>DataSource = DataSourceSupplier (связать сетку с источником);
• TableSupplier–>DatabaseName = Supply (связать таблицу с БД).
• TableSupplier–>TableName = “Поставщик” (выбрать таблицу БД).
Теперь создадим приложение БД, позволяющее отображать содержимое двух связанных между собой таблиц БД: Поставки и Поставщики. Для этого необходимо.
1. Создать новый каталог для проекта.
2. Создать новый проект в Delphi (С++ Builder), сохранив его в созданном ранее каталоге проекта.
3. Поместить на форму следующие компоненты:
• TTable (вкладка BDE) – 2 шт. (имена TableMaster и TableSlave);
• TDataSource (вкладка Data Access) – 2 шт. (имена DataSourceMaster и DataSourceSlave);
• TDBGrid (вкладка Data Controls) – имена DBGridMaster и DBGridSlave);
• TDBNavigator (вкладка Data Controls) – имя DBNavigatorMaster.
4. Задать с помощью Object Inspector следующие свойства компонент:
• DataSourceMaster–>DataSet = TableMaster (связать источник с таблицей);
• DataSourceSlave–>DataSet = TableSlave (связать источник с таблицей);
• DBGridMaster–>DataSource = DataSourceMaster (связать сетку с источником);
• DBGridSlave–>DataSource = DataSourceSlave (связать сетку с источником);
• DBNavigatorMaster–>DataSource = DataSourceMaster (связать навигатор с источником);
• TableMaster–>DatabaseName = Supply (связать таблицу с БД);
• TableSlave–>DatabaseName = Supply (связать таблицу с БД);
5. Связать между собой таблицы Поставки и Поставщики. Для этого задать с помощью Object Inspector следующие свойства компонент:
• TableMaster–>TableName = Поставщики (указать главную таблицу в БД);
• TableSlave–>TableName = Поставки (указать подчиненную таблицу в БД);
• TableSlave–>MasterSource = DataSourceMaster (задать источник главной таблицы для подчиненной);
16
• TableSlave–>MasterFields с помощью редактора связей задать поля связи, например, Detail Fields: Поставщик и Master Fields: Табельный номер;
• TableMaster–>Active = true (Разрешить «живые данные»);
• TableSlave–>Active = true (Разрешить «живые данные»);
|
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 25-03-2009 10:54 |
|
|
Решил опубликовать статьи по Delphi + Ms SQL server >> http://codingrus.ru/readarticle.php?article_id=755, там подробнее написано |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Game256
Пользователь
Сообщений: 6
Зарегистрирован: 18.05.09 |
Опубликовано 18-05-2009 10:42 |
|
|
Добрый день.Та же проблема-скачал исходник вот отсюда
http://codingrus.ru/infusions/pro_download_panel/download.php?did=195
но запустить приложение не могу.Буду очень благодарен если подскажете решение проблемы.
Скопировал базы данных из исходника в папку MS SQL Server,запускаю приложение - зависает и и выдает ошибку
[DBNETLIB][ConnectionOpen (Connect()).]SQL-сервер не существует, или отсутствует доступ.
Проблема в том,что даже не могу запустить приложение,чтобы изменить путь к серверу и базе данных. |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 18-05-2009 12:58 |
|
|
Game256 написал:
Добрый день.Та же проблема-скачал исходник вот отсюда
http://codingrus.ru/infusions/pro_download_panel/download.php?did=195
но запустить приложение не могу.Буду очень благодарен если подскажете решение проблемы.
Скопировал базы данных из исходника в папку MS SQL Server,запускаю приложение - зависает и и выдает ошибку
[DBNETLIB][ConnectionOpen (Connect()).]SQL-сервер не существует, или отсутствует доступ.
Проблема в том,что даже не могу запустить приложение,чтобы изменить путь к серверу и базе данных.
см пост выше |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 18-05-2009 13:00 |
|
|
Вообщем нужно много раз нажать отмену тогда запустится, если мне не изменяет память. по моему так всегда в дельфи было |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Game256
Пользователь
Сообщений: 6
Зарегистрирован: 18.05.09 |
Опубликовано 18-05-2009 13:27 |
|
|
А у вас нет этой работы,сохраненной на компе?Может быть вы могли бы запустить это приложение,отключить настройки соединения с серваком,и сбросить на мыло?
Спасибо за ответ |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 18-05-2009 13:40 |
|
|
А не проще ли поковыряться в файле Udm.dfm!?
object dm: Tdm
OldCreateOrder = False
Left = 392
Top = 338
Height = 150
Width = 215
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=kursovaya;Data Source=KOSTY-EDD9DC2OC'
Provider = 'SQLOLEDB.1'
Left = 32
Top = 24
end
end
|
|
Автор |
RE: Delphi + Microsoft SQL Server |
Game256
Пользователь
Сообщений: 6
Зарегистрирован: 18.05.09 |
Опубликовано 18-05-2009 13:50 |
|
|
А где этот файл находится?) |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 18-05-2009 13:55 |
|
|
program Project1;
uses
Forms,
unit1 in 'unit1.pas' {Form1},
Udm in '..\Udm.pas' {dm: TDataModule},
Unit3 in 'Unit3.pas' {Form3},
Unit2 in 'Unit2.pas' {Form2},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5};
видимо в папке выше которой нет сейчас перезалью))))) |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Game256
Пользователь
Сообщений: 6
Зарегистрирован: 18.05.09 |
Опубликовано 18-05-2009 13:57 |
|
|
=))) Спасибо =) |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 18-05-2009 14:02 |
|
|
теперь все что было залил. там несколько версий, вроде все должны быть рабочими |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Game256
Пользователь
Сообщений: 6
Зарегистрирован: 18.05.09 |
Опубликовано 18-05-2009 14:09 |
|
|
спасибо,попробую разобраться |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Game256
Пользователь
Сообщений: 6
Зарегистрирован: 18.05.09 |
Опубликовано 18-05-2009 14:55 |
|
|
Вообщем,ни черта не получается..открываю Udm.dfm,меняю настройки под свой сервак,ставлю значение AdoConnection в положение False-все равно та же ошибка подключения к серверу.В каких файлах еще могут быть данные о подключении?Да и у вас там,разброс какой-то-в однйо папке-одних units не хватает,в еще одной-других.. |
|
Автор |
RE: Delphi + Microsoft SQL Server |
Kest
Супер Администратор
Сообщений: 226
Зарегистрирован: 01.01.70 |
Опубликовано 18-05-2009 15:02 |
|
|
Есть такое, этот курсач не я писал, но сдавал я, и помню удавалось откомпилировать, правда долго помучился
Я не помню какая из этих версий рабочая, поэтому и скинул все |
|