ACESSANDO BANCOS LOTUS NOTES
Alguem sabe como editar um banco de dados do Lotus Notes instalado localmente? (names.nsf)
Editar ?
Nossa senhora, essa necessidade eu nunca vi.
Acesso bancos de dados para envio de emails, somente.
Mas talvez podemos chegar a uma conclusao, deve haver um objeto de acesso a dados nativo...
Nossa senhora, essa necessidade eu nunca vi.
Acesso bancos de dados para envio de emails, somente.
Mas talvez podemos chegar a uma conclusao, deve haver um objeto de acesso a dados nativo...
Na verdade o objetivo é criar o perfil (localidade) do usuário automáticamente sem a necessidade de configuração inicial do correio para o usuário final. A localidade fica armazenada no arquivo names.nsf.
Bom, editar, confesso que não sei, agora para acessar um arquivo .nsf eu faço da seguinte maneira. Crio uma View no Notes contendo as informações que preciso acessar.
Crio um DSN (tem que ter o ODBC do notes instalado), e faço da seguinte maneira para acessar via VB.
Dim Conexao As Connection
Dim PessoaFisica As Recordset
'-------------
'Para conectar
'-------------
Set Conexao = New Connection
' "ODBC;DATABASE=<nome do arquivo .nsf>;UID=;PWD=;DSN=<nome do DSN>"
Conexao.Open "ODBC;DATABASE=CADASTRO.NSF;UID=;PWD=;DSN=CPFCOB"
'-------------------------
'Para acessar os registros
'-------------------------
'sql = "SELECT * FROM <nome da view criada no notes>"
sql = "SELECT * FROM ForaCobExportacaoPessoaFisica"
Set PessoaFisica = Conexao.Execute(sql)
If PessoaFisica.RecordCount <> 0 Then
Do Until PessoaFisica.EOF
msgbox("Registro: " & PessoaFisica.Fields(1)
PessoaFisica.MoveNext
Loop
End If
Obs.: acesso tipo ADO
Crio um DSN (tem que ter o ODBC do notes instalado), e faço da seguinte maneira para acessar via VB.
Dim Conexao As Connection
Dim PessoaFisica As Recordset
'-------------
'Para conectar
'-------------
Set Conexao = New Connection
' "ODBC;DATABASE=<nome do arquivo .nsf>;UID=;PWD=;DSN=<nome do DSN>"
Conexao.Open "ODBC;DATABASE=CADASTRO.NSF;UID=;PWD=;DSN=CPFCOB"
'-------------------------
'Para acessar os registros
'-------------------------
'sql = "SELECT * FROM <nome da view criada no notes>"
sql = "SELECT * FROM ForaCobExportacaoPessoaFisica"
Set PessoaFisica = Conexao.Execute(sql)
If PessoaFisica.RecordCount <> 0 Then
Do Until PessoaFisica.EOF
msgbox("Registro: " & PessoaFisica.Fields(1)
PessoaFisica.MoveNext
Loop
End If
Obs.: acesso tipo ADO
Teoricamente entao funciona para edicao/inclusao ja que eh ADO
Saberia me informar como incluir?
Tópico encerrado , respostas não são mais permitidas