Criação de tabelas

[nogueiravalente]

Existe a possibilidade de criar novas tabelas em um banco de dados a partir de um formulario??

Se sim, como fazer.

Agradeço pela ajuda!

[Danleonhart]

Olá !

Você diz através de um aplicativo em tempo de execução ?! é isso ?!

Bem, tenho alguns projetos em VB-6 e sempre que precisei fazer, colocava todo o script em uma variável string... +/- assim:

Dim objMySQL As ADODB.Connection
Dim objRS As New ADODB.Recordset
Dim newTab As String

' Database em Localhost
      Set objMySQL = New ADODB.Connection
      objMySQL.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=MyDatabase; User=root;Password=xxxxx;Option=3;"


 newTab = "CREATE TABLE tab_dados_backup (Controle int(4) NOT NULL AUTO_INCREMENT,ID_Clientes varchar(3) COLLATE latin1_swedish_ci DEFAULT NULL,Cliente varchar(100) COLLATE latin1_swedish_ci DEFAULT NULL, PRIMARY KEY (Controle)) ENGINE=MyISAM AUTO_INCREMENT=1 DEFAULT CHARSET=latin1 COLLATE=latin1_swedish_ci ROW_FORMAT=FIXED;"

     Set objRS = objMySQL.Execute(newTab)

Observações a parte: O esquema da Tabela é definida. Para se alterar algum parâmetro dos Campos ou mesmo da Tabela só no servidor (no caso MySQL).

Sinceramente é muito script para ficar na aplicação, então, resolvi aprender mais sobre SP's e SF's (Stored Procedures e Stored Functions) para agilizar este processo.

Hoje tenho este esquema salvo em uma SP, que quando necessito criar a tabela, só faço chamar a SP. :rolleyes: