USAR .INI PARA PEGAR NOME DA MAQUINA

WEBIER 11/02/2011 11:54:09
#365120
eu uso um .ini para setar meu banco de dados:
Sub Abrir_BancodeDados()
   [ô]Leio a função e preencho a variavel
   DBPath = ReadINI(App.Path & [Ô]\config.ini[Ô], [Ô]DADOS_PROGRAMA[Ô], [Ô]path[Ô])

   [ô]agora aqui eu seto
   Set BD = OpenDatabase(DBPath)
End Sub

'
esse é o código de minha .INI
[DADOS_PROGRAMA]
path = [Ô]C:\Arquivos de programas\Online Commerce\Cyberbase.mdb[Ô]

[DADOS_MAQUINA]
maquina = [Ô]CAIXA01[Ô]


Está funcionando blzinha!

Coloquei meu sistema em 02 maquinas e meu cliente que identificar as transações feitas em cada maquina... ai coloquei um combobox com os nomes [Ô]CAIXA01[Ô] e [Ô]CAIXA02[Ô] para eles ao abrir o PDV identificar cada maquina...

Tudo funcionando!

Só que meu cliente quer que isso fique fixo, ou seja, quando abrir o pdv, ele já automaticamente dever ser o CAIXA01 ou CAIXA02.... então pensei em usar o .INI...

eu acrescentei no INI esse:
[DADOS_MAQUINA]
maquina = [Ô]CAIXA01[Ô]


então como ficaria o código para no form_load do PDV ele ir no INI e pega o nome da maquina e colocar no PAINEL(2) da minha STATUSBAR ?

StatusBar1.Panels(2).Text
WEBIER 11/02/2011 12:16:42
#365126
mas como ficaria essa linha?

DBPath = ReadINI(App.Path & [Ô]\config.ini[Ô], [Ô]DADOS_PROGRAMA[Ô], [Ô]path[Ô])
Tópico encerrado , respostas não são mais permitidas
Voltar