www.help2u.org 本地下载mysql 4.0.14

swotcoder 2003-07-24 10:20:30
目前空间有限只能提供WINDOWS版本的安装文件和源代码,下载速度韩国测试500KB/S,中国网通200KB/S (adsl2m 达到实际极限速度)。
...全文
60 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
swotcoder 2003-07-26
  • 打赏
  • 举报
回复
搞来很简单,很容易就破掉了压缩包。虽然不懂Delphi不过代码还是能理解的,哈哈哈!
shuixin13 2003-07-25
  • 打赏
  • 举报
回复
啊,
你好不容易 黑 到手的,
尽然还没用呀!

呵呵,这是它里面自带的示例,
好东东呀,

with TMySQLDataset.Create(nil) do
try
Server := MySQLServer1;
DatabaseName := 'mysql';
TableName := 'user';
Active := True;
...

ExecSQL('GRANT SELECT, INSERT, UPDATE, DELETE, RELOAD ON *.* TO ''Admin''@''%''', True, False);

Server.Reload;
...
MacroByName('WHERE').AsString := 'where user=''root''';
Close; Open;
...
ShareConnection := False; Open; // Now the dataset has it's own threaded connection
...
ShareConnection := True; Open; // Now we are back on the TMySQLServer connection
...
ClearMacros;
MacroByName('ORDER').AsString := 'order by user';
MacroByName('LIMIT').AsString := 'limit 0,10'; Close; Open;
...
CahcedUpdates := True; // All edits, insert, deletes, updates are now cached
Edit;
FieldByName('user').AsString := 'test';

Post;
Close; // Cached statements flushed
CachedUpdates := False; // Statements not cached, sent real-time to server
...
finally
Free;
end;
...
shuixin13 2003-07-25
  • 打赏
  • 举报
回复
啊???

你好不容易搞到手的东东,还没用呀,

晕~~

它里面有示例,

with TMySQLDataset.Create(nil) do
try
Server := MySQLServer1;
DatabaseName := 'mysql';
TableName := 'user';
Active := True;
...

ExecSQL('GRANT SELECT, INSERT, UPDATE, DELETE, RELOAD ON *.* TO ''Admin''@''%''', True, False);

Server.Reload;
...
MacroByName('WHERE').AsString := 'where user=''root''';
Close; Open;
...
ShareConnection := False; Open; // Now the dataset has it's own threaded connection
...
ShareConnection := True; Open; // Now we are back on the TMySQLServer connection
...
ClearMacros;
MacroByName('ORDER').AsString := 'order by user';
MacroByName('LIMIT').AsString := 'limit 0,10'; Close; Open;
...
CahcedUpdates := True; // All edits, insert, deletes, updates are now cached
Edit;
FieldByName('user').AsString := 'test';

Post;
Close; // Cached statements flushed
CachedUpdates := False; // Statements not cached, sent real-time to server
...
finally
Free;
end;
...
swotcoder 2003-07-24
  • 打赏
  • 举报
回复
我说你别UP了,SB怎么用啊?
shuixin13 2003-07-24
  • 打赏
  • 举报
回复
UP

56,890

社区成员

发帖
与我相关
我的任务
社区描述
MySQL相关内容讨论专区
社区管理员
  • MySQL
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧