ATUALIZACAO DE TABELAS E CAMPOS VIA CODIGO !!
Tenho um pq. prog. em vb6 e gostaria de criar uma função, onde verifica a existencia de uma tabela e seus campos e na falta deles criar via código.Desde ja agradeco.
sds,
Ruan
sds,
Ruan
use o refresh.
Refresh ? de que maneira, poderia exemplificar?
Vc usa que banco de dados ?
Eu uso banco de dados Access !
com DAO !
sds,
com DAO !
sds,
como assim refresh!
refresh é uma propriedade q atualiza as tabelas.
exemplos : sua base de dados.refresh
data1.refresh
entendeu?
refresh é uma propriedade q atualiza as tabelas.
exemplos : sua base de dados.refresh
data1.refresh
entendeu?
RUAN...
faça uma busca aqui no site - tem exemplos e artigos ensinando a fazer isso
faça uma busca aqui no site - tem exemplos e artigos ensinando a fazer isso
tente isto:
Private Sub Command1_Click()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data _ Source=c: este\Biblio.mdb"
cat.ActiveConnection = conexao
Set tbl = New ADOX.Table
'cria o novo objeto table
With tbl
.Name = "Nova_tabela"
'cria campos e os anexa a coleção columns
With .Columns
.Append "Nome", adVarWChar
.Append "Endereco", adVarWChar
.Append "Telefone", adVarWChar
.Append "Observacao", adLongVarWChar
End With
End With
'inclui a nova tabela a coleção tables
cat.Tables.Append tbl
set cat=nothing
End Sub
Private Sub Command1_Click()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data _ Source=c: este\Biblio.mdb"
cat.ActiveConnection = conexao
Set tbl = New ADOX.Table
'cria o novo objeto table
With tbl
.Name = "Nova_tabela"
'cria campos e os anexa a coleção columns
With .Columns
.Append "Nome", adVarWChar
.Append "Endereco", adVarWChar
.Append "Telefone", adVarWChar
.Append "Observacao", adLongVarWChar
End With
End With
'inclui a nova tabela a coleção tables
cat.Tables.Append tbl
set cat=nothing
End Sub
Só pra corrigir...
Refresh não é propriedade e sim um método.
Refresh não é propriedade e sim um método.
Tópico encerrado , respostas não são mais permitidas