[Resolvido]Trabalhar OFF line com form Desvinculado...

Bem.. estou tentando mudar meu sistema para trabalhar com form desvinculado e recordset desconectado..
do tipo.. digita e ao salvar conecta - após desconecta..

Alguma ideia melhor? ou um exemplo..

Grato

O que eu lhe passei ontem para o mdb é uma das saídas.

Tem como me passar um exemplo de codigo completo amigão?

Andei lendo a respeito e em um texto alguem falava que há metodos mais seguros e mais rapidos do que o Addnew, update etc..
Seria tipo..
Execute..insert into bla bla bla

Exemplo para UPDATE:

Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Backend.accdb", False, False, "MS Access;PWD=senha")

db.Execute "UPDATE tblClientes SET Sexo='" & Me.txtSexo & "', Nome='" & Me.txtNome & "', Sobrenome='" & Me.txtSobrenome & "', dtNascimento='" & Me.txtNascimento & "' WHERE Código = " & Me!txtCódigo & ";"
MsgBox "Registro alterado com sucesso.", vbOKOnly + vbInformation, "Concluído"
Set rs = Nothing
Set db = Nothing
ws.Close

Para INSERT e DELETE é a mesma coisa, só altera a sintaxe após INSERT ou DELETE para a sintaxe certa de cada um.

o que eu li...
o que me diz disso?


Para consulta de dados não use:
Rss.Open "Minha SQL", MinhaConn, Opcao1, Opcao2

Use:
Set Rss = MinhaConn.Execute("Minha SQL")

Para adicionar dados no banco não use:
Rss.AddNew
Rss.Fields("Campo") = "Valor"
Rss.Update

Use:
MinhaConn.Execute "Insert Into TABELA (Campo1, Campo2) Values ('Valor 1',
'Valor 2')"

É isso mesmo que eu passei, feito por DAO. Eu gosto de usar dessa maneira sem problemas, mas tambem não vejo problemas em ser assim:

Dim db As DAO.Database, ws As DAO.Workspace, rs As DAO.Recordset, rs2 As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Backend.accdb", False, False, "MS Access;PWD=senha")
Set rs = db.OpenRecordset("tblClientes", dbOpenDynaset)
Set rs2 = db.OpenRecordset("SELECT Max(Código) FROM tblClientes", dbOpenDynaset)
rs.AddNew

If IsNull(rs2(0)) Then
rs("Código") = 1
Else
rs("Código") = rs2(0).Value + 1
End If

rs("Nome") = Me.txtNome
rs("Sobrenome") = Me.txtSobrenome
rs("dtNascimento") = Me.txtNascimento
rs("Sexo") = Me.txtSexo
rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing

MsgBox "Dados gravados com sucesso" & vbCrLf & rs2(0).Value, vbOKOnly + vbInformation, ""

Uso as duas formas tranquilamente.

O codigo que tenho para fazer isso aqui e o seguinte.. veja e me diz quel acha melhor..

rsVisitantes.AddNew
' Colocando valores dos controles do form nos campos de rsVisitantes

'Me.txtVisitante = rsVisitantes("Visitante")
rsVisitantes("Visitante") = Me.txtVisitante
' Atualizando a tabela
rsVisitantes.Update
MsgBox "Registro incluído com sucesso!", vbInformation, strTítulo
' Limpa formulário para nova inclusão
LimpaForm
' Recarrega combo CNPJ já com novo registro
DescarregaCombo
CarregaCombo
' Envia o foco para a como Tipo de Pessoa.
Me.txtVisitante.SetFocus

É exatamente o último modelo que eu postei. Só alterou o nome da variável rs para rsVisitante.

Em realidade amigao.. eu ja estou conseguindo inserir..
isto esta perfeito..

So estou com problema na hora de consulta..
que foi justamente o que falei sobre a consulta..
tentei fazer uma reconsulta em cima da consulta e deu o mesmo erro apenas para campos de uma das tabelas...

Ai pensei.. como fazer isso no sql que da origem a essa pesquisa.. nao usando a consulta e sim as duas tabelas distintamente relacionadas...

Compreendeu?
Tentarei te enviar o modelo

Topico relacionado com este:

http://maximoaccess.forumeiros.com/t2778-resolvidoerro-3265-iten-nao-econtrado-nesta-colecao

Se rosolvento no tópico acima

Saudações