PROBLEMAO COM O INSERT INTO

USUARIO.EXCLUIDOS 23/08/2006 16:58:21
#166873
Galera Tenho um software que gera varias planilhas so que agora esta avendo um Necessidade de armazenar essas informações em uma tabela. Nao sei se é a melhor solução mas estou tentando. O problema e que o comando roda, nao da erro algum mas quando vou olhar na minha tabela nao tem registro algum. Dificeil ne...
Se alguem souber me de uma força.


If Range(Cel1).Text <> "" Then
SSQL = "INSERT INTO Memoria_Calculos(TAG, Descricao, Potencia, IN, Instalacao, Tensao, ID, Cabo, Protecao, Tipo, Distancia, Queda_IN, FT, FA, Circuito, Aux_Bitola, Aux_protecao, Num_de_Cabos, Queda_IP, Material, Classe, Procedencia, Revisao, Partida, Potencia1, IP, Comentario_1, Comentario_2, VN, Rotacao, FP, Rendimento, Partida_Formatada, Potencia_Requerida, Cabo_DI_UNI, Cabo_Pot_DI_UNI, Cabo_LC Cabo_Pot_LC) VALUES"

SSQL = SSQL & "('" & Range(Cel1).Text & "','" & Range(Cel2).Text & "','" & Range(Cel3).Text & "','" & Range(Cel4).Text & "','" & Range(Cel5).Text & "','" & Range(Cel6).Text & "','" & Range(Cel7).Text & "','" & Range(Cel8).Text & "','" & Range(Cel9).Text & "','" & Range(Cel10).Text & "','" & Range(Cel11).Text & "','" & Range(Cel12).Text & "','" & Range(Cel13).Text & "','" & Range(Cel14).Text & "','" & Range(Cel15).Text & "','" & Range(Cel16).Text & "','" & Range(Cel17).Text & "','" & Range(Cel18).Text & "','" & Range(Cel19).Text & "','" & Range(Cel20).Text & "','" & Range(Cel21).Text & "','" & Range(Cel22).Text & "','" & Range(Cel23).Text & "'"

SSQL = SSQL & ",'" & Range(Cel24).Text & "','" & Range(Cel25).Text & "','" & Range(Cel26).Text & "','" & Range(Cel27).Text & "','" & Range(Cel28).Text & "','" & Range(Cel29).Text & "','" & Range(Cel30).Text & "','" & Range(Cel31).Text & "','" & Range(Cel32).Text & "','" & Range(Cel33).Text & "','" & Range(Cel34).Text & "','" & Range(Cel35).Text & "','" & Range(Cel36).Text & "','" & Range(Cel37).Text & "','" & Range(Cel38).Text & "')"

cnnConn.Execute SSQL
USUARIO.EXCLUIDOS 23/08/2006 17:01:40
#166877
Como vc abre o cnnConn?
USUARIO.EXCLUIDOS 23/08/2006 17:04:56
#166882
pega o resultado do SSQL e roda no banco de dados
USUARIO.EXCLUIDOS 24/08/2006 13:24:17
#167049
Me ajudem por favor!!!!!!!!!!!!

'Abre conexão com o banco de dados
Set cnnConn = New ADODB.Connection
With cnnConn
.ConnectionString = _
"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Caminhobd & ";"""
.Open
End With
End If
USUARIO.EXCLUIDOS 24/08/2006 14:16:19
#167062 Resposta escolhida
Este seu banco e local:

apÂÂÂ'pos você ter montado seu SSQl, de um msgbox SSQL, pegue o conteúdo do msgbox e rode diretamente no access, ai veja qual a menssagem de erro esta sendo retornada para você.

outra coisa, vc já debugou o programa? tem certeza que ele entra no seu if?

Mas primeiramente faça este teste, rode seu ssql no access e veja o que ele lhe diz.
USUARIO.EXCLUIDOS 24/08/2006 15:02:22
#167074
MarcoSA Mais uma vez muito obrigado me salvou ....
Valeu mesmo
vale 10 pontos essa

Na minha tabela havia um campo que chamava IN, entao no meu comando insert, eu chamava o campo IN ele dava problema....
Se eu nao tivesse colado no access nunca ia descobrir....

VALEU MARCOSA
USUARIO.EXCLUIDOS 24/08/2006 15:04:44
#167075
Veja se ajuda...
Dim strSQL as String
strSQL = "INSERT INTO....
....
Dim intRegs as Integer
intRegs = 0
cnnConn.Execute (strSQL), intRegs
' Efetiva a Transacao SQL nas Tabelas
cnnConn.CommitTrans

If intRegs = 1 Then
MsgBox "Atualizacao OK "
Else
MsgBox "Não foi possivel Atualizar!"
End If
Tópico encerrado , respostas não são mais permitidas
Voltar