FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Comenzar con SQL
Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
Comenzar con SQL
Posted: Thu Dec 10, 2015 06:40 PM

Hola,

Estoy comenzando a probar SQL para ir abandonando el uso de DBF's.
Para realizar pruebas tengo instalado un servidor mysql en una raspberry.
Pero no se por donde empezar ADORDDD, Tdolphin ....

驴Alguna sugerencia?

Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Comenzar con SQL
Posted: Thu Dec 10, 2015 06:55 PM

Te aconsejo
TDolphin En el foro hay bastante ayuda.

Saludos,

Adhemar

Saludos,



Adhemar C.
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Comenzar con SQL
Posted: Thu Dec 10, 2015 07:00 PM

Hola,

Mi kit incluye:

Xampp
TDolphin
HeidiSql

Aconsejable tambien MySql Workbench.

Espero te sirva

Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
Re: Comenzar con SQL
Posted: Thu Dec 10, 2015 09:33 PM

gracias

Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: Comenzar con SQL
Posted: Fri Dec 11, 2015 11:18 AM

Google translator:

Si desea convertir las aplicaciones que utilizan DBF to SQL:

ADS
SQLRDD
ADORDD

ADORDD es el que garantiza el 100% de compatibilidad con el c贸digo de su aplicaci贸n.
No es necesario cambiar una sola l铆nea de c贸digo y DBF desde cargado a SQL en cuesti贸n de minutos.

Usando RDD puede cambiar f谩cilmente entre RDDS

ADORDD Soporta todos los principales motores de bases de datos con el mismo c贸digo.

ADORDD funciona como cualquier otro RDD pero tambi茅n se puede utilizar SQL o ambos. No hay l铆mites.

La principal imitaci贸n d ADORDD es que s贸lo funciona en Windows, ya que requiere MS ADO.

Todas las dem谩s soluciones son muy buenas, pero significa que cambian por completo el c贸digo de su apica莽茫o que a menudo es imposible.

Puede comprobar el FAQ ADORDD el foro en Ingl茅s.

Regards

Antonio H Ferreira
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Comenzar con SQL
Posted: Fri Dec 11, 2015 07:41 PM
Un consejo de un conejo...
Lo mejor para trabajar com MySQL, es utilizar los comandos directamente, para ello yo vengo utilizando con mucho 茅xito TDolphin,,, una maravillosa clase escrita por Daniel,,
las DBFs las deje hace 10 a帽os atr谩s, empec茅 con Eagle1, pero luego pase a TDolphin y no la suelto,,, un ventaja es que se conecta directamente al servidos (Windows o Linux) y es r谩pido,,, Utilizo FW + TDolphin + PellesC + Meditor + MySQL 5.5/6.0 o MariaDB tanto para Windows o Linux,,,
Como ejemplo te muestro estas l铆neas para obtener datos..
Code (fw): Select all Collapse
cBusca := "SELECT "
cBusca += "productos.registro, " 聽 聽 聽 聽 聽// 聽1
cBusca += "productos.cod_producto, " 聽 聽 聽// 聽2
cBusca += "productos.producto, " 聽 聽 聽 聽 聽// 聽3
cBusca += "productos.unidad, " 聽 聽 聽 聽 聽 聽// 聽4
cBusca += "productos.codbar1, " 聽 聽 聽 聽 聽 // 聽5
cBusca += "productos.cod_proveedor, " 聽 聽 // 聽6
cBusca += "productos.cod_marca, " 聽 聽 聽 聽 // 聽7
cBusca += "productos.cod_grupo, " 聽 聽 聽 聽 // 聽8
cBusca += "productos.puntos, " 聽 聽 聽 聽 聽 聽// 聽9
cBusca += "proveedor.razon_social, " 聽 聽 聽// 聽10
cBusca += "marca.detalle AS cmarca, " 聽 聽 // 聽11
cBusca += "grupo.detalle AS cgrupo, " 聽 聽 // 聽12
cBusca += "productos.percepcion, " 聽 聽 聽 聽// 聽13
cBusca += "productos.impuesto_p, " 聽 聽 聽 聽// 聽14
cBusca += "productos.observaciones, " 聽 聽 // 聽15
cBusca += "IFNULL((SELECT registro FROM imagenes WHERE imagenes.cod_producto = productos.cod_producto),0) AS imagen " 聽// 16
cBusca += "FROM productos "
cBusca += "LEFT JOIN proveedor ON productos.cod_proveedor = proveedor.ruc_dni "
cBusca += "LEFT JOIN marca ON productos.cod_marca = marca.codigo "
cBusca += "LEFT JOIN grupo ON productos.cod_grupo = grupo.codigo "

IF !EMPTY(cProve) .OR. !EMPTY(cMarca) .OR. !EMPTY(cGrupo)
聽 cBusca += "WHERE "
EndIf

cBusca += IF(!EMPTY(cProve), "productos.cod_proveedor = '" + cProve + "' ", "")

If !EMPTY(cProve) .AND. !EMPTY(cMarca)
聽 cBusca += " AND "
EndIf
cBusca += IF(!EMPTY(cMarca), "productos.cod_marca = '" + cMarca + "' ", "")

If !EMPTY(cMarca) .AND. !EMPTY(cGrupo)
聽 cBusca += " AND "
EndIf
cBusca += IF(!EMPTY(cGrupo), "productos.cod_grupo = '" + cGrupo + "' ", "")

cBusca += "GROUP BY productos.cod_producto " 聽 聽 聽 聽 聽 // importante para que no se dispare el join

If nOrden = 1
聽 聽cBusca += "ORDER BY productos.producto "
聽 ElseIF nOrden = 2
聽 聽cBusca += "ORDER BY productos.utilidad_p "
聽 ElseIF nOrden = 3
聽 聽cBusca += "ORDER BY productos.puntos "
EndIf

oProduc := SQLQry(oMySQL, oProduc, cBusca) 聽 聽 聽 聽// la informaci贸n "mezclada" de 5 tablas en un objeto de datos
aProduc := SQLQryA(oMySQL, aProduc, cBusca) 聽 聽 聽 聽// los mismos datos en un array

Continue the discussion