delphi + mysql (теперь нормальный топик)
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
delphi + mysql (теперь нормальный топик) - 2008-08-02 11:45:03.466666
|
|
|
sublimator
Сообщений: 184
Оценки: 0
Присоединился: 2008-06-18 14:38:11.173333
|
мне нужно, что бы программа могла работать с sql базами данных. Я знаю, как реализовать это на php (с помошью спец библиотек), а вот как на делфи - не знаю. пожалуйста, помогите.[&o]
|
|
|
RE: delphi + mysql (теперь нормальный топик) - 2008-08-02 13:01:33.030000
|
|
|
KentOne
Сообщений: 178
Оценки: 0
Присоединился: 2008-07-15 16:30:46.030000
|
Тебе именно mysql нужен? Делал когда-то, но геморно оно. У меня выглядит так: в корне где программа, лежат две библиотеки dbexpmysql.dll и libmysql.dll, насколько я помню, идут в поставке сервера, но не факт…Бросаеш на форму TSQLConnection и в обжект инспекторе настраиваешь ему параметры для связи с MySQL.
object SQLConnection1: TSQLConnection
ConnectionName = 'MySQLConnection'
DriverName = 'MySQL'
GetDriverFunc = 'getSQLDriverMYSQL'
LibraryName = 'dbexpmysql.dll'
LoginPrompt = False
Params.Strings = (
'DriverName=MySQL'
'HostName=ServerName'
'Database=DBNAME'
'User_Name=root'
'Password='
'BlobSize=-1'
'ErrorResourceFile='
'LocaleCode=0000')
VendorLib = 'libmysql.dll'
BeforeConnect = SQLConnection1BeforeConnect
Left = 528
Top = 144
end Дальше TSQLQuery на форму брось и прилинкуй к TSQLConnection. А дальше работа выглядит приблизительно так…
Form1.SQLConnection1.Open;
Form1.SQLQuery1.Close;
Form1.SQLQuery1.SQL.Clear;
Form1.SQLQuery1.SQL.Add('SELECT CrossRoadName FROM CrossRoads order by LastChangeTime DESC limit 1');//формирование запроса
Form1.SQLQuery1.Open;//выполнение запроса
PrkName:=Form1.SQLQuery1.FieldByName('CrossRoadName').AsString;//вычитка ответа
Form1.SQLConnection1.Close;
Если тебя не одно значение интересует, а много, то:
Form1.SQLQuery1.Open;
for i := 1 to Form1.SQLQuery1.RecordCount do
begin
Obj[i].Hight:= Form1.SQLQuery1.FieldByName('Hight').AsInteger;
Obj[i].Width:= Form1.SQLQuery1.FieldByName('Width').AsInteger;
Form1.SQLQuery1.Next;
end;
Чуть не забыл, если ты выполняешь не запрос выборки, а изменения бызы, то вместо SQLQuery1.Open, следует использовать SQLQuery1.ExecSQL(True), что означает булевский параметр уже не помню, но в коде всюду true стоит….
|
|
|
RE: delphi + mysql (теперь нормальный топик) - 2008-08-02 14:40:39.623333
|
|
|
sublimator
Сообщений: 184
Оценки: 0
Присоединился: 2008-06-18 14:38:11.173333
|
спасибо тебе большое, добрый человек. +2 (один от себя, др от товарища )
|
|
|
RE: delphi + mysql (теперь нормальный топик) - 2008-08-03 04:42:08.930000
|
|
|
sublimator
Сообщений: 184
Оценки: 0
Присоединился: 2008-06-18 14:38:11.173333
|
слушай, еще один вопрос. все это мне нужно, для того чтобы написать программу для тестирования: Человек создает тест в спец проге (указывает сколько вопросов, какие варианты ответов, какие правильные…), создаетсся файл, который передается клиентской программе, которая выдает его испытуемому. после прохождения теста клиентка создает лог файл с ответами и передает его главной программеж. вторую часть алгоритма я знаю, как осуществить, а вот как сделать создовалку для тестов я не знаю.
|
|
|
RE: delphi + mysql (теперь нормальный топик) - 2008-08-03 13:50:09.543333
|
|
|
KentOne
Сообщений: 178
Оценки: 0
Присоединился: 2008-07-15 16:30:46.030000
|
Вот у себя нашел не плохой экземпляр http://www.rapidshare.ru/746606
|
|
|
RE: delphi + mysql (теперь нормальный топик) - 2009-02-21 13:56:58.110000
|
|
|
LoaDырь
Сообщений: 1
Оценки: 0
Присоединился: 2009-02-21 13:46:48.023333
|
добрый день! для диплома пишу программу: на одном компьютере считается функция, данные пишутся в бд в инете. на другом компьютере, по запросу эти данные читаются. уже реализовал подсчет функции, сохранение данных локально, но возникают трудности c использованием mysql и соответственно размещением данных в инете.) помогите пожалуйста, кто чем может
|
|
|
|
|