TRABALHAR COM DADOS DO BD ACCESS [DUVIDA- AJUDA]
Quando ao filtro para a sua pesquisa e não aperece nada, devido está de forma não correta.
rs.Open([Ô]Select [Ô]+textbox1.text+[Ô] from CyberETEC [Ô], cn)
rs.Open([Ô]Select * from CyberETEC where [Ô]+textbox1.text+[Ô][Ô], cn)
rs.Open([Ô]Select * from CyberETEC where Usuario= [Ô]+textbox1.text+[Ô][Ô], cn)
rs.Open([Ô]Select * from CyberETEC where Usuario like [ô][Ô]+textbox1.text+ [Ô][ô][Ô], cn)
Tome cuidado com o ACCESS pois ele diferencia aspas para pesquisas
Para número usa : [Ô] + textbox1.text +[Ô]
Para texto usa : [ô][Ô] + textbox1.text + [Ô][ô]
usei esse codigo
Citação:Module Module1
Dim strconexao As String
Public nome, user, perm, senha, templogin As String
Public Sub verificalogin1()
Dim cn As New ADODB.Connection
Dim caminho As String
cn = New ADODB.Connection
strconexao = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Persist Security Info=False;[Ô] & _
[Ô]Data Source=J:/CyberEtec.MDB;[Ô] & _
[Ô]Jet OLEDB:Database;[Ô]
cn.ConnectionString = strconexao
caminho = [Ô]Select * from CyberETEC where usuario =[ô][Ô] + nome + [Ô][ô][Ô]
cn.Open()
Dim rs As New ADODB.Recordset
rs = New ADODB.Recordset
rs.Open(caminho, cn)
user = rs([Ô]usuario[Ô]).Value
perm = rs([Ô]Permissão[Ô]).Value
senha = rs([Ô]Senha[Ô]).Value
rs.Close()
cn.Close()
End Sub
End Module
funciona do jeito que eu esperava, vlw novamente pela ajuda de todos