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