USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  SUBSTITUIR APP.PATH POR NUMERO IP ?
Futura
PORTO FERREIRA
SP - BRASIL
Postada em 12/03/2005 11:13 hs            
NA CONEXÃO COM BANCO ACCESS 2002 (XP),  USO APP.PATH, TERIA COMO SUBSTITUIR PELO NUMERO DO IP DO SERVIDOR, ( REDE  INTERNA), E COLOCAR ISTO NUM ARQUIVO INI OU EM UM MÓDULO, POIS HOJE TODO FORM QUE ABRO, TENHO QUE ABRIR A CONEXÃO COM O BANCO, DESTA MANEIRA:

dim bd as database
dim tbcli as recorset

Set bd = DBEngine.Workspaces(0).OpenDatabase(App.Path & "gestor.mdb", False, False, ";PWD=" & "SENHA")

AI ABRO AS TABELAS ASSIM:

Set tbcli = bd.OpenRecordset("clientes")
tbcli.Index = "codcli"

NO CASO ACHO QUE AS TABELAS, DEVEM SER ABERTAS MESMO SÓ NO FORM, ASSIM ABRO SÓ AS QUE SERÃO USADAS, MAS O BANCO QUERIA ABRIR SÓ UMA VEZ, E FECHAR SÓ UMA VEZ TAMBÉM AO SAIR DO FORM MDI. OUTRA COISA O EXECUTÁVEL, FICAR NAS ESTAÇÕES, AGILIZA O SISTEMA ?
     
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 12/03/2005 14:43 hs            
tem sim
 
Dim mBanco as string
 
mBanco = "&&192.168.0.2&nome_do_compartilhamento&"
 
Set bd = DBEngine.Workspaces(0).OpenDatabase(mBanco & "gestor.mdb", False, False, ";PWD=" & "SENHA")
onde vc vê  o & troque pela BARRA INVERTIDA, pq no forum não tem como digitar a
barra.
 

Roberto
roberto@vbweb.com.br
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página