|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.10.2008, 19:34 | #1 |
Пользователь
Регистрация: 05.04.2008
Сообщений: 66
|
Помогите создать базу SQL на Делфи
Если можно, то подробно раскажите как в делфи создать базу данных SQL. С SQL столкнулся первый раз, уже перепробывал много вариантов но ни чего не выходит в некоторых случаях выдает сообщение ::
"File or directory does not exist. File ..\....\employee.db File ..\....\employee.dbf File ..\....\employee.txt " Читал несколько статей - понял, что employee.db это какаето стандартаная база на SQL.. может чегото не хватает? |
18.10.2008, 19:39 | #2 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Из правил форума:
Цитата:
Последний раз редактировалось mihali4; 18.10.2008 в 19:42. |
|
28.10.2008, 19:32 | #3 |
Регистрация: 28.10.2008
Сообщений: 9
|
Создать БД на SQL-сервере:
procedure CreateSQLBase; var myADO : TADOQuery; NameSQLBase,NameSQLTable,NameSQLSer ver : string; begin myADO:=TADOQuery.Create(self); myADO.ConnectionString:='Provider=S QLOLEDB.1;'+ 'Integrated Security=SSPI;'+ 'Persist Security Info=False;'+ 'Data Source='+NameSQLServer; myADO.SQL.Clear; myADO.SQL.Text:='CREATE DATABASE '+NameSQLBase; try myADO.ExecSQL; except ShowMessage('База данных с именем: "'+NameSQLBase+'" - уже существует...'); end; myADO.Free; end; Создать таблицу на SQL-сервере: procedure CreateSQLTable; var myADO : TADOQuery; NameSQLBase,NameSQLTable,NameSQLSer ver : string; begin myADO:=TADOQuery.Create(self); myADO.ConnectionString:='Provider=S QLOLEDB.1;'+ 'Integrated Security=SSPI;'+ 'Persist Security Info=False;'+ 'Initial Catalog='+NameSQLBase+';'+ 'Data Source='+NameSQLServer; myADO.SQL.Clear; myADO.SQL.Text:='CREATE TABLE NameSQLTable ('+ '[Number] [int] IDENTITY (1,1) NOT NULL ,'+ '[Chek] [Bit] NULL , '+ '[Text1] [varchar] (10) NULL ,'+ '[Text2] [varchar] (20) NULL ,'+ //поля таблицы...... '[Text3] [varchar] (30) NULL ,'+ '[Text4] [varchar] (255) NULL ,'+ '[Chislo] int,'+ '[Comment] memo,'+ ' ON [PRIMARY]'; try myADO.ExecSQL; except ShowMessage('Ошибка создания таблицы "'+NameSQLTable+'", или'+#13+#10+ 'такая таблица уже существует...'); end; myADO.Free; end; |
01.11.2008, 20:30 | #4 |
Новичок
Джуниор
Регистрация: 01.11.2008
Сообщений: 1
|
вот неплохой пример!!!!
http://arcotel.narod.ru/Bases.rar (пароль:456017) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите создать базу на SQL под Delphi | photozaz | SQL, базы данных | 8 | 07.01.2009 14:13 |
Помогите создать в делфи что то типа таймера. | Unstaller | Помощь студентам | 2 | 16.07.2008 08:30 |
Создать базу данных | Master of Puppets | Microsoft Office Excel | 5 | 10.06.2008 13:34 |
Как создать базу данных? | LeonKing | Помощь студентам | 4 | 07.05.2008 14:11 |
Как создать базу данных | knazty | Помощь студентам | 15 | 18.11.2007 19:49 |