Modificar a Estrutura da Tabela(Mysql) Via CÃ³digo

marcio1361303176 · March 17, 2008

Amigos

Tem como modificar a Estrutura da Tabela(Mysql) Via CÃ³digo(five), ou seja Colocar um Campo a mais, reduzir um campo de tamanho, excluir um campo, etc...

Obrigado a Todos.

masterservicevrb@gmail.com

FWHX2.6+SQLLIB+xDev+rpv+ MYSQL

marcio1361303176 · March 17, 2008

Amigos

Tem como modificar a Estrutura da Tabela(Mysql) Via CÃ³digo(five), ou seja Colocar um Campo a mais, reduzir um campo de tamanho, excluir um campo, etc...

Obrigado a Todos.

masterservicevrb@gmail.com

FWHX2.6+SQLLIB+xDev+rpv+ MYSQL

toya · March 17, 2008

Deduzo que estejas usando SqlLib...

Veja se da pra te orientares por este:

////////////////////////////////////////////////////////////////////////////////

// toya - 17/03/2008

////////////////////////////////////////////////////////////////////////////////

function AltStruSql( cTabela, aCampos, aCamposNovos )

local cCampo:=''

local x:=0, nPos:=0

cCampo:='sql_rowid'

for x=1 to len( aCampos )

if upper( alltrim( aCampos[x,1] ) )='SQL_ROWID'

cCampo:=upper( alltrim( aCampos[x-1,1] ) )

nPos:=x-1

exit

endif

if ascan( aCampos, aCamposNovos[x,1] )>0

SQL EXECUTE 'ALTER TABLE '+cTabela+' MODIFY COLUMN '+aCamposNovos[x,1]+' '+aCamposNovos[x,2]

else

SQL EXECUTE 'ALTER TABLE '+cTabela+' ADD '+aCamposNovos[x,1]+' '+aCamposNovos[x,2]+' AFTER '+cCampo

cCampo:=aCamposNovos[x,1]

endif

toya

(Ahora en la version 5.8)

toyasis@yahoo.com.br

http://www.toyanet.com.br

FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv

FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv

Linux 2.4.29 - Slack 10.1 - (No@Say)

marcio1361303176 · March 17, 2008

OlÃ¡ amigo, obrigado pela ajuda

Mas nada de funcionar

Editado por - marcio on 17/03/2008 08:30:09

vailtom · March 17, 2008

Veja se as LIBs da SQL LIB RDD estÃ£o antes das do FWH.

marcio1361303176 · March 17, 2008

estÃ£o marcadas pra SIM

masterservicevrb@gmail.com

FWHX2.6+SQLLIB+xDev+rpv+ MYSQL

alex2002 · March 17, 2008

OlÃ¡,

Segue funÃ§Ã£o para tal. Lembrando que o array da estrutura tem que vir no formato SQL e nÃ£o DBF. Ex:

aEstrutura := {}

aadd(aEstrutura, {"usuario", "char(3)", "NO", ""} )

aadd(aEstrutura, {"opcao", "char(10)", "NO", ""} )

VerificaEstrutura('acesso', aEstrutura )

.....

////////////////////////////DADOS DA FUNCAO////////////////////////////////////////////

// NOME : VerificaEstrutura //

// SINTESE : Verifica a Estrutura de uma tabela e corrige se necessÃ¡rio //

// PARAMETROS : <1> cTabela //

// <2> aEstrutura Correta //

// RETORNO : lOk (se tudo ok) //

///////////////////////////////////////////////////////////////////////////////////////

Function VerificaEstrutura( cTabela, aEstrutura )

local aEstruturaOld := {}

local cCmdSql := ''

local lRetorno := .t.

local x, y

cCmdSql := 'show columns from '+cTabela

aEstruturaOld := SqlArray( cCmdSql )

for x = 1 to len( aEstrutura )

nEncontrado := Ascan( aEstruturaOld, {| y | upper(y[1]) = upper(aEstrutura[x,1]) } )

if nEncontrado <> 0 // Existe o campo, agora vai verificar se o campo estÃ¡ correto

if aEstrutura[x,2] <> aEstruturaOld[nEncontrado,2] .or. aEstrutura[x,3] <> aEstruturaOld[nEncontrado,3] .or. ( aEstrutura[x,4] <> 'NULL' .and. aEstrutura[x,4] <> aEstruturaOld[nEncontrado,5] )

cCmdSql := 'alter table '+cTabela+' modify column '+aEstrutura[x,1]+' '+aEstrutura[x,2]+' '+if(aEstrutura[x,3]="NO","NOT NULL","NULL")+if( aEstrutura[x,4] <> 'NULL' ,' default "'+aEstrutura[x,4]+'"','')

if !SqlExecute( cCmdSql )

lRetorno := .f.

exit

endif

else

cCmdSql := 'alter table '+cTabela+' add '+aEstrutura[x,1]+' '+aEstrutura[x,2]+' '+if(aEstrutura[x,3]="NO","NOT NULL","NULL")+if( aEstrutura[x,4] <> 'NULL',' default "'+aEstrutura[x,4]+'"','')+' after '+aEstruturaOld[len(aEstruturaOld)-2,1]

if !SqlExecute( cCmdSql )

lRetorno := .f.

exit

endif

ps. Perdeu a IDENTAÃ‡ÃƒO

Um abraÃ§o,

Alexandre Pereira

fwh 2.6, xharbour, .99.6, MyMake

msn: alexpdasilva6@hotmail.com

atualmente em RondÃ´nia

* ps 2 (nÃ£o Ã© playstation nÃ£o)

Editado pq a linha estava errada

cCmdSql := 'alter table '+cTabela+' add '+aEstrutura[x,1]+' '+aEstrutura[x,2]+' '+if(aEstrutura[x,3]="NO","NOT NULL","NULL")+if( aEstrutura[x,4] <> 'NULL',' default "'+aEstrutura[x,4]+'"','')+' after '+aEstruturaOldid=red>[len(aEstruturaOld)-2,1]

Tinha esquecido do OLD

Editado por - alex2002 on 17/03/2008 21:33:27

wmsoft · March 17, 2008

toya para quem usa SQLRDD funciona tambÃ©m?

Washington GuimarÃ£es

Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 701, xHarbour 0.99.61 (Simplex)

marcio1361303176 · March 19, 2008

Caro amigo alex2002

Obrigado pela ajuda, mas nÃ£o deu certo, veja se Estou passando alguma coisa errado. Obrigado

aEstrutura := {}

aadd(aEstrutura, {"acesso", "char(03)", "NO", ""} )

aadd(aEstrutura, {"usuario", "int(06)" , "NO", ""} )

VerificaEstrutura('niveis', aEstrutura )

SerÃ¡ que estÃ¡ algo errado....

Obrigado

masterservicevrb@gmail.com

FWHX2.6+SQLLIB+xDev+rpv+ MYSQL

alex2002 · March 19, 2008

olÃ¡.

Veja bem, esta funÃ§Ã£o Ã© apenas para tabelas jÃ¡ existentes. Se a tabela nÃ£o existir, primeiro vc tem que criÃ¡-la (dbcreate). Veja se Ã© isso.

Um abraÃ§o,

Alexandre Pereira

fwh 2.6, xharbour, .99.6, MyMake

msn: alexpdasilva6@hotmail.com

atualmente em RondÃ´nia

marcio1361303176 · March 20, 2008

Amigo, a tabela jÃ¡ Existe Sim , mas mesmo assim ele nÃ£o nodificou...

masterservicevrb@gmail.com

FWHX2.6+SQLLIB+xDev+rpv+ MYSQL

Polirep · March 20, 2008

Eu uso o dbcreate normal, com Ãºnica diferenÃ§a: Vc nÃ£o pode incluir um campo que nÃ£o seja na Ãºltima posiÃ§Ã£o, pois o SQLLIB mantem os campos SQL_ROWID e SQL_DELETED como os Ãºltimos da tabela.. nesse caso, vc nÃ£o pode incluir um campo em uma tabela jÃ¡ existente, entre os campos que jÃ¡ existem.

Alexandre (Polirep)

Belo Horizonte / MG

alexandrepolirep@hotmail.com

evandro · March 21, 2008

OlÃ¡,

MÃ¡rcio, verifique se apÃ³s a execuÃ§Ã£o da rotina nÃ£o gerou um arquivo SQLLOG.TXT. Se tiver algum problema na execuÃ§Ã£o da query este arquivo registra.

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

I PREPARATÃ“RIO PARA O VI ENCONTRO FIVEWIN - JULHO/2008 - CURVELO - MG

marcio1361303176 · March 22, 2008

Desta forma funcionou

local cCmdSql := ''

cCmdSql :='CREATE TABLE IPTU (tempo2 CHAR(18) )' Serve pra criar uma Tabela

cCmdSql := 'alter table acesso add tempo2 CHAR(18)' coloca um novo campo na tabela

cCmdSql := 'alter table '+'acesso'+' modify column '+ 'tempo2 CHAR(58)' modifica um campo jÃ¡ existente

*===========================

SqlExecute( cCmdSql ) executa o comando conforme descrito acima

masterservicevrb@gmail.com

FWHX2.6+SQLLIB+xDev+rpv+ MYSQL

alex2002 · March 24, 2008

OlÃ¡,

Conforme citei anteriormente, esta funÃ§Ã£o serve apenas para tabelas criadas pelo DBCREATE(). Pq todas as tabelas criadas pelo DBCREATE com a SqlLib possui os campos Sql_RowId e Sql_deleted. Sendo assim, esta funÃ§Ã£o estÃ¡ preparada apenas para trabalhar com este tipo de tabela. Se vc quiser que ela trabalhe com tabelas que nÃ£o possui estes campos, basta tirar o -2 que eu coloquei apÃ³s o "after".

Um abraÃ§o,

Alexandre Pereira

fwh 2.6, xharbour, .99.6, MyMake

msn: alexpdasilva6@hotmail.com

atualmente em RondÃ´nia

marcio1361303176 · March 29, 2008

Amigos, e se eu Antes de Iniciar a ModificaÃ§Ã£o, deletar os campos +- assim

cCmdSql := 'ALTER TABLE `acesso` DROP COLUMN `sql_rowid`'

SqlExecute( cCmdSql )

cCmdSql := 'ALTER TABLE `acesso` DROP COLUMN `sql_deleted`'

SqlExecute( cCmdSql )

Depois Crio os campos

masterservicevrb@gmail.com

FWHX2.6+SQLLIB+xDev+rpv+ MYSQL

personal · March 29, 2008

ALTER TABLE `tabela` ADD `campo_novo` DECIMAL(10,0) DEFAULT "0" AFTER `campo_que_quer_que_seja_criado`

PERSONAL Comp. e Sitemas.id=green>

FWH 2.5, xharbour 0.99.4, SqlLib,AdoRDD, MySql, xMate.

TWBrowse(HC),C5Menu,vPrinter.

Modificar a Estrutura da Tabela(Mysql) Via CÃ³digo

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation