CONEXAO COLOCAR EM VARIAVEL

GUTOTEC 19/10/2011 12:03:24
#387062
Pessoal, se eu preencher a senha diretamenta funciona,

Citação:

conexao.Open [Ô]DSN=BANCO;[Ô] & _
[Ô]UID=usuariodabase;[Ô] & _
[Ô]PWD=senhadabase;[Ô]



porem preciso pegar de um textbox, fiz como abaixo só que da falha de conexao ...


Dim user As String
Dim senha As String

user = txtUserID.Text
senha = txtPassword.Text

conexao.Open [Ô]DSN=BANCO;[Ô] & _
[Ô]UID=[ô][Ô] & user & [Ô][ô];[Ô] & _
[Ô]PWD=[ô][Ô] & senha & [Ô][ô];[Ô]
PHOENIX209E 19/10/2011 12:06:35
#387063
Assim:

conexao.Open [Ô]DSN=BANCO;[Ô] & _
[Ô]UID=[ô][Ô] & txtIserID.Text & [Ô][ô];[Ô] & _
[Ô]PWD=[ô][Ô] & txtPassword.Text & [Ô][ô];[Ô]
MARCELO.TREZE 19/10/2011 12:39:43
#387066 Resposta escolhida
a forma que o colega PHOENIX colocou é a certa, porém ainda tem um erro simples

vc colocou apostrofo, ou aspas simples e não deve fazer isso

veja forma errada

conexao.Open [Ô]DSN=BANCO;[Ô] & _
                 [Ô]UID=[txt-color=#e80000] [ô] [/txt-color][Ô] & txtIserID.Text & [Ô][txt-color=#e80000] [ô] [/txt-color];[Ô] & _
                 [Ô]PWD=[txt-color=#e80000] [ô] [/txt-color][Ô] & txtPassword.Text & [Ô][txt-color=#e80000] [ô] [/txt-color];[Ô]


e a forma correta

conexao.Open [Ô]DSN=BANCO;[Ô] & _
                 [Ô]UID=[Ô] & txtIserID.Text & [Ô];[Ô] & _
                 [Ô]PWD=[Ô] & txtPassword.Text & [Ô];[Ô]


a regra de apostrofo só serve para as querys
GUTOTEC 19/10/2011 14:16:34
#387075
Ok .......... Galera Deu Certo ..........
Mias agora como referenciar os TXT login e senha do form ...... dentro do modulo
O form chama FrmLogin


Public Function conectar() As Boolean

On Error GoTo erro
Set conexao = New ADODB.Connection

conexao.Open [Ô]DSN=BANCO;[Ô] & _
[Ô]UID=[ô][Ô] & txtIserID.Text & [Ô][ô];[Ô] & _
[Ô]PWD=[ô][Ô] & txtPassword.Text & [Ô][ô];[Ô]
conectar = True
Exit Function
erro:
conectar = False
End Function
MARCELO.TREZE 19/10/2011 14:33:25
#387077
é um pouco dificil entender suas necessidades, vc tem uma certa dificuldade em explicar mas vou tentar
vc pode criar no módulo duas variaveis globais e usar as mesmas

ex:

no módulo

Global Usuario As String
Global Senha As String

ai no form aquele bla bla bla

Usuario = txtIserID.Text
Senha = txtPassword.Text

na conexão


Public Function conectar() As Boolean

On Error GoTo erro
Set conexao = New ADODB.Connection

conexao.Open [Ô]DSN=BANCO;[Ô] & _
                 [Ô]UID=[Ô] & Usuario & [Ô];[Ô] & _
                 [Ô]PWD=[Ô] & Senha & [Ô];[Ô]
conectar = True
Exit Function
erro:
    conectar = False
End Function
GUTOTEC 20/10/2011 00:21:56
#387139
Treze seus comandos funcionaram na boa ...... eu colocando tudo dobrado sofri pra funcionar... ai limpei tudo e somente global pra tudo funcionar

Olha como ficou até por enquanto .... esse codigo ainda farei alteracoes
Queria ativar a empresa , agora ja esta ativando

Obrigado abraços Resolvido


Citação:

Private Sub txtPassword_LostFocus()

Usuario = txtUserID.Text
Senha = txtPassword.Text

conectar

Dim Rst As ADODB.Recordset
Set Rst = New ADODB.Recordset

Dim sSelect As String
sSelect = [Ô]EXECUTE SP_CADEMPR_SELECT[Ô]

Rst.Open sSelect, conexao, adOpenForwardOnly, adLockReadOnly
CmbEmpresa.AddItem 0 & [Ô] | [Ô] & [Ô]Consolidadadora[Ô] & [Ô][Ô]

While Not Rst.EOF
CmbEmpresa.AddItem Rst!Empr_cod & [Ô] | [Ô] & Rst!Empr_Nom & [Ô][Ô]
CmbEmpresa.ItemData(CmbEmpresa.NewIndex) = Rst!Empr_cod
Rst.MoveNext
Wend
Desconectar

End Sub




Citação:

Option Explicit
Public Rst As New ADODB.Recordset
Public Rst2 As New ADODB.Recordset
Public conexao As New ADODB.Connection
Global Empresa As Integer
Global Usuario As String
Global Senha As String

Public Function conectar() As Boolean

On Error GoTo erro
Set conexao = New ADODB.Connection

conexao.Open [Ô]DSN=BANCO;[Ô] & _
[Ô]UID=[Ô] & Usuario & [Ô];[Ô] & _
[Ô]PWD=[Ô] & Senha & [Ô];[Ô]
conectar = True
Exit Function
erro:
conectar = False
End Function

Public Sub Desconectar()
On Error Resume Next
Rst.Close
conexao.Close
Set Rst = Nothing
Set conexao = Nothing
End Sub



Citação:


Private Sub cmdConnect_Click()
Empresa = CmbEmpresa.ItemData(CmbEmpresa.ListIndex)
Unload Me
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar