OCULTAR FOMULARIO NO VB6

ANABON0106 03/06/2011 11:06:00
#375770
Obrigada ... em parte deu certo... porém, não importa se no banco ta sim ou não ele não abre o form ...

Mudei o codigo para o botão que chama o form, mas mesmo assim naum deu ...

Citação:

Private Sub cmdcadastro_cliente_Click()
[ô] uma query
Set RS = con.Execute([Ô]select * from login where codigo_usuario =[Ô] & frmLogin.txtcodigo.Text)
If RS!cliente = [Ô]s[Ô] Then
frmcadastro_clientes.Show
Else
MsgBox [Ô]Você não está autorizado, para está operação![Ô]
End If


Unload Me

End Sub



Aff...
ANABON0106 03/06/2011 11:24:33
#375772
Também já tentei assim:

Citação:

Private Sub cmdcadastro_cliente_Click()
Set RS = New ADODB.Recordset
Set con = New ADODB.Connection
con.Open (cnSQL)
[ô] uma query
Set RS = con.Execute([Ô]select * from login where codigo_usuario =[Ô] & frmLogin.txtcodigo.Text)
If RS!Cliente = [Ô]s[Ô] Then
Else
MsgBox [Ô]Você não está autorizado, para está operação![Ô]
End If

If RS!Cliente = [Ô]n[Ô] Then
frmcadastro_clientes.Show
End If

Unload Me

End Sub
MARCELO.TREZE 03/06/2011 11:35:52
#375775
bom vamos lá poste a estrutura da tabela que vc criou, nome dos campos e tipo.
ANABON0106 03/06/2011 11:36:05
#375776
Amigos muito, muito, muito obrigada pela ajuda!!!!!
Deus certo!!!!!

abaixo segue o codigo correto:

Citação:

Private Sub cmdcadastro_cliente_Click()
Set RS = New ADODB.Recordset
Set con = New ADODB.Connection
con.Open (cnSQL)
Dim flag As Boolean
[ô] uma query
Set RS = con.Execute([Ô]select * from login where codigo_usuario =[Ô] & frmLogin.txtcodigo.Text)
If RS!cliente Then
flag = True
End If
RS.MoveNext
[ô]Wend
If flag = True Then
Me.Hide
frmcadastro_clientes.Show
Else
MsgBox [Ô]Você não está autorizado, para está operação![Ô]
End If
End Sub
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar