FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour crear base de datos en mysql
Posts: 23
Joined: Tue Jul 01, 2014 02:52 AM
crear base de datos en mysql
Posted: Fri Jun 12, 2015 05:20 AM

buenas noche como estan soy nuevo en el foro en estos momento tengo una duda el cual quiero crear una base de datos en fivewin con mysql y me a dado mucho rollo estoy creando un sistema utilitario y esto me tiene trancado quisiera saber si alquien podría aportar de su ayuda, yo ya creo la tabla dentro de la base de datos pero no se como crear la base de datos aquí le dejo un ejemplo que trae fiwewin que lo hago y me sale perfecto pero quisiera crear desde cero o desde la base de datos y luego crear las tablas y no se cuales son las intrusiones que debo usar gracias por su colaboracion y estoy usando "tdolphin" para la conexion

esta son las intrucciones que uso para crear tablas pero no se como crear la base de datos:

IF !oServer:tableexist( "prueba" )
cQuery := "CREATE TABLE prueba( "
cQuery += "clave varchar(3) NOT NULL default '0',"
cQuery += "nombre varchar(30) default 'x',"
cQuery += "fecha date default '20091012',"
cQuery += "saldo decimal(9,2) default 0.00,"
cQuery += "PRIMARY KEY (clave) "
cQuery += ") ENGINE=InnoDB DEFAULT CHARSET=latin1"
oServer:execute( cQuery )
ENDIF

oServer:execute( "TRUNCATE TABLE prueba" )
oQry := oServer:Query( "SELECT * FROM prueba" )

oQry:gotop()

Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: crear base de datos en mysql
Posted: Fri Jun 12, 2015 11:54 AM
bienvenido colega!

para la cración de una DB en Mysql, se utiliza la instrucción "CREATE DATABASE < nombre de la base de datos >" y listo

utilizando tus mismas lineas de codigo seria asi:

Code (fw): Select all Collapse
oServer:execute( "create database pruebas" )


hay mas opciones revisa en esta pagina : http://mysql.conclase.net/curso/?sqlsen=CREATE_DATABASE

saludos
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: crear base de datos en mysql
Posted: Fri Jun 12, 2015 04:45 PM

Usando Tdolphin seria asi, saludos... :shock:

loca cDBname := "nombre_tu_database"

IF oServer:DBCreate( cDBName ) // crear database
MSGINFO( "Creada Correctamente a DataBase: " + cDBName, " SISINGE - ATENCIÓN" )
ENDIF

oServer:SelectDB( cDBName ) // seleccionar database creada

Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 23
Joined: Tue Jul 01, 2014 02:52 AM
Re: crear base de datos en mysql
Posted: Fri Jun 12, 2015 06:46 PM

saludos

gracias me funciono correctamente un saludo cordial

Continue the discussion