Como Abrir base de dados com Senha ?

Este exemplo utiliza o objeto Dao Jet. Para outros objetos consulte o Help do VB. Para abrir o banco é necessário passar a senha no parâmetro Connect. No exemplo abaixo, a senha é “web”. Dim wrk As Workspace Dim db As Database Set wrk = DBEngine.Workspace(0) Set db = wrk.OpenDatabase(“MYDB.MDB”, false, false, “;PWD=web”) O parâmetro

Continuar lendo »

Obtendo o nome longo de um arquivo através de seu nome curto

Obtendo o nome longo de um arquivo através de seu nome curto Com esta função pode se obter o nome longo de um arquivo. Seu funcionamento é simples. Através da passagem de parâmetro do nome curto de arquivo nome é retornado seu nome longo. Public Function GetLongName(ByVal psShortName As String) As String Dim liPos As

Continuar lendo »

Colocar Forms MDIChilds em cascata ou lado a lado

Colocar Forms MDIChilds em cascata ou lado a lado Para esta dica utilize um form do tipo MDI. – Para colocar as MDIChild em cascata, use: Me.Arrange vbCascade – Para colocar lado a lado horizontalmente as não minimizadas, use: Me.Arrange vbTileHorizontal – Para colocar lado a lado verticalmente as não minimizadas, use: Me.Arrange vbTileVertical –

Continuar lendo »

Efetuando Discagem no VB

Para efetuar uma discagem pelo VB,basta insirir o código: Crie um MsComm no seu Form; Depois Digite: Mscomm1.CommPort = 2 ‘(Nº da porta em que está seu FAX/MODEM) Mscomm1.PortOpen = True Mscomm1.Output = “ATDT 1234567” ‘(Discagem por Tom) MScomm1.Output = “ATDP 1234567” ‘(Discagem por Pulso)

Continuar lendo »
Pages:«1...56789101112