[Arxa1L]

Ищу помощи...Значица необходима прога которая знает все комманды MySQL'a и свободно выполнять на удаленном сервере....Пробовал через SQLQuery,SQLtable...и другие компоненты со вкладки dbexpress....вообщем подключается, все норм, но не понимает команды create table(...),сreate database и тд....подскажите плз, если кто этим занимался...заранее спасибо!!

[PhoeniX]

libmysql в помощ... саму либу + юнит с функциями ищи на MySQL.ru

Added:
Избавлю от поиска, с тебя +.
http://www.mysql.ru/cgi-bin/download/DelphiMySQL.zip

[Arxa1L]

Этот архив я видел и принял к сведениям, спасибо...Я имел ввиду то... что при использовании стандартных компонентов для доступа к серверу есть ли возможность создания баз данных или хотя бы таблиц из делфи??...имея небольшие познания языка MySQL могу создать базы и таблицы через консоль, но мне необходимо чтобы программа сама этим занималась, без какого либо вмешательства пользователя...Существуют ли такие компоненты и какой у них синтаксис...

[roamer]

Только что попробовал через BDE5 (ODBC) применительно MySQL 3.23.58 win32 выполнить с помощью TQuery вот такую команду :

Код:

1 2 3 4 5 6 7 8 9

CREATE TABLE L_PROPNUMBER_TOP (ID_THIS INTEGER NOT NULL,         ITS_GLOBAL INTEGER,         ID_SYSTEM INTEGER,         NUMPP INTEGER,         NAME_MAX VARCHAR(200),         MNEMO_CODE VARCHAR(32),         DATE_CREATE DATE,         DATE_UPDATE DATE, PRIMARY KEY (ID_THIS))

Все прошло.

А база данных создается просто :
В каталоге "data", где все базы данных MySQL, надо создать подкаталог - это и будет имя новой базы данных.

[Arxa1L]

Ну я работал через dbExpress и MySQL 5.0...возможно из за версии какие то конфликты...вообщем, я все таки решил пользоваться тем архивом,но опять же встал ребром вопрос о безразмерности sql баз...при создании 1001 поля вылазит ошибка...ошибки в запросе быть не может, тк для создания 1000го поля запрос идентичен...Места на жестком достаточно(примерно 50Гб свободно)... ниже приведу код...

================================================== =======

[Arxa1L]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

var   F1: TF1;   mysqlrec: mysql; //Global mysql struct   connected: Integer;   n: integer;   p0: integer;   procedure connectserv; begin      //Connect to server      mysql_connect(@mysqlrec, PChar(f1.edtHostname.Text), PChar(f1.edtUsername.Text), PChar(f1.edtPasswd.Text));      if mysqlrec._net.last_errno = 0 then       begin     ShowMessage ('Successfully connected to server');       connected:= 1; //keep track of connection       end      else       ShowMessage ('Сервер с БД недоступен'); end;   procedure connectdb; var    db: String;    retval: Integer; begin      db:= f1.edtDatabase.Text;      retval:= mysql_select_db(@mysqlrec, PChar(db));      if retval <> 0 then         ShowMessage('Error attaching to: ' + db)      else          begin        ShowMessage('Successfully attached to ' + db);          end; end;   procedure _query(query:string); var presults: pmysql_res; //results structure *pointer begin presults:= nil;      try      mysql_query(@mysqlrec, PChar(query)); //Send Query to server      finally          mysql_free_result(presults); //release the stored results from memory      end; end;   procedure TF1.FormCreate(Sender: TObject); begin connectserv; connectdb; end;   procedure TF1.FormDestroy(Sender: TObject); begin      mysql_close(@mysqlrec); end;       procedure TF1.Button1Click(Sender: TObject); var i:integer; s:string; begin //тут создается таблица и 2 начальных столбца _query('create table '+table+' (func int unsigned auto_increment,a1 int(1) DEFAULT 0,primary key (func))'); _query('insert into '+table+' (a1) values (0)'); //само создание столбцов и строк for i:=2 to (p0-1) do begin _query('alter table '+table+' add column a'+inttostr(i)+' int(1) DEFAULT 0 after a'+inttostr(i-1)); _query('insert into '+table+' (a1) values (0)'); end; //добавление последней строки _query('insert into '+table+' (a1) values (0)'); end;

Admin: Пользуемся тегами, иначе последуют санкции!

вроде все скинул...=0

[Arxa1L]

Прошу простить меня за ламерство...ибо я не так давно работаю с мускулом и это мой первый опыт в реализации приложения клиент-сервер...

[Arxa1L]

roamer,прошу кинуть мне проект на мыло goth74@mail.ru

[roamer]

Отослал.
Но Вы должны понимать, что MySQL-5 и MySQL-3.23.58 - это несколько разные вещи.
Т.е., может быть Вам придется повозиться.

[Arxa1L]

Благодарю..=) p.s. еще пока не смотрел....дел навалило..