EXCLUIR TABELA NO MYSQLSERVER

XAVIER 10/04/2012 13:11:36
#399450
Pessoal, não estou conseguindo excluir uma tabela no MySql-Server.
Estou usando este código. O que deve estar faltando?

Sub DROP_TABELAS_MYSQL()

Dim tab1 As String
Dim sql1 As String

tab1 = [Ô]tb_des_Inforger_[Ô] & lblIDC.Caption & [Ô]_[Ô] & LCase(Replace(cboCodigo.Text, [Ô]-[Ô], [Ô][Ô]))
sql1 = [Ô]DROP TABLE [IF EXISTS][Ô] & tab1

End sSub

Desde agradeço o ensino.
LUCASVAZ 10/04/2012 13:21:59
#399452
tenta algo assim:

Dim cmd As New SqlCommand([Ô]COMANDOS SQL[Ô], [Ô]STRING DE CONEXÃO[Ô])

cms.ExecuteNonQuery()
JONATHANSTECKER 10/04/2012 13:32:59
#399460
Citação:

Estou usando este código. O que deve estar faltando?


XAVIER, você apenas criou 2 strings. Nada será feito desa forma.
Você precisa abrir um conexão com o banco, definir query e depois efetuar um comando para a exclusão da tabela.
XAVIER 10/04/2012 13:38:28
#399461
é... pelo visto vocês já perceberam que sou iniciante no mysql. Eu declarei minha conexão dentro de um módulo.
Este código que enviei está dentro de um form. Então eu devo declarar a string de conexão neste form também.Seria isso?
Me envia um código exemplo de exclusão de uma tabela qualquer se possível.
Obrigadão.
MARCELO.TREZE 10/04/2012 14:49:06
#399478
Resposta escolhida
Eu acredito que alguns detalhes podem fazer a diferença veja

sql1 = [Ô]DROP TABLE IF EXISTS [Ô] & tab1


bom quando vc ve no exmplo do MYSQL a palavra entre colchetes [Ô][[Ô] é porque aquilo não é obrigatório, ou seja é opcional na query, porém ao coloca-lo na query deve ir sem os colchetes, e como você irá concatenar com tab1, então não esqueça de colocar um espaço após EXISTS.

ps: tenha certeza que tab1 está retornando o nome correto da tabela

teste ai.



XAVIER 10/04/2012 15:42:18
#399487
Valeu Marcelão. Funcionou !!!

Segue o código para ajudar os que precisarem. Obrigado a todos!!!

Dim tab1 As String
Dim sql1 As String

tab1 = [Ô]tb_des_Inforger_[Ô] & lblIDC.Caption & [Ô]_[Ô] & LCase(Replace(cboCodigo.Text, [Ô]-[Ô], [Ô][Ô]))
sql1 = [Ô]DROP TABLE IF EXISTS [Ô] & tab1
dbDES.Execute sql1

Um abraço.
Tópico encerrado , respostas não são mais permitidas