Пример записи в базу

@Bookkc1 · Регистрация: 01.11.2012

Студворк — интернет-сервис помощи студентам

нужен Пример записи в базу mysql. Я заполняю несколько колонок (edit например) жму баттон и все данные записываются в mysql.

буду безмерно благодарен!

люблю Ваш форум

@Bookkc1 · 03.10.2013, 18:28 **[ТС]**

Сообщение от Latino

SimpleDataSet, вот это что за компонент? Я никогда им не пользовался, к моему стыду)

эээм... не знаю, я никогда с бд не работал, делал все по этому мануалу.

http://delphiexpert.ru/program... henie.html

Понятие о базе данных имею, но не на высшем уровне конечно, мне главное сделать запись в бд, так как мне нужно, а дальше я думаю сдвинусь с мертвого места

@droider · 03.10.2013, 19:29

этот компонент предназначен для просмотра и редактирования данных одной таблицы (вкладка dbExpress).
Не поддерживается многозвенными приложениями.

@Bookkc1 · 03.10.2013, 19:37 **[ТС]**

Сообщение от droider

этот компонент предназначен для просмотра и редактирования данных одной таблицы (вкладка dbExpress).
Не поддерживается многозвенными приложениями.

то есть? как мне решить мою проблему?:-(

@Latino · 03.10.2013, 19:42

так я бы лучше бы использовал для этих целей компонент TSQLQuery

@Bookkc1 · 03.10.2013, 19:52 **[ТС]**

Сообщение от Latino

так я бы лучше бы использовал для этих целей компонент TSQLQuery

а подробней? есть ли разница в настройке?

@Bookkc1 · 03.10.2013, 20:16 **[ТС]**

Заметил ещё такое, выставил в SimpleDataSet1 Active=True, получилось такое вот :-( когда компилирую то выскакивает ошибка как на скрине выше. Блин, не знаю что делать. помогите, а...

@droider · 04.10.2013, 09:54

Сообщение от Bookkc1

компонент TSQLQuery

не думаю, что ТС знаком с SQL. Для данного случая достаточно SimpleDataSet.

@Bookkc1 · 04.10.2013, 10:00 **[ТС]**

Сообщение от droider

не думаю, что ТС знаком с SQL. Для данного случая достаточно SimpleDataSet.

Решил все таки остаться с SimpleDataSet, но что же делать с ошибкой?

@droider · 04.10.2013, 15:53

Сообщение от Bookkc1

что же делать с ошибкой?

скачайте подходящую версию библиотеки MySqlLib.dll для Вашей версии MySQL.
Или же не возитесь с dbExpress. Cкачайте и установите пакет компонентов MyDac for MySQL (торренты в помощь).

@Bookkc1 · 04.10.2013, 16:47 **[ТС]**

Сообщение от droider

скачайте подходящую версию библиотеки MySqlLib.dll для Вашей версии MySQL.
Или же не возитесь с dbExpress. Cкачайте и установите пакет компонентов MyDac for MySQL (торренты в помощь).

Я посмотрел, там нужно какой то драйвер устанавливать (на mysql) это его потом нужно будет везде ставить где будет стоять моя программа?

@droider · 04.10.2013, 17:55

не драйвер, а библиотеку.

@Bookkc1 · 05.10.2013, 20:49 **[ТС]**

библиотеку? а её потом просто рядом с exe положить и все? не нужно её потом каждому компьютеру отдельно ставить?

Добавлено через 23 часа 6 минут
Проблему с ошибкой решил так:

Я покопался в интеренете в общем delphi 7 ругаеться на MySQL выше 3X версии проблему с dbExpress Error: [0x000C] invalid Username/Password решил довольно просто нащёл в интернете dbxopenmysql50.dll и сделал следущее:
1.Кинул эту библиотеку в корень делфи ..delphi7in кинул в папку с проектом
2.В компоненте SimpleDataSet во владке Connection в поле GetDriverFunc написал getSQLDriverMYSQL50.
3.В поле LibraryName указал библиотеку dbxopenmysql50.dll.
всё остальное как в видео при на жатии на голочку в editconnect вылизиет Ошибка но когда программу запускаю работает всё нормально грид заполняеться как надо вот только где брал библиотеку не помню гдет в инете нарыл всем удачи!!!

Один человек написал в комментах, за что ему ОГРОМНЕЙШЕЕ спасибо!:-)

Пока двигаюсь дальше. Но будет ещё много мелких вопросов

Добавлено через 44 минуты
И сразу ряд вопросов:

1) Пытаюсь подключиться чрез формы Edit, выдатет ошибку (логин и пасс не верны) но все верно, вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  SimpleDataSet1.Params.Clear;
  SQLConnection1.Params.Clear;
  SimpleDataSet1.Active := False;
  SQLConnection1.Connected := False;
  SimpleDataSet1.Connection.Params.Add('Database='+Edit1.Text);
  SQLConnection1.Params.Add('Database='+Edit1.Text);
  SimpleDataSet1.Connection.Params.Add('HostName='+Edit2.Text);
  SQLConnection1.Params.Add('HostName='+Edit2.Text);
  SimpleDataSet1.Connection.Params.Add('User_Name='+Edit3.Text);
  SQLConnection1.Params.Add('User_Name='+Edit3.Text);
  SimpleDataSet1.Connection.Params.Add('Password='+Edit4.Text);
  SQLConnection1.Params.Add('PassWord ='+Edit4.Text);
  SimpleDataSet1.Connection.Params.Add('DriverName=MySQL');
  SQLConnection1.Params.Add('DriverName=MySQL');
  SQLConnection1.Params.Add('BlobSize=-1');
  SimpleDataSet1.Connection.Params.Add('BlobSize=-1');
  SQLConnection1.Params.Add('ErrorResourceFile=');
  SimpleDataSet1.Connection.Params.Add('ErrorResourceFile=');
  SQLConnection1.Params.Add('LocaleCode=0000');
  SimpleDataSet1.Connection.Params.Add('LocaleCode=0000');
  SimpleDataSet1.Active := True;
  SQLConnection1.Connected := True;

2) в DBGrid почему то ячейки растягиваются по всей форме DBGrid, как сделать, что бы они равнялись по тексту в ячейках ?

@Bookkc1 · 06.10.2013, 12:46 **[ТС]**

up. нужна помощь, друзья :-(

Добавлено через 2 часа 9 минут

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button3Click(Sender: TObject);
begin
SimpleDataSet1.Active := False;
SQLConnection1.Connected := False;
Form1.SQLConnection1.Params.Clear;
SqlConnection1.Params.Values['DriverName']:='MySQL';
SqlConnection1.Params.Values['BlobSize']:='-1';
SqlConnection1.Params.Values['LocaleCode']:='0000';
Self.SQLConnection1.Params.Values['DataBase']:= Self.Edit1.Text;
Self.SQLConnection1.Params.Values['HostName']:= Self.Edit2.Text;
Self.SQLConnection1.Params.Values['User_Name']:= Self.Edit3.Text;
Self.SQLConnection1.Params.Values['Password']:= Self.Edit4.Text;
SimpleDataSet1.Active := True;
SQLConnection1.Connected := True;
end;

Так тоже не работает:-( помогите, а?

@FIL · 06.10.2013, 14:20

Нашел такой вариант:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   SQLC.Connected:=False;
   SQLC.LoginPrompt:=False;
   SQLC.Connected:=False;
   SQLC.GetDriverFunc:='getSQLDriverMYSQL';
   SQLC.ConnectionName:='MySQLConnection';
   SQLC.DriverName:='MySQL';
   SQLC.LibraryName:='dbxmys.dll';
   SQLC.Params.Values['DriverName']:='MySQL';
   SQLC.Params.Values['Password']:='root';
   SQLC.Params.Values['User_Name']:='root';
   SQLC.Params.Values['Database']:='Vahta';
   SQLC.Params.Values['ServerCharSet']:='cp1251';
   SQLC.Params.Values['HostName']:='localhost';
   SQLC.Params.Values['VendorLib']:='LIBMYSQL.dll';
   SQLC.Connected:=True;

Написано, что рабочий.

@Bookkc1 · 06.10.2013, 14:33 **[ТС]**

Сообщение от FIL

Нашел такой вариант:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   SQLC.Connected:=False;
   SQLC.LoginPrompt:=False;
   SQLC.Connected:=False;
   SQLC.GetDriverFunc:='getSQLDriverMYSQL';
   SQLC.ConnectionName:='MySQLConnection';
   SQLC.DriverName:='MySQL';
   SQLC.LibraryName:='dbxmys.dll';
   SQLC.Params.Values['DriverName']:='MySQL';
   SQLC.Params.Values['Password']:='root';
   SQLC.Params.Values['User_Name']:='root';
   SQLC.Params.Values['Database']:='Vahta';
   SQLC.Params.Values['ServerCharSet']:='cp1251';
   SQLC.Params.Values['HostName']:='localhost';
   SQLC.Params.Values['VendorLib']:='LIBMYSQL.dll';
   SQLC.Connected:=True;

Написано, что рабочий.

а для SimpleDataSet? ибо эта "штука вроде работает, но как только пытаюсь включить SimpleDataSet1.Active := True; то сразу выдает ошибку. В окне настроек SimpleDataSet я все убрал вот по этому оно наверное и ругается

@Bookkc1 · 06.10.2013, 14:42 **[ТС]**

Отбой тревоги, разобрался, ошибка была у меня ... Спасибо тебе друг, очень помог!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
   SQLConnection1.Connected:=False;
   SQLConnection1.LoginPrompt:=False;
   SQLConnection1.Connected:=False;
   SQLConnection1.ConnectionName:='MySQLConnection';
   SQLConnection1.DriverName:='MySQL';
   SQLConnection1.Params.Values['DriverName']:='MySQL';
   SQLConnection1.Params.Values['Password']:=''+edit4.Text;
   SQLConnection1.Params.Values['User_Name']:=''+edit3.Text;
   SQLConnection1.Params.Values['Database']:=''+edit1.Text;
   SQLConnection1.Params.Values['ServerCharSet']:='cp1251';
   SQLConnection1.Params.Values['HostName']:=''+edit2.Text;
   SQLConnection1.Params.Values['VendorLib']:='LIBMYSQL.dll';
   SQLConnection1.Connected:=True;
   SimpleDataSet1.Active := True;

@FIL · 06.10.2013, 14:51

Возможно, строки 3 и 13 - лишние.

@Bookkc1 · 06.10.2013, 14:59 **[ТС]**

Сообщение от FIL

Возможно, строки 3 и 13 - лишние.

Да потом лишнее почищу :-)

Ещё некий вопрос, вот пытаюсь записать с edit в базу, в сам DBGrid заносит,а в базу нет, код такой, что я упустил?

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
SimpleDataSet1.Edit;
SimpleDataSet1.Insert;
SimpleDataSet1.FieldByName('1').AsString :=Edit5.Text;
SimpleDataSet1.Post;
end;

@FIL · 06.10.2013, 15:08

Попробуй строку 3 убрать.

@Bookkc1 · 06.10.2013, 15:12 **[ТС]**

Сообщение от FIL

Попробуй строку 3 убрать.

Абсолютно ничего не изменилось

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
 
SimpleDataSet1.Insert;
SimpleDataSet1.FieldByName('1').AsString :=Edit5.Text;
SimpleDataSet1.Post;
end;

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803

	MySQL Пример записи в базу 02.10.2013, 21:27. Показов 7959. Ответов 42 Метки нет (Все метки) нужен Пример записи в базу mysql. Я заполняю несколько колонок (edit например) жму баттон и все данные записываются в mysql. буду безмерно благодарен! люблю Ваш форум 0

@droider 4893 / 2826 / 867 Регистрация: 04.10.2012 Сообщений: 10,278
	03.10.2013, 19:29
	этот компонент предназначен для просмотра и редактирования данных одной таблицы (вкладка dbExpress). Не поддерживается многозвенными приложениями. 0

@Latino 35 / 35 / 4 Регистрация: 28.05.2013 Сообщений: 180
	03.10.2013, 19:42
	так я бы лучше бы использовал для этих целей компонент TSQLQuery 0

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803
	03.10.2013, 20:16 [ТС]
	Заметил ещё такое, выставил в SimpleDataSet1 Active=True, получилось такое вот :-( когда компилирую то выскакивает ошибка как на скрине выше. Блин, не знаю что делать. помогите, а... Миниатюры 0

@droider 4893 / 2826 / 867 Регистрация: 04.10.2012 Сообщений: 10,278
	04.10.2013, 17:55
	не драйвер, а библиотеку. 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	06.10.2013, 14:51
	Возможно, строки 3 и 13 - лишние. 1

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	06.10.2013, 15:08
	Попробуй строку 3 убрать. 0