INCLUIR TABELA MYSQL E INCLUIR CAMPOS EM TABELA
BOM DIA PESSOAL
GOSTARIA DE VERIFICA COMO INCLUIR TABELA NO MYSQL VIA VB
E COMO INCLUIR OU ALTERAR CAMPOS EM TABALAS MYSQL VIA BB
ESTOU CONECTADO AO MYSQL DESSA FORMA
Set MyDB = New ADODB.Connection
MyDB.ConnectionString = [Ô]Driver=MySQL ODBC 5.1 Driver; DATABASE=meubanco; SERVER=localhost; UID=root; PASSWORD=123456[Ô]
e para efetuar atualizações de registro estou usando
Sql = [Ô]UPDATE culturas SET [Ô]
Sql = Sql & [Ô]CULTURA = [ô][Ô] & UCase(TiraAcentos(txtcultura.Text)) & [Ô][ô],[Ô]
Sql = Sql & [Ô]obs = [ô][Ô] & UCase(TiraAcentos(txtObs.Text)) & [Ô][ô][Ô]
Sql = Sql & [Ô]where cod = [ô][Ô] & Flex.TextMatrix(Flex.Row, 0) & [Ô][ô][Ô]
MyDB.Execute Sql
PARA INCLUIR TABELA OU ALTERAR/INCLUIR CAMPOS SERIA ALGO PARECIDO
OBRIGADO
JAIR
GOSTARIA DE VERIFICA COMO INCLUIR TABELA NO MYSQL VIA VB
E COMO INCLUIR OU ALTERAR CAMPOS EM TABALAS MYSQL VIA BB
ESTOU CONECTADO AO MYSQL DESSA FORMA
Set MyDB = New ADODB.Connection
MyDB.ConnectionString = [Ô]Driver=MySQL ODBC 5.1 Driver; DATABASE=meubanco; SERVER=localhost; UID=root; PASSWORD=123456[Ô]
e para efetuar atualizações de registro estou usando
Sql = [Ô]UPDATE culturas SET [Ô]
Sql = Sql & [Ô]CULTURA = [ô][Ô] & UCase(TiraAcentos(txtcultura.Text)) & [Ô][ô],[Ô]
Sql = Sql & [Ô]obs = [ô][Ô] & UCase(TiraAcentos(txtObs.Text)) & [Ô][ô][Ô]
Sql = Sql & [Ô]where cod = [ô][Ô] & Flex.TextMatrix(Flex.Row, 0) & [Ô][ô][Ô]
MyDB.Execute Sql
PARA INCLUIR TABELA OU ALTERAR/INCLUIR CAMPOS SERIA ALGO PARECIDO
OBRIGADO
JAIR
A mesma coisa. Exemplo:
sql = [Ô]create table filmes ( [Ô]
sql = sql & [Ô]id int(10) unsigned not null auto_increment, [Ô]
sql = sql & [Ô]titulo varchar(80) not null, [Ô]
sql = sql & [Ô]ano int(4) unsigned not null, [Ô]
sql = sql & [Ô]diretor varchar(80) not null, [Ô]
sql = sql & [Ô]primary key (id));[Ô]
con.execute sql
supondo que eu queria incluir um novo campo na tabela seria este o procedimento
sql = [Ô]alter table filmes ( [Ô]
sql = sql & [Ô]novocampo varchar(80) not null, [Ô]
con.execute sql
sql = [Ô]alter table filmes ( [Ô]
sql = sql & [Ô]novocampo varchar(80) not null, [Ô]
con.execute sql
ALTER TABLE FILMES ADD NOVOCAMPO VARCHAR(80) NOT NULL
Tópico encerrado , respostas não são mais permitidas