|
Inicio → WINDEV 25 → WX INFORMATICA - NOVO METODO CREATE DATABASE HFSQL CLIENT/SERVER VIA WEBSERVICE COM DIRETIVAS OK |
WX INFORMATICA - NOVO METODO CREATE DATABASE HFSQL CLIENT/SERVER VIA WEBSERVICE COM DIRETIVAS OK |
Iniciado por BOLLER, 13,jul. 2019 06:11 - 5 respuestas |
| |
| | | |
|
| |
Miembro registrado 3.657 mensajes Popularité : +175 (223 votes) |
|
Publicado el 13,julio 2019 - 06:11 |
METODO CREATE DATABASE HFSQL CLIENT/SERVER VIA WEBSERVICE COM DIRETIVAS OK
Procedure ws_create_database(Token,Nome,Email,Telefone,Database,Usermaster,PasswordMaster)
ok is string
IF Token <> "" AND Token = "abre-ti-cesamo" AND Database <> "" AND Nome <> "" AND Telefone <> "" HOpenConnection(MyConnection) HChangeConnection("*",MyConnection) Database.Nome = Nome Database.Telefone = Telefone Database.Database = Database HAdd(Database) HCloseConnection(MyConnection) Myconn is Connection Myconn..Server = "localhost" Myconn..User = "admin" Myconn..Password = "202020" Myconn..Database = Database Myconn..Provider = hAccessHFClientServer IF HOpenConnection(Myconn) = True THEN IF HChangeConnection("*",Myconn) = True THEN HModifyStructure("*") HCreationIfNotFound("*") ok = "Database criada com Sucesso!" HUser.Login = Usermaster HUser.Password = PasswordMaster HUser.FullName = Nome +" / "+ Usermaster HUser.Email = Email HUser.Phone = Telefone HUser.Groups = "ClientWebDev" HUser.EnabledAccount = True IF HModifyUser(Myconn,Usermaster) = True THEN ok += " = Usuario: "+Usermaster+" foi atribuido ao Banco de dados" END HModifyServerRights(Myconn,Usermaster,hRightsChangePassword,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsChangeRights,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsCreateDB,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsManageUser,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsSeeUser,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsManageServer,hAllowed) HModifyDatabaseRights(Myconn,Usermaster,hRightsAutoModif,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsChangeLink,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsChangeOwner,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsChangeRights,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsConnection,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsCreateFile,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsCreateView,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsDebug,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsDelete,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsDeleteDB,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsDeleteFile,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsEncryptedConnection,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsInsert,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsLock,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsMaintenance,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageDuplicate,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageIntegrity,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageProcedure,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageTask,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsNoDatabaseAccess,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsRead,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsRunProcedure,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsUpdate,hAllowed,Database) ok += ", Diretivas adicionadas com Sucesso!" HCloseConnection(Myconn) END END END
arrResultado is array of string
Add(arrResultado,ok)
RESULT ok
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Mensaje modificado, 13,julio 2019 - 06:12 |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 3.657 mensajes Popularité : +175 (223 votes) |
|
Publicado el 13,julio 2019 - 06:16 |
LINKS COMPLEMENTARES
https://doc.windev.com/?3044281&lang=en-US&productversion=xxA240075m
https://doc.windev.com/?3044322&name=hinfoserverrights_function
https://doc.windev.com/?3044328&name=hmodifyserverrights_function
https://doc.windev.com/?3044326&name=hmodifydatabaserights_function
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Mensaje modificado, 13,julio 2019 - 06:16 |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 3.657 mensajes Popularité : +175 (223 votes) |
|
Publicado el 13,julio 2019 - 06:43 |
Exemplos
https://repository.windev.com/publish.awp?file_id=281474976710830;mini-saas-example
https://repository.windev.com/publish.awp?file_id=281474976710832;complemento-mini-saas-example-webservice-create-database-with-rights-server-database
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 3.657 mensajes Popularité : +175 (223 votes) |
|
Publicado el 13,julio 2019 - 06:45 |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 3.657 mensajes Popularité : +175 (223 votes) |
|
Publicado el 22,julio 2019 - 15:47 |
Hi Adriano,
HModifyDatabaseRights(Myconn,Usermaster,hRightsManageTask,hAllowed,Database) e você precisa fazer o seguinte:
HModifyDatabaseRights(Myconn,Usermaster,hRightsBackup,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageTrigger,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsRead,hAllowed,Database)
etc.. Detalhes:
https:
https://doc.windev.com/en-US/?3044326&lang=fr-FR&productversion=xxF240075n&3044326&lang=fr-FR&productversion=xxF240075n
OK
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Mensaje modificado, 22,julio 2019 - 15:49 |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 3.657 mensajes Popularité : +175 (223 votes) |
|
Publicado el 29,julio 2019 - 05:51 |
Procedure ws_create_database(Token,Nome,Email,Telefone,Database,Usermaster,PasswordMaster)
ok is string
IF Token <> "" AND Token = "abre-ti-cesamo" AND Database <> "" AND Nome <> "" AND Telefone <> ""
HDescribeConnection(MyConnection, Usermaster, PasswordMaster, "MyHFServer",Database, hAccessHFClientServer, hORead) HOpenConnection(MyConnection) HChangeConnection("*",MyConnection) Database.Nome = Nome Database.Telefone = Telefone Database.Database = Database HAdd(Database) HCloseConnection(MyConnection) Myconn is Connection Myconn..Server = "localhost" Myconn..User = "admin" Myconn..Password = "jujuba110287" Myconn..Database = Database Myconn..Provider = hAccessHFClientServer IF HOpenConnection(Myconn) = True THEN IF HChangeConnection("*",Myconn) = True THEN HModifyStructure("*") HCreationIfNotFound("*") ok = "Database criada com Sucesso!" HUser.Login = Usermaster HUser.Password = PasswordMaster HUser.FullName = Nome +" / "+ Usermaster HUser.Email = Email HUser.Phone = Telefone HUser.Groups = "ClientWebDev" HUser.EnabledAccount = True IF HAddUser(Myconn) = True THEN ok += " = Usuario: "+Usermaster+" foi atribuido ao Banco de dados" END IF HModifyUser(Myconn,Usermaster) = True THEN ok += " = Usuario: "+Usermaster+" foi atribuido ao Banco de dados" END HModifyServerRights(Myconn,Usermaster,hRightsChangePassword,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsChangeRights,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsCreateDB,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsManageUser,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsSeeUser,hAllowed) HModifyServerRights(Myconn,Usermaster,hRightsManageServer,hAllowed) HModifyDatabaseRights(Myconn,Usermaster,hRightsCreateFile,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsRead,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsInsert,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsUpdate,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsDelete,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsDeleteDB,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsDeleteFile,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsBackup,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageTrigger,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsAutoModif,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsChangeLink,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsChangeOwner,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsChangeRights,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsConnection,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsCreateView,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsDebug,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsEncryptedConnection,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsLock,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsMaintenance,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageDuplicate,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageIntegrity,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageProcedure,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsManageTask,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsNoDatabaseAccess,hAllowed,Database) HModifyDatabaseRights(Myconn,Usermaster,hRightsRunProcedure,hAllowed,Database) ok += ", Diretivas adicionadas com Sucesso!" HCloseConnection(Myconn) END END END
arrResultado is array of string
Add(arrResultado,ok)
RESULT ok
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Mensaje modificado, 29,julio 2019 - 05:58 |
| |
| |
| | | |
|
| | | | |
| | |
|