delphi数据库mysql
参考使用MysqlDac控件，有破解版下载。就想用ado连接sqlserver一样，不需建立数据源之类的。
Connection: TmySQLDatabase; //连接
Connection := TmySQLDatabase.Create(nil);
Connection.DatabaseName := DBName;
Connection.Host := DBAdrr;
Connection.UserName := UserName;
Connection.UserPassword := PassWord;
Connection.LoginPrompt := False;
if Connection.Connected = True then
Connection.Connected := False;
try
Connection.Open;
except
Result := False;
SetISConnected(False);
fLogIni.WriteString(DateTimeToStr(Now),'CONDATABASEERR','FALSE');
Exit;
end;
pQuery := TmySQLQuery.Create(nil);
pQuery.Database := fServerDB.Connection;
pQuery.SQL.Text :=
pQuery.Open;
while not pQuery.Eof do
begin
pQuery.FieldByName
。。。。。。。
Ⅱ 高分求怎样在delphi7中用database这个控件连接mysql数据库的方法
我是用ADO连接的，BDE没尝试过。如果是ADO连接的话需要做如下设置：
第一步：下载安装mysql-connector-odbc-5.1.12-win32.msi驱动程序,该驱动程序可以从mysql官方网站下载：http://dev.mysql.com/downloads/connector/odbc/。
第二步：在电脑上配置MYSQL ODBC驱动程序，如下：
1、打开“我的电脑”-“控制面板”-“管理工具”-“数据源 (ODBC)”-“驱动程序”标签页，检查mysql驱动安装情况。如出现“Mysql ODBC 5.1 Driver”则表示ODBC驱动已完成安装。
2、在“ODBC 数据源管理器”的“用户DSN”标签页添加MYSQL的选项，并配置mysql的ODBC属性。选择“添加”—“mysql ODBC 5.1 DRIVER”-“完成”。
第三步：在DELPHI上连接MYSQL数据库：
1、 在程序添加TADOconnection控件，并对TADOConnection控件属性进行设置。
（1）、配置ConnectionString属性
“提供程序”-“MicorosoftOLE DB Provider for ODBC Driver”-“下一步”。
在“使用数据源名称”的下拉菜单中选择mysql配置的选项。输入用户名和密码后选择“测试连接”进行连接测试。如果出现“测试成功”则代表已连接上数据库。注：“输入要使用的初始目录”必须留空，否则会出错。
（2）、配置“LoginPrompt”属性为false，“Connected”为true。
至此，delphi通过ODBC连接mysql全部配置完成。
Ⅲ 如何用Delphi控制MySQL数据库
用ADO控件
用ADOconnection 直接就能连接到MYSQL
然后用 ADOQUERY ADOTABLE ADODATESET直接进行操作就行
Ⅳ delphi怎样连接远程mysql数据库
使用时注意将libmysql.dll拷贝到当前目录或系统目录(98:system,NT:system32)下，并保证您的3306端口与远程服务器是相通的。
源程序：
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, DB, SqlExpr, StdCtrls, ComCtrls, FMTBcd, Grids,
DBGrids, Provider, DBClient, DBLocal, DBLocalS, DBTables;
type
TForm1 = class(TForm)
SQLConnection: TSQLConnection;
StatusBar1: TStatusBar;
Label1: TLabel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
Label2: TLabel;
Password: TEdit;
User_Name: TEdit;
HostName: TEdit;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
GroupBox2: TGroupBox;
Label5: TLabel;
ESQL: TEdit;
Label6: TLabel;
Database: TEdit;
ButtonGo: TButton;
SQLClientDataSet: TSQLClientDataSet;
procere Button1Click(Sender: TObject);
procere ButtonGoClick(Sender: TObject);
procere FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procere TForm1.Button1Click(Sender: TObject);
begin
with SQLConnection do
begin
Close;
Params.Values['HostName']:=HostName.Text;
Params.Values['UserName']:=User_Name.Text;
Params.Values['Password']:=Password.Text;
Params.Values['Database']:=Database.Text;
try
Connected:=True;
Statusbar1.Panels[0].Text:='Connect OK';
ButtonGo.Enabled:=True;
except
MessageDlg('Connect Error',mtError,[mbyes],0);
end;
end;
end;
procere TForm1.ButtonGoClick(Sender: TObject);
begin
with SQLClientDataSet do
begin
Close;
CommandText:=ESQL.Text;
Open;
end;
end;
procere TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SQLConnection.Close;
end;
end.
怀疑你没有启动Mysql的服务？或者服务没有安装上？
尝试 net start mysql，如果服务不存在，请检查Mysql是否正常安装了？
晕~~~
net start mysql就是打开3306端口
Ⅳ 如何在DELPHI中访问远程的MYSQL数据库
Delphi6新增的DBExpress专门用来对付Mysql,DB2，Interbase,Oracle等数据库，使用时注意将libmysql.dll
拷贝到当前目录或系统目录(98:system,NT:system32)下，并保证您的3306端口与远程服务器是相通的。
源程序：
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, DB, SqlExpr, StdCtrls, ComCtrls, FMTBcd, Grids,
DBGrids, Provider, DBClient, DBLocal, DBLocalS, DBTables;
type
TForm1 = class(TForm)
SQLConnection: TSQLConnection;
StatusBar1: TStatusBar;
Label1: TLabel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
Label2: TLabel;
Password: TEdit;
User_Name: TEdit;
HostName: TEdit;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
GroupBox2: TGroupBox;
Label5: TLabel;
ESQL: TEdit;
Label6: TLabel;
Database: TEdit;
ButtonGo: TButton;
SQLClientDataSet: TSQLClientDataSet;
procere Button1Click(Sender: TObject);
procere ButtonGoClick(Sender: TObject);
procere FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procere TForm1.Button1Click(Sender: TObject);
begin
with SQLConnection do
begin
Close;
Params.Values['HostName']:=HostName.Text;
Params.Values['UserName']:=User_Name.Text;
Params.Values['Password']:=Password.Text;
Params.Values['Database']:=Database.Text;
try
Connected:=True;
Statusbar1.Panels[0].Text:='Connect OK';
ButtonGo.Enabled:=True;
except
MessageDlg('Connect Error',mtError,[mbyes],0);
end;
end;
end;
procere TForm1.ButtonGoClick(Sender: TObject);
begin
with SQLClientDataSet do
begin
Close;
CommandText:=ESQL.Text;
Open;
end;
end;
procere TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SQLConnection.Close;
end;
end.
Ⅵ delphi备份mysql数据库怎么做
你用CMD写一个BAT文件就行的，系统运行，每天固定的时间，把数据库里的数据文件拷到另外一个文件夹
Ⅶ delphi关于mysql数据库的问题
不好意思，我不得不说，您的程序真是烂到家了。eof是控制台程序用于判断文件游标是否在末尾的变量，不报错才怪。另外查询出来的数据如果不止一个，你拿什么显示？
var
i: Integer;
begin
adoquery1.sql.Clear;
if radiobutton1.checked then
begin
adoquery1.sql.add('select * from USERPROFILE where USERID='''+edit1.text+'''');
adoquery1.open;
if adoquery1.RecordCount > 0 then
begin
for i := 0 to adoquery1.RecordCount - 1 do
begin
我不知道你用什么显示，你自己写吧...
end;
end
else begin
showmessage('用户编号输入有误，请从新输入');
edit1.SetFocus ;
end;
end;
end;
Ⅷ DELPHI 如何用ADO连接MYSQL数据库
sql设置好用户名跟密码以后比如sa
密码123
打开delphi放一个按钮，然后在控件栏那里选datacontrol，选第一个dbgrid放到form上，选dataaccess里面的第一个datasource，然后选ado——adoconnection放到form上，再选ado——adoquery放到form上。点选adoconnection左边的框体有个connectionstring点"…"：弹出来的对话框中点Build，然后选择从下数上来第五个，双击或者下一步，填入用户名跟密码(sa
123)，在“3.选择数据库”那里选择要打开的数据库，选上保存密码，点一下“测试连接”，点OK退出。出来以后继续在左边框体里面找LoginPrompt改成False。到adoquery了，点上它然后在左边框体的
Connection
那里下拉选择ADOConnection1，然后点选datasource，在左边框体找到dataset下拉选择adoquery1，然后再点选dbgrid，在左边框体找到datasource，下拉选择datasource1。双击刚才创建的按钮，假设你要打开的数据表名叫“
销售订单
”，输入
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select
*
from
销售订单
');
adoquery1.open;
运行，按按钮如果dbgrid有数据显示表示连接成功了，以上所有功能实现均可通过代码或者手工设置。
Ⅸ delphi连接mysql数据库问题
建议使用三方组件，连接MYSQL专用的。。delphi盒子就有下载!连接方法如下:
MyConnection1.Connected:=false;
MyConnection1.Database:=‘数据库’;
MyConnection1.Username:=‘账号’;
MyConnection1.Password:=密码;
MyConnection1.Port:=3306//MYSQL端口;
MyConnection1.Server:=‘IP’;
MyConnection1.LoginPrompt:=false;
MyConnection1.Connected:=true;