terça-feira, 31 de agosto de 2010

Site para acompanhamento de novos concursos publicos

O site abaixo de cursos para concurso e fica no centro de são paulo.

Otimo ponto de referencia gratuita para concursos que ainda nem sairam. Olhar o item concursos previstos

http://www.centraldeconcursos.com.br/

quinta-feira, 26 de agosto de 2010

Referencia Rápida Para Visual Basic 6 - Adicionando registros em banco de dados access com Dao

Adiocionando registros a um banco de dados visual basic 6 com DAO.


Uma das maneira mais prática de se acessar um banco de dados access 97 local com VB6 é o sistema DAO. Abaixo segue o esquema bem prático para sua utilização.



Dim dbLanc As Dao.Database
Dim rsLanc As Dao.Recordset
Dim strSQLLanc As String


strSQLLanc = "Select * from tblLan"
Set dbLanc = OpenDatabase("C:\teste.mdb")
Set rsLanc = dbLanc.OpenRecordset(strSQLLanc)

rsLanc.AddNew
rsLanc.Fields("Texto") = txtTexto.Text
rsLanc.Update

rsLanc.Close
dbLanc.Close

Referencia Rápida Para Visual Basic 6 - MsgBox

MsgBox

Usada para exibir mensagem ou pedir informações padronizadas ao usuário

A palavra reservada MsgBox do VB6 tanto pode retornar uma valor(função) como pode ser usada apenas para exibir uma mensagem na tela (comando de execução).


Sintaxe como função:
MsgBox "Comando executado com sucesso", vbOK

Exibe uma caixa como a mensagem "Comando executado com sucesso" e o Botão OK




Sintaxe como comando:
retorno = MsgBox("Registro incluido com sucesso", vbOKCancel)
Exibe uma caixa com a Mensagem "Deseja continuar" e os Botão OK e Cancelar
a variável retorno acumula:
1 - Se clicado em OK
2 - Se clicado em Cancelar


Seal - Crazy