RUN-TIME ERROR -2147217900 80040E14
Olá pessoal,
Estou fazendo um programa de transferência de arquivo DBF para MySql, só que me retorna o seguinte erro:
RUN-TIME ERROR -2147217900 (80040e14)
parte do código é assim:
Abertura do banco de dados
Public Sub Abre_Func01()
Set Conexao01 = New ADODB.Connection
Conexao01.ConnectionTimeout = 60
Conexao01.CommandTimeout = 400
Conexao01.CursorLocation = adUseClient
Conexao01.Open [Ô]Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=Servidor - Joao;Mode=ReadWrite;Initial Catalog=datasys[Ô]
MdFunc01.CursorLocation = adUseClient
MdFunc01.Open [Ô]SELECT * FROM funcionarios[Ô], Conexao01, adOpenDynamic, adLockOptimistic
End Sub
[ô]
[ô]Abrindo Arquivo dos Associados - Ativos - DBF
[ô]
Public Sub Abre_AMB03()
Set Conexao02 = New ADODB.Connection
Conexao02.ConnectionTimeout = 60
Conexao02.CommandTimeout = 400
Conexao02.CursorLocation = adUseClient
Conexao02.Open [Ô]Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=AecMinas - Dbf;Mode=ReadWrite;Initial Catalog=C:\SISTEMADBF[Ô]
MdFunc02.CursorLocation = adUseClient
MdFunc02.Open [Ô]SELECT * FROM AQ_AMB03 order by CODFUN_AMB[Ô], Conexao02, adOpenDynamic, adLockOptimistic
End Sub
Dim F1Campos, F1Valores, eSQL as String
[ô]
[ô] Nº da Identidade
[ô]
If MdFunc02!IDEFUN_AMB <> [Ô] [Ô] Then
F1Campos = F1Campos & [Ô]identidade,[Ô]
F1Valores = F1Valores & [Ô][ô][Ô] & MdFunc02!IDEFUN_AMB & [Ô][ô],[Ô]
End If
[ô]
[ô] Granvando no MySql
[ô]
eSQL = [Ô]INSERT INTO funcionarios([Ô] & F1Campos & [Ô]) values ([Ô] & F1Valores & [Ô])[Ô]
Conexao01.Execute eSQL
Quando vai salvar o registro se dá o erro.
O que estou fazendo de errado???
Obrigado,
Estou fazendo um programa de transferência de arquivo DBF para MySql, só que me retorna o seguinte erro:
RUN-TIME ERROR -2147217900 (80040e14)
parte do código é assim:
Abertura do banco de dados
Public Sub Abre_Func01()
Set Conexao01 = New ADODB.Connection
Conexao01.ConnectionTimeout = 60
Conexao01.CommandTimeout = 400
Conexao01.CursorLocation = adUseClient
Conexao01.Open [Ô]Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=Servidor - Joao;Mode=ReadWrite;Initial Catalog=datasys[Ô]
MdFunc01.CursorLocation = adUseClient
MdFunc01.Open [Ô]SELECT * FROM funcionarios[Ô], Conexao01, adOpenDynamic, adLockOptimistic
End Sub
[ô]
[ô]Abrindo Arquivo dos Associados - Ativos - DBF
[ô]
Public Sub Abre_AMB03()
Set Conexao02 = New ADODB.Connection
Conexao02.ConnectionTimeout = 60
Conexao02.CommandTimeout = 400
Conexao02.CursorLocation = adUseClient
Conexao02.Open [Ô]Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=AecMinas - Dbf;Mode=ReadWrite;Initial Catalog=C:\SISTEMADBF[Ô]
MdFunc02.CursorLocation = adUseClient
MdFunc02.Open [Ô]SELECT * FROM AQ_AMB03 order by CODFUN_AMB[Ô], Conexao02, adOpenDynamic, adLockOptimistic
End Sub
Dim F1Campos, F1Valores, eSQL as String
[ô]
[ô] Nº da Identidade
[ô]
If MdFunc02!IDEFUN_AMB <> [Ô] [Ô] Then
F1Campos = F1Campos & [Ô]identidade,[Ô]
F1Valores = F1Valores & [Ô][ô][Ô] & MdFunc02!IDEFUN_AMB & [Ô][ô],[Ô]
End If
[ô]
[ô] Granvando no MySql
[ô]
eSQL = [Ô]INSERT INTO funcionarios([Ô] & F1Campos & [Ô]) values ([Ô] & F1Valores & [Ô])[Ô]
Conexao01.Execute eSQL
Quando vai salvar o registro se dá o erro.
O que estou fazendo de errado???
Obrigado,
companheiro, boa noite
procura um utilitario para clipper , chamado dbu.exe (mai veio que anda pra frente!), por que senao voce corre o risco de importar registros deletados do dbase/clipper;
depois disso, voce abre o access, cria um banco novo, e utiliza a importacao do acces para subir os dados para o access....
dai fica doce, procura o software da bullzip para converter o acess para mysql, ou entao......
coloca os dados do seu bd nas configuracoes do ODBC, e exporta direto do acces para o mysql
facin facin.. flw
boa sorte
procura um utilitario para clipper , chamado dbu.exe (mai veio que anda pra frente!), por que senao voce corre o risco de importar registros deletados do dbase/clipper;
depois disso, voce abre o access, cria um banco novo, e utiliza a importacao do acces para subir os dados para o access....
dai fica doce, procura o software da bullzip para converter o acess para mysql, ou entao......
coloca os dados do seu bd nas configuracoes do ODBC, e exporta direto do acces para o mysql
facin facin.. flw
boa sorte
Tópico encerrado , respostas não são mais permitidas