INSERT EM BASE DE DADOS...

USUARIO.EXCLUIDOS 22/08/2007 18:00:43
#232129
Pessoal ...

Esse procedimento esta correto para inserir dados em uma base como VBA...

Private Sub Comando_SalvaNPrev_Click()

   Dim RsInsereNova As ADODB.Recordset

   Set NovaConexao = Conexao("adsystemfinance", "Finance")
   Set RsInsereNova = New ADODB.Recordset

   TSQL = "insert into tb_prevfaturamentomidia(cdagencia, cdcliente)values( " & _
          "'" & TextBox13.Value & "','" & TextBox14.Text & "')"

   RsInsereNova.Open TSQL, NovaConexao
   
   RsInsereNova.Close
   NovaConexao.Close
 

End Sub


Surgiu um probleminha que diz que eu não posso fazer isso se o objeto
RsInsereNova.Close... porém se eu tiro funciona... eu não devo dar close no recordset em procedimentos de inserção?
USUARIO.EXCLUIDOS 22/08/2007 18:03:45
#232130 Resposta escolhida
coloca assim

 

if RsInsereNova.state > 0 then RsInsereNova.close



att,
Marcelo Bressan
Tópico encerrado , respostas não são mais permitidas
Voltar