em funcao de insercao de dados

[fpimenta 0]

ola pessoal, fiz um modulo que contem uma funcao para abrir o banco, fechar o banco e inserir dados no banco, mas quando clico no botao que chama a funcao de inserir ele me da a menagem

 

o conjunto de registros atual nao oferece suporte para atualizacao isso pode ser uma limitacao do provedor ou do tipo de bloqueio selectionado

 

 

Setando variaveis publicas

'*************************************************************************

Public conexao As ADODB.Connection

Public tabeladepto As ADODB.Recordset

'*************************************************************************

 

'FUNCAO PARA ABRIR O BANCO

'*********************************************

Public Function ABREDB()

 

'setando uma nova conexao

Set conexao = New ADODB.Connection

 

'verificando a conexao

If conexao.State = adStateClosed Then

conexao.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0;" & _

"Data Source = " & App.Path & "\suporte97.mdb;Persist Security Info=False;"

conexao.Open

'teste

MsgBox "Fez conexao"

End If

End Function

'**********************************************

 

'FUNCAO PARA FECHAR O BANCO

'**********************************************

Public Function FECHADB()

'verifica conexão

If conexao.State = adStateOpen Then

conexao.Close

'teste

MsgBox "fechou a conexao"

End If

End Function

'**********************************************

 

 

 

FUNCAO INSERE DADOS

'***********************************

Public Function INSEREDEPTOS()

ABREDB

Set tabeladepto = New ADODB.Recordset

 

Dim SQL As String

 

SQL = "SELECT * FROM TBDEPTO"

 

tabeladepto.Open SQL, conexao

 

tabeladepto.AddNew

tabeladepto![nomedepto] = Valor1

tabeladepto![nomedepto] = Valor2

 

tabeladepto.Update

 

FECHADB

End Function

 

 

 

 

 

 

http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif

 

GRATO

[Veber 0]

faz diferente.. cria um a funcao de inserir assim oh:

 

Public Sub InsereDeptos ( valor1 as string, valor2 as string)dim sql as Stringsql = "Insert into TbDepto(valor1, valor2) VALUES ('" & valor1 & "','" & valor2 & "')"conexao.execute sqlend sub

tem mais performance, dah menos erro e nao carrega a memoria

 

Flows, testa ai