Postada em 01/04/2006 12:20 hs
Olá pessoal, blz?!
To com o seguinte problema, quando faço minha rotina de pesquisa sem senha no banco funciona perfeitamente, mas qnd defino uma senha pro banco somente o ADODC da erro dizendo q senha é invávila ou que eu não tenho permissão para acessá-lo...
A rotina de abrir o banco é essa:
Set DB = OpenDatabase("X:Meu banco.mdb", False, False, ";pwd=minha senha")
Até aí o sistema funciona perfeitamente com senha, mas da erro no adodc...
A rotina de carga da grid é essa:
Sub CARREGA_GRID(Formu As Form)
AXSQL = "SELECT SIGCLI AS A, USUIP AS B, PCIP AS C "
AXSQL = AXSQL + ",IPIP AS D, FIMIP AS E FROM IP "
If Len(P_VALOR) > 0 Then
If Op_SIGCLI = True Then
AXCOMPLEMENTO = "WHERE SIGCLI LIKE('%" + P_VALOR + "%') "
Else
AXCOMPLEMENTO = "WHERE USUIP LIKE('%" + P_VALOR + "%') "
End If
AXSQL = AXSQL + AXCOMPLEMENTO
End If
Formu.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=X:Meu banco.mdb;Persist Security Info=False"
Formu.Adodc1.CommandType = adCmdText
Formu.Adodc1.RecordSource = AXSQL
Formu.Adodc1.Refresh
End Sub
Quais procedimentos para definir usuário e senha nesssa rotina de pesquisa?
Valews!!!
.:Rodrigo Bedin:.
|
