CRIAR BD E TABELA

USUARIO.EXCLUIDOS 22/04/2004 13:23:31
#21926 Resposta escolhida

Private Sub Form_Load()
Dim teste As Database
Set teste = CreateDatabase("C:\Prg Programas\Teste.mdb", dbLangGeneral & ";pwd=teste", dbEncrypt)
teste.Close
With Conexao
.Open
.Execute "Select * into MKTTXE in 'C:\Prg Programas    este.mdb' & password=teste from MKTTXE"
.Close
MsgBox "Extração Concluida", vbInformation, "Atenção"
End With
End
End Sub


e o modulo q tenho é esse

Public Conexao As New ADODB.Connection
Public Tabela As New ADODB.Recordset
Public Conectar As New ADODB.Connection
Public SQL As String
Public Sub AbrirConexao()
Conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Prg Programas\Servidor\Data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=nickolasgm"
End Sub


Abraços,

USUARIO.EXCLUIDOS 22/04/2004 19:20:54
#22055

Tá colocando o:

Conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Prg Programas\Servidor\Data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=nickolasgm"

No sub main do modulo e dele chamando o form ?

Abraços,

USUARIO.EXCLUIDOS 22/04/2004 21:52:28
#22073

Putz, o select tá totalemten errado e nem tinha me dado conta...

USUARIO.EXCLUIDOS 22/04/2004 21:53:10
#22074

Que vc quer fazer ? Copiar de uma tabela para outra em MDBs diferentes ?

Abraços,

USUARIO.EXCLUIDOS 23/04/2004 13:24:13
#22224

Cria 2 DB e 2 recordsets um para cada Tabela

Depois faz um

rs1.movefirst

do while not rs1.eof

rs2.addnew

for i = 1 to rs2.Fields.Count

rs2(rs2.fields(i).name)=rs1(rs2.fields(i).name)
next i

rs2.update
loop

Abraços,