Daltro

Valeu Fulvio, é isso mesmo. Eu fiz e já está funcionando. Obrigado.

Gostaria de fazer em meu aplicativo o seguinte recurso Quando "estacionar" o mouse sobre determinado Label ou Text aparecer um lembrete assim como aqui no forum nas opções de negrito, itálico e outros... Alguém tem idéia de como fazer isso ??? SDS Daltro

Olá Marco, Segue via e-mail pelo seu hotmail. Desde já agradeço.

Oi... eu coloquei as aspas duplas mas quando compilo dá a seguinte mensagem : Compile error: Expected: end of statement E a palavra INSERT fica em destaque ! ???? Não ela está em branco...

Marco, a sua versão do INSERT pareceu-me igual a que eu estava usando... mas realmente a versão do UPDATE está bem diferente e agora a mensagem mudou... " Gravação concluída com sucesso " Só um detalhe : dentro do banco de dados, quando abro com o acess, não tem nada gravado !!!! Caro Kuroi, Acho que "comentar" a linha é colocar ' na frente, certo ??? Bem... se for isso eu fiz e deu a seguinte mensagem : Run-time error '-2147217900(80040e14)': Syntax error in UPDATE statement Mas depois que eu fiz a correção que o Marco sugeriu, o erro sumiu, mas não grava nada no banco de dados. Mais alguma sugestão ??

Caros, Estou desenvolvendo minha primeira aplicação VB6. Minha aplicação conversa com um CLP industrial e precisa gravar dados simples em um banco de dados de apenas 09 campos. Montei meu banco de dados com o nome SATLESS e dentro dele tem uma tabela com o nome SATELITES, nesta tabela existem os campos SATELITE, POCO0, POCO1, POCO2, POCO3, POCO4, POCO5, POCO6 e POCO7. Estou tentando gravar neste banco de dados o que eu digito em um textbox e o código ficou assim : Private Sub Command26_Click() Dim cnnComando As New ADODB.Command On Error GoTo errGravacao If Text1.Text = Empty Then MsgBox "Nome do poço está vazio !", vbExclamation + vbOKOnly + vbSystemModal, "Erro" Exit Sub End If Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnSatless .CommandType = adCmdText If vInclusao Then .CommandText = "Insert into Satelites " & "(Poco0) Values ('" & Text1.Text & "');" Else .CommandText = "UPDATE Satelites Set (Poco_00) = Text1.text" End If .Execute End With MsgBox "Gravação concluida com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Gravacao OK" Saida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit Sub errGravacao: With Err If .Number <> 0 Then MsgBox "Houve um erro durante a gravacao dos dados na tabela", vbExclamation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo Saida End If End With End Sub Quando aperto o botão o sistema dá a mensagem programada "Houve um erro durante a gravação dos dados na tabela" . Será que alguém poderia me dizer porque ??? Desde já agradeço.

Caros, Estou fazendo minha primeira aplicação em Visual Basic. Esta aplicação troca dados com um controlador industrial. Recebi uma DLL do fabricante com várias funções, dentre elas existe a função de leitura de dados que é a seguinte: SCPReadData( 1, 1, 40, 7, Vvetor) - O primeiro parâmetro "1" é o nr. do controlador na rede; - O segundo "1" é o tipo de variável que eu quero ler, no caso valor inteiro entre -32768/+32767; - O terceiro "40" é o número da variável que eu quero ler; - O quarto "7" é a quantidade de variáveis que eu quero ler a partir da variável escolhida, ou seja, da 40 até a 47; - O ultimo parâmetro "Vvetor" deve ser um ponteiro para um vetor de inteiros. (ai é que está o problema) Na minha aplicação eu declarei um vetor da seguinte forma Dim Vvetor(7) As integer ( Está certo ? ) Caso esteja certo, como eu faço para preencher este vetor com o retorno da função acima ??? Depois disso, como eu posso recuperar o valor de cada variável contida no vetor ??? Se alguém puder me ajudar... Daltro