Vraptor

Boa noite pessoal. Sou iniciante em VB e comecei a fazer testes com SQL via VB. infelizmente já me deparei com um pequeno problema. As linhas a seguir seguem a risca o que manda o livro que estou estudando. Option Explicit Public oCo As ADODB.Connection Public sErro As String Private Sub Form_Load() On Error GoTo ErroCmd Set oCo = New ADODB.Connection oCo.Open ("Provider=SQLOLEDB.1;Persist Security Info=False;UserID=sa;Initial Catalog=Editora;Data Source=CASA-KID4WCC") MsgBox "Conexao efetuada com sucesso!" Exit Sub ErroCmd: MontarDescricaoDoErro MsgBox sErro End End Sub Public Sub MontarDescricaoDoErro() Dim oErro As ADODB.Error sErro = "Erro: " + CStr(Err.Number) For Each oErro In oCo.Errors sErro = sErro + oErro.Description Next End Sub O livro diz que seria exibida a MsgBox"Conexao efetuada com sucesso!" só que infelizmente acontece o inverso: "Erro:-2147467259 atributo de sequencia de caracteres de conexao invalidoEspecificaçao de autorizaçao invalida" Por favor, alguém poderia dar uma dica ?? Sem mais, Daniel

Valeu !!!

Estou com um problema tipico de iniciante: Segue: Dentro do Form1: Public dados as String ' Modulo general dados="não exibe" Form2.show Dentro do Form2: CXdados.Text=dados não aparece nada na caixa de texto "CXdados" Vou debugando o programa e a varial "dados" realmente possui o valor "não exibe" apos chamar o form2 ela apresenta um valor nulo "" alguém poderia me dar uma dica ?? Abraços ..Daniel..

Boa tarde pessoal: alguém poderia me dizer qual é o tamanho maximo de arquivo suportado pelo VB. Como sou iniciante estou tendo alguns peoblemas com gravaçao em arquivos. Vejam bem quando o arquivo chega a atingir o tamanho de 2GB surge a menssagem na tela DISk FULL e tenho livre mais ou menos 40 GB. Estou utilizando as instruçoes tradicionais open e write. alguém poderia me dar uma dica? Abraços...Daniel

Bom dia pessoal.. segue um pedaço do codigo desvio=Val(condicao$,1) GoTo desvio 0 coluna10 = 1: GoTo PESQUISA5: '<----linha 0 1 coluna1 = 1: GoTo PESQUISA5: '<----linha 1 ..... '....... ..... '....... ..... '....... já tentei concatenar":" ao final da varialvel mas ele tambem não aceita. desvio=Val(condicao$,1) GoTo Cstr(desvio)&":" 0: coluna10 = 1: GoTo PESQUISA5: '<----Rotulo ou Label 0 1: coluna1 = 1: GoTo PESQUISA5: '<----Rotulo ou Label 1 ..... '....... ..... '....... ..... '....... O problema é que o GoTo considera a variavel "desvio" como sendo um Label. Gostaria que ele fizesse um GoTo utilizando o conteudo da variavel "desvio" como um numero de linha ou rotulo de linha. alguém poderia me dar alguma dica ?? Sem mais agradeço pela colaboraçao de todos Daniel.....

Boa tarde pessoal. Sou iniciante em VB e estou precisando de uma pequena dica..vamos lá: Sub... Dim.... For a = 1 to 10 caixa.text=CSrt(a) next end sub Vejam bem, posso ateh ampliar o valor de for a para 10000...ele só exibe o resultado final do for e não a seguencia de valores.... Seria alguma alteração nas propriedades do controle caixa.text ou ele só exibe um valor quando finaliza a rotina ? Agradeço pela ajuda... Sem mais...Daniel...