TRY
oCon:=toleauto():new("adodb.connection")
CATCH oError
MsgStop( "No se ha podido crear la conexión !", "Error de datos")
END
oCon:ConnectionString:="Driver={MySQL ODBC 3.51 Driver};Server="+oLamcla:cHost+";Port="+oLamcla:nPuerto+";User="+oLamcla:cUsuario+";Password="+oLamcla:cPassword+";Option=3;"
TRY
oCon:Open()
CATCH oError
MsgStop( "No pude abrir la conexión para crear las tablas !", "Error de datos")
QUIT
END
cCommandSql := "USE "+oLamcla:nDBdat
TRY
oCon:Execute(cCommandSql)
//MSGINFO("antes de verificar empresa")
pVerEmpr() //ejecuta el proceso de verificacion de empresas
CATCH oError
IF MSGNOYES(oLamcla:mEdb1+CRLF+oLamcla:mEdb2+CRLF+oLamcla:mEdb3,oLamcla:mErco)
cCommandSql := "CREATE DATABASE IF NOT EXISTS "+oLamcla:nDBdat
TRY
oCon:Execute(cCommandSql)
pVerEmpr() //ejecuta el proceso de verificacion de empresas
CATCH oError
MSGINFO(oLamcla:mEdb4,oLamcla:mErco)
END
ELSE
QUIT
ENDIF
END
LuisPonce wrote:Leandror, probare tu codigo
Entiendo que podemos usar el ADO o TDolphin, cual es mas funcional ????
Gracias
LuisPonce wrote:Daniel, como uso, como hago la conexion y de donde bajo la TDolphin ???
LuisPonce wrote:Me conecte!!
Solo use esos dos ficheros de cabecera, estoy usando el ADO nativo del FW?
Daniel Garcia-Gil wrote:a TDolphin lo estoy cambiando de SVN a GIT, esta todo el codigo fuente disponible
https://bitbucket.org/danielgarciagil/t ... ommits/all
para descargarlo sin instalar el GIT puedes hacerlo desde aqui
https://bitbucket.org/danielgarciagil/tdolphin/get/master.zip
dentro encontraras muchos ejemplos, solo edita el .bat que necesites para construir la lib
oVar := "SELECT * from "+oLamcla:tBode+" ORDER BY "+alltrim(oLamcla:vOrden)
TRY
oLamcla:oRsBodega:=tOleAuto():New("ADODB.RecordSet")
CATCH oError
MsgStop( "No se ha podido crear el RECORDSET !","Error de Datos" )
END
oLamcla:oRsBodega:CursorLocation := adUseClient //adUseServer
oLamcla:oRsBodega:LockType := adLockOptimistic
oLamcla:oRsBodega:CursorType := adOpenKeyset
oLamcla:oRsBodega:Source := oVar
oLamcla:oRsBodega:ActiveConnection( oLamcla:oServer )
TRY
oLamcla:oRsBodega:Open()
CATCH oError
MsgStop( "No se ha podido ejecutar el comando !", "Error de Datos" )
END
************************************
*Graba los datos en la base de datos
************************************
PROC pGrabBod()
uFec:=date()
uTim:=subs(time(),1,8)
uCou:=alltrim(oLamcla:vCous)
IF oLamcla:vgraba=.t.
oLamcla:oRsBodega:Addnew()
oLamcla:oRsBodega:Fields("b_bodega"):value := alltrim(oB2vg1)
oLamcla:oRsBodega:Fields("b_nombre"):value := alltrim(oB2vg2)
oLamcla:oRsBodega:Fields("b_direcc"):value := alltrim(oB2vg3)
oLamcla:oRsBodega:Fields("b_telefo"):value := alltrim(oB2vg4)
oLamcla:oRsBodega:Fields("umovim"):value := 0
oLamcla:oRsBodega:Fields("usuari"):value := uCou
oLamcla:oRsBodega:Fields("ufecha"):value := uFec
oLamcla:oRsBodega:Fields("uhoras"):value := uTim
oLamcla:oRsBodega:Update()
ELSE
oLamcla:oRsBodega:Fields("b_bodega"):value := alltrim(oB2vg1)
oLamcla:oRsBodega:Fields("b_nombre"):value := alltrim(oB2vg2)
oLamcla:oRsBodega:Fields("b_direcc"):value := alltrim(oB2vg3)
oLamcla:oRsBodega:Fields("b_telefo"):value := alltrim(oB2vg4)
oLamcla:oRsBodega:Fields("usuari"):value := uCou
oLamcla:oRsBodega:Fields("ufecha"):value := uFec
oLamcla:oRsBodega:Fields("uhoras"):value := uTim
oLamcla:oRsBodega:Update()
ENDIF
oLamcla:oRsBodega:Requery()
oLamcla:oBrwBode:Refresh()
oCuadr1:end()
****************
*Borrar Registro
****************
PROC pBorrBod()
nRegistros := oLamcla:oRsBodega:RecordCount()
IF nRegistros#0
oM2vg1:=oLamcla:oRsBodega:Fields("b_bodega"):Value
oM2vg2:=oLamcla:oRsBodega:Fields("b_nombre"):Value
IF MSGNOYES("Confirma Eliminar Bodega"+CRLF+;
"Código:->"+alltrim(oM2vg1)+CRLF+;
"Nombre:->"+alltrim(oM2vg2),oLamcla:mCoto)
oLamcla:oRsBodega:Delete()
oLamcla:oRsBodega:Requery()
oLamcla:oBrwBode:Refresh()
ENDIF
ENDIF
vConsCB:="INSERT INTO "+oLamcla:tBarr+" (ii_articu,ii_nombre,ii_codbar,ii_madres,ii_tallas,ii_colore,umovim,usuari,ufecha,uhoras) VALUES ('"+;
alltrim(oA1vg1)+"','"+alltrim(oA1vg2)+"','','1','','',0,'"+uCou+"','"+uFe2+"','"+uTim+"')"
TRY
oLamcla:oServer:Execute(vConsCB)
CATCH oError
MsgInfo(oLamcla:mRegi,oLamcla:mDato)
END
vConsCB:="UPDATE "+oLamcla:tBarr+" SET ii_nombre='"+;
alltrim(oA1vg2)+"',usuari='"+uCou+"',ufecha='"+uFe2+"',uhoras='"+uTim+"' WHERE ii_articu='"+alltrim(oA1vg1)+"'"
TRY
oLamcla:oServer:Execute(vConsCB)
CATCH oError
MsgInfo(oLamcla:mRegi,oLamcla:mDato)
END
vConsCB:="DELETE FROM "+oLamcla:tBarr+" WHERE ii_articu='"+alltrim(oM2vg1)+"'"
TRY
oLamcla:oServer:Execute(vConsCB)
CATCH oError
MsgInfo(oLamcla:mRegi,oLamcla:mDato)
END
cCommandSql := "USE "+oLamcla:nDBdat
TRY
oCon:Execute(cCommandSql)
CATCH oError
MsgInfo("No pude activar la base de datos")
END
vQuery := "CREATE TABLE IF NOT EXISTS "+oLamcla:tEmpr+" "
vQuery += "("
vQuery += "e_codi VARCHAR(2) NOT NULL ,"
vQuery += "e_nomb VARCHAR(50) NOT NULL ,"
vQuery += "e_nits VARCHAR(15) NOT NULL ,"
vQuery += "e_digi VARCHAR(2) NULL ,"
vQuery += "e_gere VARCHAR(40) NULL ,"
vQuery += "e_domi VARCHAR(40) NULL ,"
vQuery += "e_dire VARCHAR(50) NULL ,"
vQuery += "e_tele VARCHAR(20) NULL ,"
vQuery += "e_faxs VARCHAR(20) NULL ,"
vQuery += "e_host VARCHAR(50) NOT NULL ,"
vQuery += "e_hore VARCHAR(50) NOT NULL ,"
vQuery += "e_usua VARCHAR(20) NOT NULL ,"
vQuery += "e_pass VARCHAR(20) NOT NULL ,"
vQuery += "e_daba VARCHAR(20) NOT NULL ,"
vQuery += "e_prto VARCHAR(10) NOT NULL ,"
vQuery += "e_anos VARCHAR(99) NOT NULL ,"
vQuery += "e_nota VARCHAR(99) NULL ,"
vQuery += "e_fech DATE NULL ,"
vQuery += " PRIMARY KEY (e_codi)"
vQuery += ") "
vQuery += " TYPE = MYISAM;"
TRY
oCon:Execute(vQuery)
CATCH oError
MsgInfo("La tabla "+oLamcla:tEmpr+" NO pudo ser creada")
END
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 32 guests