abrir access accdb - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: abrir access accdb

assistency

NOVA FATIMA PR
PR - BRASIL

ENUNCIADA !

Postada em 09/03/2014 20:51 hs

Pessoal nao consigo abrir o banco de dados que criei no access 2010

Dim db As Database
Dim query As String
Dim dyn As Recordset

Set db = OpenDatabase("c:TempBase.accdb", False, False, ";PWD=senha")
query = "Select * From Cadastro where nome = '" & NOME & "'"
Set dyn = db.OpenRecordset(query, dbOpenDynaset)

If dyn.EOF Then
dyn.AddNew
dyn("NOME") = NOME
dyn("ENDERECO") = ENDERECO

dyn.Update
MsgBox "Inclusão Realizada com (SUCESSO).!", vbInformation, NOME
Else
MsgBox "Está inclusão já foi registrada [Verifique].", vbExclamation, NOME

Exit Sub
End If
db.Close

Omar

MONTES CLAROS
MG - BRASIL

Postada em 10/03/2014 08:02 hs

http://www.connectionstrings.com/access/

'Variáveis de acesso aos dados

Dim con As ADODB.Connection, rs As ADODB.Recordset

'Iniciando os objetos de acesso aos dados
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

'Provedor de acesso ao banco de dados Access

con.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & App.Path & "SeuBanco.accdb"
'con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "SeuBanco.accdb;Persist Security Info=False"

'Abrindo uma tabela do banco vbteste.accdb
rs.Open "SELECT * FROM Venda", con, adOpenKeyset, adLockReadOnly

'Exibindo a quantidade de registros da tabela selecionada
MsgBox rs.Fields(0)

'Fechando a tabela juntamento com a aconexão com o banco de dados
rs.Close
con.Close

Set rs = Nothing
Set con = Nothing

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site