[seduerey]

He probado varias fórmulas para ello.

Estoy usando MySql 4.0, la libreria que incluye esta distribucion, y me da una excepcion cuando intento conectar al servidor de BBDD que he arrancado previamente, es decir, en el mysql_connect.

este es el código que he usado, se activa, como podeis ver, cuando pulsamos el boton(es una prueba muy tonta, lo se).

procedure TForm2.BitBtn1Click(Sender: TObject);
var
mysqlcon: TMySQL; // MySQL-connection structure
presults: pmysql_res; // Pointer to a results structure
begin
// Connect to the server
mysql_connect(@mysqlcon, 'localhost', 'login', 'passw');
if mysqlcon.net.last_errno <> 0 then begin
ShowMessage (Trim(mysqlcon.net.last_error));
exit;
end;
// Open the mysql database
if mysql_select_db(@mysqlcon, 'mysql') <> 0 then begin
mysql_close(@mysqlcon); // Disconnect
ShowMessage('Couldn''t open mysql database');
exit;
end;
presults:= nil;
try
// Send the query to the server and get the results
mysql_query(@mysqlcon, 'SELECT * FROM user');
presults := mysql_store_result(@mysqlcon);
if presults.row_count <> 1 then
ShowMessage('va a ser eso');
finally
mysql_free_result(presults); // Release memory
mysql_close(@mysqlcon); // Disconnect
end;
end;


Se que será lo más tonto de la historia, pero me salvaríais la vida (o casi)