CONCEXAO ADO
Bem galera seguindo o conselho de um amigo do forúm a respeito de mudar para ADO resolvir tirar 2 dias esclusivos para estudar o ADO e tive uma decisao unanime que o ADO é muito bom, sendo assim mudei a minha conexao de DAO para ADO e funcionou muito bem, só que me vem algumas quetões banais, como eu já tinha bastante conhecimento com o DAO sobre Adicionar e editar e Atualiza registro, vir que no tenhe uma coisa diferente como faço para usar o método editar meus dados?, procurei mais não encontrei no DAO setia Recordset.Edit
E aproveitando a deixa e já que mudei para ADO venho aqui falar sobre o grid que é tão importante para min, tenho o meu banco de dados BD.mdb e minha tabela Usuario com os seguintes campos "Código","Nome" como faço através de linha de códgio do ADO para que meu grid busque esse dados?
Agradeco por todo esforco de vcs,
'segue abaixo minha conexão que está funcionadno perfeitamente
Dim conecxao As New ADODB.Connection
Dim TblUsuario As New ADODB.Recordset
Dim Alias As String
Set conecxao = CreateObject("ADODB.Connection")
Alias = get_ini("SISAD", "Caminho")
conecxao.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & Alias
E aproveitando a deixa e já que mudei para ADO venho aqui falar sobre o grid que é tão importante para min, tenho o meu banco de dados BD.mdb e minha tabela Usuario com os seguintes campos "Código","Nome" como faço através de linha de códgio do ADO para que meu grid busque esse dados?
Agradeco por todo esforco de vcs,
'segue abaixo minha conexão que está funcionadno perfeitamente
Dim conecxao As New ADODB.Connection
Dim TblUsuario As New ADODB.Recordset
Dim Alias As String
Set conecxao = CreateObject("ADODB.Connection")
Alias = get_ini("SISAD", "Caminho")
conecxao.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & Alias
Private Sub Form_Load()
'Abre o Recordse somente-leitura
TblUsuario.Open "Select * from Usuario", conecxao, adOpenForwardOnly, adLockReadOnly
TblUsuario.MoveFirst
lblEmpresa.Caption = TblUsuario.Fields.Item("Nome").Value
'Fecha o Recordset
TblUsuario.Close
end Sub
Valeu cara
Tópico encerrado , respostas não são mais permitidas