CONECTAR MYSQL

Hola amigos alguien sabe como conectar una base de datos MySql con progress 91b. tengo sistema operativo winodws XP.

Se los agradesco mucho.

http://www.4each.com.br/viewtopic.php?f=5&t=2031&p=6226&hilit=mysql#p6226

Bom para que ainda procura solução para mysql vai la via odbc

def var ado-null as character no-undo.
def var ado-recordcont as integer no-undo.
def var ado-registro as integer no-undo.
Def var Cnxn0 as com-handle no-undo.
Def var rs0 as com-handle no-undo.
Def var ObjCommand0 as com-handle no-undo.
Def var odbc-query as character no-undo.

Create "ADODB.Connection" Cnxn0.
Create "ADODB.RecordSet" rs0.
Create "ADODB.Command" ObjCommand0.

assign odbc-query = "Select * from clientes".
Cnxn0:Open ( "data source=suportejoi;server=192.168.1.254", "bma", "bma", -1).
/* Nome da Fonte Odbc suportejoi */
/* Servidor 192.168.1.254 */
/* Usuario bma no meu caso */
/* Senha bma no meu caso */
/* Deve ter o conector para drive odbc para mysql na maquina cliente */
/* tambem deve ser liberado o ip da maquina cliente junto com o usuario e senha isso no mysql */

assign ObjCommand0:ActiveConnection = Cnxn0.
assign ObjCommand0:CommandText = odbc-query.
assign objCommand0:CommandType = 1.
assign Cnxn0:CursorLocation = 3.
assign rs0:CursorType = 1.
assign rs0:LockType = 3.
assign rs0 = ObjCommand0:EXECUTE(OUTPUT ado-null,"",32).
assign ado-recordcont = rs0:RecordCount.

do transaction:
if (ado-recordcont > 0) and not (ado-recordcont = ?) then do:
rs0:MoveFirst no-error.

do while ado-registro < ado-recordcont:
message string(rs0:FIELDS("CNPJ"):VALUE).
assign ado-registro = ado-registro + 1.
rs0:MoveNext.
end.

end.
else
message "vazio".
end.

ObjCommand0:CLOSE no-error.
release OBJECT Cnxn0 no-error.
release OBJECT ObjCommand0 no-error.
release OBJECT rs0 no-error.
assign Cnxn0 = ? ObjCommand0 = ? rs0 = ?.