|
|
Postada em 10/01/2017 23:56 hs
Boa noite turma, depois de muito tempo voltei a postar. Espero que estejam todos bem.
Vamos la.
A dúvida é que esta dando um erro: Run Time Error 3027. Can't update. Database or Object is read-only.
Como estou fazendo.
'no modulo
Global ws As Workspace
Global db As Database
Public Function Abre_Conexao()
Set ws = DBEngine.Workspaces(0)
If TipoBD = "MySQL" Then
' abri o banco de dados MySQL
Set db = ws.OpenDatabase("MySQL", dbDriverComplete, False, "Driver={MySQL ODBC 3.51 Driver};Server=" & CaminhoBD & ";Database=" & NomeBanco & "; User=" & UsuarioBanco & ";Password=" & SenhaBanco & ";Option=3;")
'Set db = ws.OpenDatabase(("C:ProgramDataMySQLMySQL Server 5.7Datasae@0020testedb.opt"))
Else
' abri o banco de dados Access
Set db = ws.OpenDatabase(CaminhoBD & "" & NomeBanco & ".MDB", False, False, ";pwd=")
End If
End Function
'no Declarations do Form
Dim tbRegistro As Recordset
'no load do form
Abre_Conexao
Set tbRegistro = db.OpenRecordset("Select * from tabReg order by nome Asc") 'crescente
tbRegistro.AddNew
tbRegistro.Fields("Nome") = txtNome.Text
tbRegistro.Fields("Registro") = txtSerial.Text
tbRegistro.Update
ele da o erro bem na Linha tbRegistro.AddNew... Como resolvo isso?
|
|
|
|
