delphi数据库mysql
A. delphi备份mysql数据库怎么做
你用CMD写一个BAT文件就行的,系统运行,每天固定的时间,把数据库里的数据文件拷到另外一个文件夹
B. 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;
C. DELPHI 如何用ADO连接MYSQL数据库
提供MYSQL连接字符专串属
----------------------
AdoConnection1.ConnectionString:= 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=aa;Password=bb;Initial Catalog=BaseManage;Data Source= '192.168.0.1 ';
D. delphi 如何连接 mysql
delphi 连接MySQL数据库
由于在Delphi 7中并没有提供对应MySQL4.0以上版本的dbexpress驱动(虽然在Borland的CodeCentral中有相关的驱动下载,但我却使用不了,不知道是否是我的方法不对),所以在使用前先下载MySQL 3.23.x的驱动libmysql.dll,下载后的
由于在Delphi 7中并没有提供对应MySQL4.0以上版本的dbexpress驱动(虽然在Borland的CodeCentral中有相关的驱动下载,但我却使用不了,不知道是否是我的方法不对),所以在使用前先下载MySQL 3.23.x的驱动libmysql.dll,下载后的libmysql.dll请放在Delphi安装目录的bin文件夹或者系统目录下或您的程序的目录中,否则dbexpress将无法找到它(出现错误提示:not load "libmysql.dll")。另外,如果libmysql.dll的版本不对会出现"invalid username/password"的错误提示。
TSQLConnection连接参数设置:
DriverName: MySQL
Host:本地:localhost;安装MySQL的计算机名/IP地地址
远程:安装MySQL的计算机名/IP地地址
Database:数据库名
UserName:MySQL用户名
Password:MySQL用户密码
LoginPrompt:false //不出现登录对话框
在使用前需要确定用户名和用户密码在MySQL中对于对应的数据库是否合法、有效。
数据组件:
推荐使用TSQLDataSet+TDataSetProvider+TclientDataSet+TdataSource+Data Control;或TSimpleDataSet+TdataSource+Data Control。
注意:不能使用TSQLDataSet+TdataSource+Data Control,否则在使用某些数据感知组件时会出现“operation not allowed on a unidirectional dataset”的错误提示,因为TSQLDataSet是单向的。
如果使用TSQLTable来使用数据有可能无法在TableName中列出所有的表名来。TSQLQuery和TSQLTable还是少用为妙。
如果那个DLL文件版本不对,可以考虑用ADO
TADOConnection的ConnectionString = 'DRIVER={MySQL ODBC 3.51
Driver};SERVER=MySQL数据库服务器;DATABASE=数据库名字;USER=用户
名;PASSWORD=密码;OPTION=3;'
DRIVER={MySQL ODBC 3.51
Driver};SERVER=192.168.1.22;DATABASE=rule;USER=WJH;PASSWORD=123456;OP
TION=3;
如果连接数据库后,dbgrid中会显示乱码,则在TADOConnection的
AfterConnect事件中增加代码:
ADOConnection1.Execute('set character_set_connection=gbk',cmdText);
ADOConnection1.Execute('set character_set_results=gbk',cmdText);
ADOConnection1.Execute('set character_set_client=gbk',cmdText);
本篇文章来源于:开发学院 http://e.codepub.com 原文链接:http://e.codepub.com/2010/0319/21181.php
E. 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
。。。。。。。
F. 如何在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.
G. 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
。。。。。。。
H. 想用delphi做一个远程数据库,MSSQL还是MYSQL好
第一 看你是自己公司用 还是 要卖出去盈利
自己用肯定是MS
第二 如果你要用mysql 不如用 asp C#来做
MS的东西绝对比MYSQL好,好不止一点点。
可惜是收费的,楼主如果不怕律师函的话,尽管用MSSQL
I. mysql怎么让数据库的表显示到delphi中
使用时注意将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端口