CONSULTA NO ACCESS
Pessoal, preciso de uma ajudinha basica.
o que eu quero é o seguinte.
Como conectar a um banco access e fazer uma simples consulta SQL. isso tudo pelo codigo. isso eu sei que é simples, mais nao sei fazer, so peço que me ensinem.
Obrigado.
[txt-color=#0000ff]** Titulo Original ("Ajudinha Básica") alterado por KpellaJr [/txt-color]
o que eu quero é o seguinte.
Como conectar a um banco access e fazer uma simples consulta SQL. isso tudo pelo codigo. isso eu sei que é simples, mais nao sei fazer, so peço que me ensinem.
Obrigado.
[txt-color=#0000ff]** Titulo Original ("Ajudinha Básica") alterado por KpellaJr [/txt-color]
Tem tudo aqui RUINAS
ADO E ACCESS
Aqui no VBMANIA, vc não vai encontrar nada PRONTINHO... mãos a obra...
ADO E ACCESS
Aqui no VBMANIA, vc não vai encontrar nada PRONTINHO... mãos a obra...
Não era isso que eu queria
eu nao queria retornar valores para campos nem nada
so fazer a conexao, e efetuar uma consula
um exmplo fazer a consulta de um login,
seria isso.
eu nao queria retornar valores para campos nem nada
so fazer a conexao, e efetuar uma consula
um exmplo fazer a consulta de um login,
seria isso.
Ok......
lá vai
no FORM load
e para verificar depois de escolher o nome na combo coloque no botão entrar...
O Resto é só implementar..
lá vai
no FORM load
Dim cnBd As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnn As String
Dim sql As String
'Abre a conexão
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Seubanco.mdb;"
sql = "SELECT * FROM ALUNOS ORDER BY NOME"
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic, adCmdText
rst.MoveFirst
For i = 1 to rst.RecordCount - 1
combo1.additen rst![Nome]
rst.MoveNext
Next
e para verificar depois de escolher o nome na combo coloque no botão entrar...
rst.Find ("[NOME] = '" & combo1 & "'")
if senha.text = rst![SENHA] then
principal.show
else
msgbox "Senha errada"
O Resto é só implementar..
Isso mesmo, era isso o que eu queria
Tópico encerrado , respostas não são mais permitidas