Erro Conexão Adodb em versão Inferior ao Win7
Pessoal,
Estou queimando pestana com esta conexão, no Win7 Roda redondinho porem no WinXP dá a seguinte mensagem:"Nenhum valor foi fornecido para um ou mais parâmetros necessários." já tentei colocar as dlls na instalação do projeto e nada.
Abaixo o codigo:
Dim path As String
path = Application.StartupPath
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=#####; Data Source=" & path & "\toppontorep.mdb")
Dim cmd As New OleDbCommand("INSERT INTO [funcionarios.CODFUNC, funcionarios.NOME, funcionarios.CARTEIRA, funcionarios.MATRICULA, funcionarios.DTADMISSAO, funcionarios.dtdemissao, funcionarios.codcargo, funcionarios.CODDEPTO, funcionarios.IDEXPORTACAO, funcionarios.PIS] SELECT CODFUNC, NOME, CARTEIRA, MATRICULA, DTADMISSAO, dtdemissao, codcargo, CODDEPTO, IDEXPORTACAO, PIS FROM [Text;Database=" & path & "].[importa.csv]", conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MsgBox("Importação Realizada com sucesso!", MsgBoxStyle.OkOnly, "Importação de Arquivos")
Um abraço a todos!
Discussão (4)
Carregando comentários...