SOLUCAO MYSQL - URGENTE
Olá pessoal !
Qual é a forma correta para criar uma tabela no mysql com vb6 ?
O que é que está faltando?
Dim tabela As String
tabela = [Ô]tb_des_Inforger_[Ô] & txtTab.Text
dbM.Execute [Ô]CREATE TABLE tabela([Ô] _
& [Ô]IDC INT UNSIGNED NOT NULL,[Ô] _
& [Ô]VARCHAR NUM_PROJ (45) NOT NULL),[Ô] _
& [Ô]VARCHAR ID_DIM (45) NOT NULL)[Ô]
Agradeço desde já !
Qual é a forma correta para criar uma tabela no mysql com vb6 ?
O que é que está faltando?
Dim tabela As String
tabela = [Ô]tb_des_Inforger_[Ô] & txtTab.Text
dbM.Execute [Ô]CREATE TABLE tabela([Ô] _
& [Ô]IDC INT UNSIGNED NOT NULL,[Ô] _
& [Ô]VARCHAR NUM_PROJ (45) NOT NULL),[Ô] _
& [Ô]VARCHAR ID_DIM (45) NOT NULL)[Ô]
Agradeço desde já !
amigo uso assim, que erro que da na sua função?
CONN.Execute [Ô]CREATE TABLE financeiro(fin_id int(8) UNSIGNED AUTO_INCREMENT NOT NULL PRIMARY KEY, fin_cod_debito INT(8) NOT NULL, fin_id_estab INT(8) NOT NULL, fin_repasse int(8), fin_data_repasse DATETIME, fin_valor decimal(10,2), fin_data_venc DATETIME, fin_data_pagam int(8), fin_valor_repassado decimal(10,2));[Ô]
CONN.Execute [Ô]ALTER TABLE cadempresa_fecha ADD COLUMN FEC_GERAR_FINANCEIRO INTEGER(1) DEFAULT 0;[Ô]
Josuel, obrigado pela atenção.
Esta forma que você postou, é com um nome de tabela definido, porém, eu preciso pegar a string [Ô]tabela[Ô] e compor o nome da tabela entendeu ?
tabela = [Ô]tb_des_Inforger_[Ô] & txtTab.Text
Quando defino o nome, por exemplo: Financeiro, aà não dá erro algum. Porém quando quero pegar a string tabela, não cria.
Obrigado mais uma vez.
Esta forma que você postou, é com um nome de tabela definido, porém, eu preciso pegar a string [Ô]tabela[Ô] e compor o nome da tabela entendeu ?
tabela = [Ô]tb_des_Inforger_[Ô] & txtTab.Text
Quando defino o nome, por exemplo: Financeiro, aà não dá erro algum. Porém quando quero pegar a string tabela, não cria.
Obrigado mais uma vez.
Barros, obrigado pela força. Eu sou iniciante em mysql e estou esbarrando nestes probleminhas...
Agora ele está lendo a string, porém não cria a tabela. Será que está faltando ainda alguma coisa ?
Veja o código:
Dim tabela As String
tabela = [Ô]tb_[Ô] & txtLogin.Text
dbM.Execute [Ô]CREATE TABLE[Ô] & tabela & [Ô]([Ô] _
& [Ô]IDC INT UNSIGNED NOT NULL,[Ô] _
& [Ô]VARCHAR NUM_PROJ (45) NOT NULL),[Ô] _
& [Ô]VARCHAR ID_DIM (45) NOT NULL)[Ô]
Um abraço.
Agora ele está lendo a string, porém não cria a tabela. Será que está faltando ainda alguma coisa ?
Veja o código:
Dim tabela As String
tabela = [Ô]tb_[Ô] & txtLogin.Text
dbM.Execute [Ô]CREATE TABLE[Ô] & tabela & [Ô]([Ô] _
& [Ô]IDC INT UNSIGNED NOT NULL,[Ô] _
& [Ô]VARCHAR NUM_PROJ (45) NOT NULL),[Ô] _
& [Ô]VARCHAR ID_DIM (45) NOT NULL)[Ô]
Um abraço.
Valeu pessoal !
Muito obrigado pela ajuda. Conseguimos resolver o problema. Segue a solução abaixo:
Dim sql As String
Dim tabela As String
tabela = [Ô]tb_[Ô] & txtLogin.Text
sql = [Ô]create table [Ô] & tabela & [Ô] ( [Ô]
sql = sql & [Ô]IDC intr(3) unsigned not null, [Ô]
sql = sql & [Ô]NUM_PROJ int(45) varchar(145) not null, [Ô]
sql = sql & [Ô]ID_DIM varchar(5) not null) [Ô]
sql = sql & [Ô]primary key (id));[Ô]
dbM.Execute sql
Um abração a todos.
Muito obrigado pela ajuda. Conseguimos resolver o problema. Segue a solução abaixo:
Dim sql As String
Dim tabela As String
tabela = [Ô]tb_[Ô] & txtLogin.Text
sql = [Ô]create table [Ô] & tabela & [Ô] ( [Ô]
sql = sql & [Ô]IDC intr(3) unsigned not null, [Ô]
sql = sql & [Ô]NUM_PROJ int(45) varchar(145) not null, [Ô]
sql = sql & [Ô]ID_DIM varchar(5) not null) [Ô]
sql = sql & [Ô]primary key (id));[Ô]
dbM.Execute sql
Um abração a todos.
Tópico encerrado , respostas não são mais permitidas