Ir para conteúdo
Fórum Script Brasil

Diogovb6

Membros
  • Total de itens

    20
  • Registro em

  • Última visita

Posts postados por Diogovb6

  1. Alguém tem alguma instrução SQL para

    contar todos os registros de uma tabela?

    estou precisando de saber quantos registros tem uma tabela

    em um banco access, e quero fazer isso apenas com SQL

    tipo

    Conexao.Execute "..(instrução slq que não sei ainda).."

    vlew

  2. No VB6

    'Salvar

    Dim DirFile As String

    DirFile = "C:\My File.txt"

    Open DirFile For Output As #1

    Print #1, "Meu arquivo de texto"

    Close #1

    '-------------------------------------------

    'Abrir

    Dim DirFile As String

    dim GetTexto as string

    DirFile = "C:\My File.txt"

    Open DirFile For Input As #1

    GetTexto = Input(LOF(1), #1)

    Close #1

    Já fiz assim, também é bem útil

  3. E aí Galera, quem é vivo sempre aparece (tempao que eu não pergunto nada aqui)

    Como faço para Que o Programa dê uma Mensagem de Boas VIndas

    EX:

    1 -- Abriu o Programa pela Primeira vez

    2 - - Mensagem (Form de Boas vindas)

    3 -- Nunca Mais Aparecer o Formulario de Boas Vindas

    Ou seja, eu quero que o Programa só execute essa rotina uma vez (na primeira vez que ele for aberto)

    Qualquer ajuda será bem vinda.

  4. Olá

    E ai galera, estou fazendo um banco de dados já tenho alguma experiençia em ADO, mas neste fiz uma conexao em ADO, e queria fazer uma consulta em DAO mostrando os dados em uma MSFlexGrid

    tentei algo assim:

    Dim DB As Database

    Dim RB As Recordset

    Private Sub Form_Load()

    Set DB = OpenDatabase(App.Path & "\banco1.mdb")

    end sub

    O problema é que aparece o seguinte erro

    Unrecognized DataBase Format "C:/banco.mdb"

    qual é o problema???

  5. 'Primeiro adicione os componentes

    'Project / Components.../ Microsoft Common Dialog Control

    'Project / Components.../Microsoft RichtextBox Control

    'depois coloque um Botao e um RichtextBox no formulario

    Adicione o código no Botão EX:

    Private Sub Commond1_Click()

    dim FileImage as String

    commondialog1.ShowOpen

    FIleImage = commondialog1.Filename

    Richtextbox1.OleObjects.Add , , FileImage

    End Sub

    Ajudou??? :D

  6. E aí, tudo bem há um tempo observo suas respostas no forum

    especialmente no forum de Visual Basic

    queria saber uma coisa, sou novo no forum

    voçe realmente respondeu todos aqueles Post's se não me engano tem mais de 6000?

    e outra, gosto de desenhar, percebi isso

    http://img239.imageshack.us/img239/2799/paulsimonongp6.jpg

    http://img239.imageshack.us/img239/5852/cenarioxa8.jpg

    http://img97.imageshack.us/img97/1410/minininhaax6.jpg

    http://img149.imageshack.us/img149/6614/shinjiasukati3.jpg

    esses desenhos são seus?, cara se forem tenho que te elogiar, belos desenhos

    curto muito mangá, se poder me ajudar posta aí alguns link's de mangás

    tipo pronto para imprimir modelo GIBI

    desde já Vlew

  7. Cara foi desculpa minha ignorançia, mas Não

    deu certo

    Fiz tudo que pedia, mas quando fiu executar, apareceu a mensagem

    "Falha na Inicializaçao do Aplicativo devido a configuraçao incorreta. a reinstalaçao do aplicativo deve resolver o problema"

    Por favor oque faço?

    me ajuda. :blink:

×
×
  • Criar Novo...