CRIAR E EXCLUIR TABELAS NO MYSQL PELO VB6

VELDRAME 15/03/2012 09:24:51
#397183

1) Crie sua conexão normalmente. (sendo, por exemplo: Public conn as ADODB.Connection)
2) sendo sua conexão a [Ô]conn[Ô]: conn.Execute (command), aonde [Ô] COMMAND é seu commando a ser passado para o banco, seja CREATE, INSERT, DELETE ...

3) SCRIPTs
CREATE
CREATE TABLE 'aberturacc' (
'Id_Abertura' int(11) NOT NULL AUTO_INCREMENT,
'Id_Cooperado' int(11) NOT NULL,
'Id_Banco' char(10) NOT NULL,
'Momento' datetime NOT NULL,
'Usuario' varchar(20) NOT NULL,
'Status' int(11) NOT NULL,
PRIMARY KEY ('Id_Abertura')
) ENGINE=InnoDB AUTO_INCREMENT=377 DEFAULT CHARSET=latin1$$

DELETE
DELETE FROM 'admcooper'.'aberturacc'
WHERE <{where_condition}>;

UPDATE
UPDATE 'admcooper'.'aberturacc'
SET
'Id_Abertura' = {Id_Abertura: },
'Id_Cooperado' = {Id_Cooperado: },
'Id_Banco' = {Id_Banco: },
'Momento' = {Momento: },
'Usuario' = {Usuario: },
'Status' = {Status: }
WHERE <{where_condition}>;

INSERT
INSERT INTO 'admcooper'.'aberturacc'
('Id_Abertura',
'Id_Cooperado',
'Id_Banco',
'Momento',
'Usuario',
'Status')
VALUES
(
<{Id_Abertura: }>,
<{Id_Cooperado: }>,
<{Id_Banco: }>,
<{Momento: }>,
<{Usuario: }>,
<{Status: }>
);

SELECT
SELECT
'aberturacc'.'Id_Abertura',
'aberturacc'.'Id_Cooperado',
'aberturacc'.'Id_Banco',
'aberturacc'.'Momento',
'aberturacc'.'Usuario',
'aberturacc'.'Status'
FROM 'admcooper'.'aberturacc';

Espero ter ajudado.

MARCELO.TREZE 15/03/2012 09:34:45
#397185

bom só uma correção o comando delete, apaga os dados da tabela não a tabela

então para se apagar uma tabela seria

DROP TABLE [IF EXISTS] tbl_name

KERPLUNK 15/03/2012 10:22:32
#397192 Resposta escolhida

Complementando: O comando DELETE, apaga os dados apenas, não reinicializa nenhum contador relativo à tabela. Por exemplo, você tem um campo auto-incrementado e você usa o comando DELETE para apagar todos os dados. O próximo registro inserido nessa tabela, vai ter o campo auto-incrementado com valor do último registro mais 1. Para zerar isso, use o TRUNCATE: TRUNCATE TABLE Nome_da_Tabela

VELDRAME 15/03/2012 10:48:12
#397195

Opá marcelo.
Pode crer!
Ele pediu para excluir tabela e não dados.
Passei errado.
Valeu pelo apoio.

XAVIER 24/03/2012 10:31:43
#398137

Pessoal, obrigado pela atenção. Como sempre, vocês são prontos a ajudar.
Eu me esquecí de um detalhe: No access eu crio a tabela dinamicamente porém eu nomeio a tabela em tempo de execução. Este nome altera de acordo com o projeto. No mysql, como que faço para atribuir dinamicamente o nome da tabela ?


No Access faço assim, só para ilustrar:

Dim tb_1 as New Table
[ô] declaro a string de conexão aquí

tb_1.Name= [Ô]Tabela_[Ô] & cboCodigo [ô] Aquí eu captura o código que identificará a tabela num combobox.

tb_1.Columns.Append [Ô]NUM_PROJ[Ô], AdVarWChar, 50 [ô] Criando o campo

Desde já agradeço a ajuda.