Decio

É que eu já tive um pequeno problema que quando eu teclava o caps Lock, o teclado não voltava ao normal.Dai eu usava este código para poder escrever em minúscula.

Qual é a dúvida?? Se for na parte de criar o banco de dados, dá uma olhada neste tópico.Agora se o problema já começou na parte de comunicação serial... boa sorte.

Tenta ao invés de usar Input para ler, usar o LineInput: Line Input #n, sValor(x)

Desculpa me meter no tópico, mas isso que você esta falando é relaciomento de tabelas e o o que o - ozzy - esta perguntando é a vantagem de se relacionar tabelas, tipo você pega o Access e faz o relacionamento das tabelas manualmente. É apenas um comentário meu, pois eu também não qual a grande vantagem de se usar tabelas relacionadas. Uma caracteristica , é que você não pode remover uma informação de uma tabela sem remover o que esta relacionado em outras tabelas, senão dá erro.O que não ocorre se você não fizer o relacionamento.Neste caso , você vai ficar com lixo no banco de dados.

Salve o código abaixo como qualquercoisa.vbs e rode.Talves seu teclado volte ao normal. set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{NUMLOCK}"

Tente assim: Public i As Integer Dim vetor1(2) As Double Private Sub CommandButton1_Click() For i = 0 To 2 vetor1(i) = Cdbl(TextBox1.Text) Next i End Sub

Apenas um chute: Dimensione as suas váriaveis assim: Dim n1 as double Dim n2 as double Dim qtd as double etc.... pois da forma como você está fazendo n1,n2,qtd e i , na verdade são variantes e não double.Como o programa inclui calculos, isso pode afetar o resultado final.

da uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php...=0entry161580 A sugestão é você mesmo fazer seu inputBox ou msgbox ou qualquer outro "box" Abraços,

..

O que você poderia fazer é acertar a data\hora de cada estação de trabalho com a do servidor. isso pode ser feito atravéz de scripts de logon ou usando o comando 'net' : X = Shell("net time \\NomeServidor /set /yes", vbHide)

Da uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php...=0entry160945 e tente chamar a função desta forma: Private Const EWX_SHUTDOWN As Long = 1 Private Const EWX_REBOOT As Long = 2 Private Const EWX_FORCE As Long = 4 Private Const EWX_FORCEIFHUNG As Long = 16 Private Const EWX_POWEROFF As Long = 8 'SHUTDOWN ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCEIFHUNG), &HFFFF 'Reboot ExitWindowsEx (EWX_REBOOT Or EWX_FORCEIFHUNG), &HFFFF 'Power off ExitWindowsEx (EWX_POWEROFF Or EWX_FORCEIFHUNG), &HFFFF

Da uma olhada neste tutorial : http://www.macoratti.net/vb_tree2.htm Eu acho que resolve seu problema. O TreeView é um componente do VB que tem estes recursos que você precisa. No site do Macoratti tem as fotos do componente.Da uma olhada.

Veja se este tutorial pode te ajudar: http://www.macoratti.net/ole.htm

Com listbox nunca ouvi dizer que é possível. Para o seu caso , acho que você deve usar o TreeView, que aceita alterar tipo e cor de fonte individualmente.

Qual o seu sistema operacional?? Eu testei no Win2000 e funcionou.

Da uma olhada neste exemplo, e veja se resolve... http://geocities.yahoo.com.br/deciohp/dowl...htm/Capture.zip

É possível sim. você pode usar a propriedade STATE para saber o estado: If Rs.State = 1 Then MsgBox "aberto"

Realmente , igual ao ASP não da.Uma váriavel Global não resolve?

Tenta esse código: Private Sub Form_Resize() If Me.Height < 7320 Then Me.Height = 7320 If Me.Width < 9720 Then Me.Width = 9720 End Sub O formulario deve estar com esta propriedade : StartUpPosition = 2

Acho que não posso te ajudar : Da uma olhada neste link: http://support.microsoft.com/default.aspx?...&NoWebContent=1 É um tutorial (em inglês) que explica como usar o Spreadsheet , que é um componente que tem um Visual igual ao do Excel. Não sei se te ajuda , mas da uma olhada.

Tenta rodar o debug passo a passo que fica mais fácil saber qual objeto não existe. Se quizer , você pode enviar este código por email que eu dou uma olhada.

Da uma olhada neste código: Dim oConn As ADODB.Connection Dim oCmd As ADODB.Command Dim oRS As ADODB.Recordset Private Sub Command1_Click() ' abre uma conexao com a planilha excel Set oConn = New ADODB.Connection oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\planilha.xls;" & _ "Extended Properties=""Excel 8.0;HDR=Yes;"";" ' cria o objecto command e define a conexao ativa Set oCmd = New ADODB.Command oCmd.ActiveConnection = oConn ' abre a planilha oCmd.CommandText = "SELECT * from [Itens$]" ' cria o recordset com os dados Set oRS = New ADODB.Recordset oRS.Open oCmd, , adOpenKeyset, adLockOptimistic 'exibe os dados Text1.Text = oRS(2) Text2.Text = oRS(3) Text3.Text = oRS(5) 'MsgBox xlw.Application.Cells(2, 3).Value oRS.Close Set oRS = Nothing End Sub End Sub

Session igual a do ASP??

Bom, também não sei nada de C , mas seguindo uma dica do próprio Graymalkin em outra resposta , cheguei neste site: http://www.qinysoft.com/articles/vcado.htm É um tutorial que explica conexão via ADO. Boa sorte.

Olá, achei este artigo usando o componente TextToSpeech: http://www.bufaloinfo.com.br/Artigos/Artigo1303.asp Veja se ajuda em alguma coisa.