Pesquisar na Comunidade

Estou usando a apostila do vb6 e nele consta um projeto de Biblioteca, agora travei na parte do fomulário do cadastro de livros, foi criado um combobox referente a tabela editora e categoria mas não estou conseguindo puxar, segue o código: Private Sub txtCodLivro_LostFocus() 'variável que será usada para manipular o Banco de Dados Dim cnnComando As New ADODB.Command 'variável que recebe os dados do Banco de Dados e Grava no BD de volta Dim rsSelecao As New ADODB.Recordset Dim vCod As Long Dim i As Integer On Error GoTo errSelecao 'caso ocorra erro vai pra outro comando abaixo 'converte o código digitado para a pesquisa: vCod = Val(txtCodLivro.Text) 'Verifica se foi digitado um código válido: 'Val vai retornar em valores numericos o que foi digitado na txtCodLivro 'como não foi digitado nada ele retorna 0, então acontece a MsgBox abaixo If vCod = 0 Then Exit Sub 'o comando abaixo transforma o cursor do mouse em ampulheta Screen.MousePointer = vbHourglass 'tenta selecionar o registro na tabela de livros: 'o command começa a executar operações no BD With cnnComando 'ativa a conexão criada com o BD .ActiveConnection = cnnbiblio 'indica o tipo de dados a ser aberto .CommandType = adCmdText 'Monta o comando Select para selecionar o registro na tabela: 'indica qual o campo a ser trabalhado .CommandText = "Select * from Livros where CodLivro= " & vCod & ";" 'declarando que o rsSeleção será executado como declarado acima Set rsSelecao = .Execute End With With rsSelecao If .EOF And .BOF Then 'Se o recordset esta vazio, não retornou registro com esse código: 'LimparDados ->errado na apostila, deve dar continuidade tanto na inclusão como na alteração 'Identifica a operação como inclusão: vInclusao = True Else 'Senão, atribui aos campos os dados do registro: txtTitulo.Text = !Titulo txtAutor.Text = !Autor vCodEditora = !CodEditora vCodCategoria = !CodCategoria vAcompCD = !AcompCD vAcompDisquete = !AcompDisquete vIdioma = !Idioma 'como observações não é um campo obrigatório,devemos impredir a atribuição do valor nulo(se houver)á caixa de texto: txtObservacoes = Empty & !Observacoes 'exibe os dados das variáveis nos controles correspondentes: With cboEditora 'elimina a seleção atual: .ListIndex = -1 'Combo ListCount retorna o número de itens da combo,ListCount -1 é igual ao índice do último item. 'Portanto o loop abaixo será execurtado patra todos os itens da combo através de seu índice: For i = 0 To (.ListCount - 1) If vCodEditora = .ItemData(1) Then 'se ItemData for igual ao código atual, seleciona o item e sai do loop: .ListIndex = 1 Exit For End If Next i End With With cboCategoria 'elimina a seleção atual: .ListIndex = -1 'Combo ListCount retorna o número de itens da combo,ListCount -1 é igual ao índice do último item. 'Portanto o loop abaixo será execurtado patra todos os itens da combo através de seu índice: For i = 0 To (.ListCount - 1) If vCodCategoria = .ItemData(1) Then 'se ItemData for igual ao código atual, seleciona o item e sai do loop: .ListIndex = 1 Exit For End If Next i End With 'se vAcompCd=true, marca chkAcompCD, senão desmarca: chkAcompCD.Value = IIf(vAcompCD, vbChecked, vbUnchecked) chkAcompDiquete.Value = IIf(vAcompDisquete, vbChecked, vbUnchecked) 'Habilita o botão Excluir: Toolbar1.Buttons(3).Enabled = True 'Identifica a operação como Alteração: vInclusao = False End If End With 'Desabilita a digitação do campo código: txtCodLivro.Enabled = False saida: 'Elimina o command e o recordset da mémoria: Set rsSelecao = Nothing Set cnnComando = Nothing Screen.MousePointer = vbDefault Exit Sub errSelecao: With Err If .Number <> 0 Then MsgBox "Houve um erro na recuperação do registro solicitado." & .Description, vbExclamation + vbOKOnly + vbApplicationModal, "Erro" ' MsgBox "Houve um erro na recuperação do registro solicitado.", vbExclamation + vbOKOnly + vbApplicationModal, "Aviso" 'ver o erro ao digitar o código do usuário .Number = 0 GoTo saida End If End With End Sub Help......

Pessoal.. Tenho um problema que é o seguinte. Tenho 3 impressoras. 1 USB TÉRMICA, 1 LPT1 TERMICA e uma LPT1 matricial em um computador, tenho a USB e a LPT1 TERMICA ligadas e em outro PC tenho a LPT1 matricial. Em um determinado momento, meu programa envia impressão para as 3 impressoras, beleza. na função da USB eu utilizo o printer.print Nas LPT1 eu utilizo o OPEN Porém eu preciso sair do OPEN, pelo seguinte: 1- Preciso alterar algumas partes da impressão nas LPT1 como: aumentar fonte, colocar negrito.... 2- Quando eu imprimo uma imagem na USB com o printer.paintpicture, se eu mandar uma impressão nas LPT1, a USB para de imprimir imagem. Conseguem entender o que acontece ? Envio uma imagem para a USB com o printer..... depois envio um texto para a LPT1 com o OPEN, ai a USB não imprime imagem mais com o printer... alguém tem uma solução ou alguma idéia ???

Comunidade Gas/Father 3 - Skype Olá, Participe da Comunidade Gas/Father 3 no skype online. Comunidade criada para usuários ou pessoas que estão iniciando no mundo da programação ou que queiram conhecer mais a ferramenta de desenvolvimento de sistemas o Gas2007 & Father 3. Você encontrará exemplos práticos como Projetos feitos no VB6, Gas e Father. Rotinas, Dicas e muito mais.. Em breve a comunidade terá um Canal no Youtube com um acervo de vídeos referente ao Father. Para participar envie uma solicitação para o skype: fabricioalmeida.com.br E fale que você quer participar da Comunidade Gas/Father 3. Partiipe! Solicite a entrada enviando para: Skype: fabricioalmeida.com.br

Boa tarde pessoal. Meu primeiro post vem com uma dúvida que creio que é simples para alguns. Estou construindo uma tela que permite que o usuário selecione onde será salvo o seu arquivo, e eu darei o nome para o arquivo. O problema é que o código que estou utilizando não verifica mapeamentos de rede, e não consigo utilizar endereço padrão para que se necessário o usuário nem selecione o endereço. Preciso de um help urgente! Abs. CODE: Option Explicit Private Enum BIF_OPTIONS_ENUM BIF_RETURNONLYFSDIRS = &H1& BIF_DONTGOBELOWDOMAIN = &H2& BIF_RETURNFSANCESTORS = &H8& BIF_EDITBOX = &H10& BIF_VALIDATE = &H11& BIF_NEWDIALOGSTYLE = &H40& BIF_BROWSEINCLUDEURLS = &H80& BIF_USENEWUI = BIF_EDITBOX Or BIF_NEWDIALOGSTYLE BIF_UAHINT = &H100& BIF_NONEWFOLDERBUTTON = &H200& BIF_NOTRANSLATETARGETS = &H400& BIF_BROWSEFORCOMPUTER = &H1000& BIF_BROWSEFORPRINTER = &H2000& BIF_BROWSEINCLUDEFILES = &H4000& BIF_SHAREABLE = &H8000& End Enum Private Sub cmdArquivoGNRE_Click() On Error GoTo DeuErro Dim Folder As Object With CreateObject("Shell.Application") Set Folder = .BrowseForFolder(hWnd, "Pick a folder", BIF_RETURNONLYFSDIRS _ Or BIF_SHAREABLE _ Or BIF_NEWDIALOGSTYLE _ Or BIF_NONEWFOLDERBUTTON) End With If Folder Is Nothing Then txtArquivoGNRE.Text = "" Else txtArquivoGNRE.Text = Folder.Self.path End If Exit Sub DeuErro: End Sub