Deborah

Alguém poderia me dizer como resolver o final do problema abaixo? Seguinte: criar um software que receba conexões em uma determinada porta e nessas conexões sejam trafegadas pacotes de textos com os seguintes blocos: | id-Servidor | id-usuarioDe | id-usuarioPara | texto | tipo, inicialmente fazemos uma aplicação em vb como cliente mesmo. para conectar ao "servidor" e transmitir e receber mensagens Eis aí o problema: * o servidor só vai fazer o seguinte ( ) "pegar a mensagem identificar o id de onde, para onde, e verificar se esse user está online e encaminhar para o destinatário." Agradeço quem puder me dar um help.

Alguém saberia como colocar o setup de um programa em VB num site da WEB, a fim de que qualquer usuário consiga fazer o download do mesmo para a máquina?

Como faço para ter acesso a rede via XWindows pelo Linux? Grata, Déborah.

Olá Guto! Queria salvá-lo em disquete... mas não sei como fazer. Sei salvá-lo no diretório principal. Quase consegui. Tem alguma idéia?

Olá pessoal... Tenho um sistema que imprime um relatório do Crystal Report e "chama" campos de uma tabela SQL para este mesmo relatório. Até aí tudo certo. Porém, como faço para salvar o documento(relatório) em um disquete usando a tela do meu sistema? Teria alguma função que fizesse isso no form do Crystal? Ou incluir um botão seria a solução? Já grata, Déborah.

Olá... você poderia usar o método "Find" ou o comando "Seek". Dá uma olhada no tutorial abaixo: http://www.macoratti.net/ado_seek.htm Boa sorte!

Olá Garcia... O erro 3001 significa argumento inválido. Talvez você precise fazer uma atualização no seu código. Você pode "chamar" a sua UDL do VB. Assim: conexao.Open = "FileName = nome_da_sua_UDL.udl;" Desse modo ele vai abrir a conexão. Espero que ajude.

O que precisar tamos ai, com certeza... Boa sorte!

Marcelo... se você ficar com dúvida, tem um tuto que pode te ajudar melhor: http://www.macoratti.net/vbmysql3.htm Vai lá....

Olá Marcelo... Sua conexão está correta, mas você precisa visualizar os campos da sua tabela com um recordset. Para isto, basta declará-lo logo abaixo da conexão(abaixo de Set conn = New ADODB.Connection). Assim: dim nomequalquer as Recordset em seguida abrir a tabela(abaixo de conn.open): nomequalquer = "select * from nome_da_sua_tabela", conn, adopendynamic, adlockoptimistic Para as funções de Consultar, Incluir, Alterar e Excluir, basta igualar o campo em que você esta exibindo os dados com o recordset que voce criou. Por exemplo: 'Consultar: nome_do_recordset.movefirst textnome = nome_do_modulo.nome_da_conexao.nome_do_recordset!nome_da_coluna 'Salvar: nome_do_recordset.addnew nome_do_modulo.nome_da_conexao.nome_do_recordset!nome_da_coluna = textnome nome_do_recordset.update nome_do_recordset.updatebatch 'Alterar: nome_do_modulo.nome_da_conexao.nome_do_recordset!nome_da_coluna = textnome nome_do_recordset.update nome_do_recordset.updatebatch 'Excluir: nome_do_recordset.delete nome_do_modulo.nome_da_conexao.nome_do_recordset!nome_da_coluna = textnome nome_do_recordset.update nome_do_recordset.updatebatch E assim você vai fazendo para todas as caixas de texto onde estão sendo exibidos os dados da tabela. IMPORTANTE: para gravar dados na tabela, sempre igualar o recordset a caixa de texto. Para visualizar dados da tabela na caixa de texto, sempre igualar a caixa de texto ao recordset. Espero que ajude.

O "now" até deu certo. Mas gostaria de usar somente a data, sem ter de armazenar a hora para o banco de dados. Tem como fazer isso?

Olá... Tenho um sistema que armazena dados em um banco SQL Server 2000 através de campos de um formulário em Visual Basic. Um desses campos é a data atual do sistema. Como faço pra salvar a data atual do sistema no campo da tabela no SQL? E como faco para visualizá-la numa caixa de texto? Meu código: recordset.addnew recordset = caixa_de_texto_onde_quero_visualizar_a_data_atual recordset.update recordset.updatebatch Já grata, Déborah.

Valeu pela dica Décio... vou tentar...

Olá Decio! O código do formulário separado se encontra abaixo com a área de erro demarcada: Option Explicit 'Este Running vai verificar se a aplicação está ou não em execução: Dim Running As Boolean Private Sub CMDCancel_Click() 'Para cancelar a impressão e fechar o formulário com a listagem dos nomes que foram selecionados em form activate: If Running Then Running = False Else Unload Me End If End Sub Private Sub CMDOK_Click() 'Para salvar os registros de uma tabela para outra Running = True Screen.MousePointer = 13 lstRelatorio.Enabled = False CMDOK.Enabled = False pg.Max = lstRelatorio.ListCount - 1 pg.Value = 0 pg.Visible = True DoEvents Dim I As Long, ID As Long With ModMut.infmut.data .con.Execute "delete from tbPrint" .rsRel.Requery For I = 0 To lstRelatorio.ListCount - 1 If lstRelatorio.Selected(I) Then .rsRel.Find "Registro = " & lstRelatorio.ItemData(I), , , 1 'Salvar na outra tabela .rsRel.AddNew 'Após o sistema ter lido o evento o evento "Private Sub Form_Activate()", ELE ALEGA ERRO NA LINHA ABAIXO (ler a mensagem no final do código): .rsRel!nomemut = .rsMut!nomemut .rsRel!cpfmut = .rsMut!cpfmut .rsRel.Update .rsRel.UpdateBatch End If pg.Value = I DoEvents If Not Running Then GoTo AbortProcess Next End With Unload Me Dim x As New frmRelatorio Load x x.Show Screen.MousePointer = 0 Exit Sub AbortProcess: lstRelatorio.Enabled = True CMDOK.Enabled = True pg.Visible = False pg.Value = 0 With ModMut.infmut.data .con.Execute "delete from tbPrint" .rsRel.Requery .rsRel.MoveFirst End With Screen.MousePointer = 0 End Sub Private Sub Form_Activate() DoEvents With ModMut.infmut.data Screen.MousePointer = 11 .rsRel.Filter = "" .rsMut.MoveFirst pg.Visible = True pg.Max = .rsMut.RecordCount pg.Value = 0 While Not .rsMut.EOF If Not (IsNull(.rsMut!nomemut) Or IsNull(.rsMut!cpfmut)) Then lstRelatorio.AddItem .rsMut!nomemut lstRelatorio.ItemData(lstRelatorio.ListCount - 1) = .rsMut!registro End If .rsMut.MoveNext pg.Value = pg.Value + 1 Wend Screen.MousePointer = 0 pg.Visible = False End With End Sub Quando o sistema lê a linha demarcada ele notifica a seguinte mensagem: "Run-time error '3021': BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual." Agradeço se puder me ajudar.... Abraços, Déborah

Olá Alex... você pode utilizar vetores para localizar mais de um dado a ser inserido declarando uma variável como inteiro. Para calcular o somatório basta fazer no form2: txtdoform2 & " + " & sua_variavel & " = " & soma espero q ajude... Déborah

Olá... você pode fazer um filtro no form2, que vai localizar a variável no form1. nomequalquer = form1.sua_variavel form2.filter = "txtdoform2 = ' " & nomequalquer & " ' " form2.filter = "" Mais ou menos isso. Qualquer dúvida posta. Abraços, Déborah.

Olá Luiz Humberto... Sua dúvida é bem simples. Neste caso você vai ter que criar uma variável do tipo inteira e igualá-la ao seu msgbox. Aí, utilizando essa variável inteira, você verifica se ela é igual a vbYes ou vbNo. Assim: dim n as integer n = msgbox("Sair?", vbOkCancel, "Titulo") if n = vbOk then unload me else exit sub end if Boa sorte! Déborah.

Olá... Tenho um sistema que faz cadastro de clientes e imprime contratos em Crystal Report. Criei um código para imprimir contratos de vários clientes ao mesmo tempo selecionando os nomes destes numa ListBox de um form separado. Ao selecionar os nomes e clicar em Ok, a idéia é igualar dados de duas tabelas(uma que vai armazenar o nome selecionado para a impressão, e outra que possui todos os nomes cadastrados). O problema é que não consigo igualar estes dados. O sistema alega a seguinte mensagem: "Run-time error '3021': BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual." Agradeço se alguém puder me ajudar... Até... Déborah

Olá... Como faço para colocar uma imagem no menu principal de um sistema? Não vejo nenhum item no VB6 no qual eu possa inserir uma gravura ao lado do texto de uma barra de menu. O que eu faço? Já grata, Déborah.

Olá. Como faço para colocar uma nova imagem de minha preferência, na barra de título de um sistema? Já tentei utilizar, na janela propriedades, a propriedade icon, mas não consegui... O que faço? Já grata pelo help, Déborah.

Olá Guto! Sua dúvida é muito simples... basta criar a sua caixa de texto no formulário e, na janela propriedades, coloque-a como false. Então, digite o seguinte código: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Visible = True End Sub Basta colocar a caixa de texto visível quando clicar no seu botão. Até... Déborah.

Ramon... quando o Willian falou sobre a "bendita" página que não conseguia encontrar estava se referindo ao endereço: www.macoratti.com.br Este site tem muitas facilidades e um passo-a-passo do Package and Deploiment Wizard... Inclusive a dúvida que ele havia tirado antes era minha! Vai lá... Vlw! Déborah.

Olá... Ao fazer o backup de um sistema em VB, (usando o Package and Deployment Wizard) na parte package Folder, ele me mostra uma mensagem dizendo que alguns arquivos são necessários para realizar o backup, porém não estão sendo encontrados. Já procurei em todo o meu PC esses arquivos, porém não encontrei. O que eu faço pra solucionar esse problema? OBS:os arquivos são respectivamente: Crystal p2BBDE.DLL p2BBND.DLL p2BXBSE.DLL p2SIFMX.DLL p2SSQL.DLL p2SSYB10.DLL u25STORE.DLL u25TOTAL.DLL u2LBAR.DLL Já grata, Déborah.

Olá! Como faço para colocar uma imagem (por exemplo de Bitmap) na barra de título do Visual Basic 6? Gostaria de substituir a imagem que aparece na barra de título quando se dá load no formulário. Alguém poderia me ajudar? Já grata pela ajuda, Déborah.

Olá... Tenho um sistema em VB6 que necessita de um Setup. Então resolvi usar o "Package and Deployment Wizard". Só que no menu "Add-Ins" não tenho essa opção, e nem tenho como adicioná-la pois em "Add-In Manager" só existem três tipos para utilização. São eles: 1- "Component Services Add-In for VB 5.0/6.0" 2- "Visual Modeler Add-In" 3- "Visual Modeler Menus Add-In" Como posso adicionar o "Package and Deployment Wizard" no VB6 e fazer o Setup do sistema? Já grata pela ajuda, Déborah.