Mudar Do Datacontrol P Ado

[AlexMunhoz]

data1.RECORDSOURCE = "SELECT * FROM SUA_TABELA WHERE USUARIO = '" & logusr & "' AND SENHA = '" & senusr & "'"

if not data1.recordset.eof then
Unload Me
Form1.Show
else
MsgBox ("Usuário Inválido!")
exit sub
endif

Eu gostaria de saber como ficaria em ADO

+ ou - rs.open = ......

if not rs.eof then

...

...

...

se for assim ta dando erra,

Abração...

[Guest Natarelli]

Alex,

Dá uma olhado no site www.macoratti.net lá tem um material legal sobre ADO.

Abs,

[AlexMunhoz]

user = txtUsuario.Text

pass = txtSenha.Text

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "'" And senha = '" & pass & " '", cn, adOpenDynamic, adLockOptimistic

o que está errado ?

Abraço...

[PiGmEu]

user = txtUsuario.Text

pass = txtSenha.Text

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "'" And senha = '" & pass & " '", cn, adOpenDynamic, adLockOptimistic

o que está errado ?

Abraço...

tente fazer o seguinte:

Tirar os acentos do nome dos campos no banco de dados;

altere:

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "'" And senha = '" & pass & " '", cn, adOpenDynamic, adLockOptimistic

PARA

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "'" And senha = '" & pass & " '", cn, adOpenKeyset

faca esse teste

[Graymalkin]

user = txtUsuario.Text

pass = txtSenha.Text

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "'" And senha = '" & pass & " '", cn, adOpenDynamic, adLockOptimistic

o que está errado ?

O cn (ADODB.Connection) foi aberto previamente?

Abraços,

Graymalkin

[AlexMunhoz]

PiGmEu

A linha esta em vermelho.

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "'" And senha = '" & pass & "'", cn, adOpenKeyset

mas se eu coloco mais um " antes do '" & pass ela volta ao normal. Mas continua dando erro....

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "'" And senha = "'" & pass & "'", cn, adOpenKeyset

Amigões,

Olhem como está todo o código

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub cmdEntrar_Click()

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Bdh.mdb"

rs.CursorLocation = adUseClient

user = txtUsuario.Text

pass = txtSenha.Text

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "'" And senha = '" & pass & "'", cn, adOpenKeyset

If Not rs.EOF Then

MDIViaDes.Show

Unload Me

Else

MsgBox "Usuário ou Senha Invalida"

End If

cn.Close

Set rs = Nothing

End Sub

[Graymalkin]

O And ali *faz* parte da SQL e não do código, por isso o certo é:

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "' And senha = '" & pass & "'", cn, adOpenKeyset

Abraços,

Graymalkin

[AlexMunhoz]

O And ali *faz* parte da SQL e não do código, por isso o certo é:

rs.Open "SELECT * FROM senha WHERE Usuário='" & user & "' And senha = '" & pass & "'", cn, adOpenKeyset

Vlwwwwwwwww Amigão....

Abração...