¡Cómo acceder a una base de datos MySQL remota en DELPHI!
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> 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.