Red de conocimiento informático - Material del sitio web - ¡Cómo acceder a una base de datos MySQL remota en DELPHI!

¡Cómo acceder a una base de datos MySQL remota en DELPHI!

El nuevo DBExpress en Delphi6 se especializa en procesar Mysql, DB2, Interbase, Oracle y otras bases de datos. Cuando lo use, asegúrese de copiar libmysql.dll

al directorio actual o al directorio del sistema (98:system, NT. :system32) y asegúrese de que su puerto 3306 se conecte al servidor remoto.

Programa fuente:

Interfaz

Propósito

Windows, mensajes, SysUtils, variables, clases, gráficos, controles, formularios,

Cuadro de diálogo. DBXpress, DB, SqlExpr, StdCtrls, ComCtrls, FMTBcd, Grids,

DBGrids, Provider, DBClient, DBLocal, DBLocalS, DBTables

Tipo

TForm1 = class(TForm)

SQLConnection: TSQLConnection;

StatusBar1: TStatusBar;

Label1: TLabel;

DataSource1.TDataSource; p>

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

Etiqueta2: TLabel;

Contraseña: TEdit;

Nombre de usuario: TEdit;

Nombre de host: TEdit;

Etiqueta3: TLabel;

Etiqueta4: TLabel;

Botón1: TButton;

GroupBox2: TGroupBox;

Label5.TLabel;

ESQL:

Label6: TLabel;

Base de datos: TEdit;

ButtonGo: TButton;

SQLClientDataSet.

procedimiento Button1Click(Remitente: TObject);

procedimiento ButtonGoClick(Remitente: TObject) );

procedimiento FormClose(Remitente: TObject; var Acción: TCloseAction);

privado

{ Declaraciones privadas }

público

{ Declaraciones públicas }

end;

var

Form1: TForm1;

Implementación

{$R *.dfm}

Procedimiento TForm1.Button1Click(Sender: TObject);

comenzar

con SQLConnection hacer

comenzar

Cerrar;

Params.Values['HostName']:=HostName.Text;

Params.Values['UserName']:= Nombre de host. Texto;

Cerrar;

Fin.

Params.Values['UserName']:=User_Name.Text;

Params.Values['Password']:=Contraseña.Text;

Params.Values['Database'] :=Database.Text )

intentar

Conectado:=True;

Statusbar1.ButtonGoClick(Sender: TObject);

comenzar

con SQLClientDataSet hacer

comenzar

cerrar;

CommandText:=ESQL.Text;

abrir;

fin;

fin ;

procedimiento TForm1.