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;