FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Conexion a MySQL sin BDE ni ODBC
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) Última edición por seduerey fecha: 03-06-2003 a las 22:46:01. |
|
|
|