Vraptor

Boa tarde. Segue o codido: Dim Pesquisa as long Rotina que adiciona valores a Matriz ...... ...... ...... ...... ...... ...... ...... For Pesquisa = 1 to Ubound(Matriz()) If Matriz(Pesquisa) = 0 then go to FECHANEXT oRsDados.AddNew oRsDados("Codigo") = PESQUISA oRsDados("Quantidade") = Matriz(PESQUISA) oRsDados.Update ProgressBar1.Value = ProgressBar1.Value + 1 DoEvents FECHANEXT: NEXT Pesquisa O problema estah na demora para fechar o laço For ..Next, pois a matriz recebe uma dimenssao bem grande. Gostaria de saber se existe uma funçao interna ou comando do VB que retorne o inidice (Posiçao) que contenha valores. Eliminando essa busca na matriz inteira. Uma tecnica diferente "Para pesquisa" tambem seria muito util. alguém poderia me dar uma dica. Abraços Daniel.

Valeu !! Abraços. Daniel.

Lisandro, muito obrigado pela sua atençao. Estou tendo essa menssagem quando trabalho simultaneamente com 3 database's: Comecei a receber uma menssagem de Tempo excedido e as vezes: Run time error - 2147467259 Could not allocate space for object 'MontaTabela' in database 'CONSTRUCAO _x' because the 'primary' file group is full. Cada database tem 10 tabelas . Cada database é acesssada por um programa diferente.(Tudo isso rodando em uma mesma maquina) Me deram a dica que poderia ser a configuraçao no SQL server. O que você acha ? Se for na configuraçao que você passou anteriormente me explica uma coisa: Por que configurar a taxa de transferencia, como vou descobrir qual taxa é a certa. não tem como o SQL se configurar automaticamente conforme o andamento dos programas . Abraços. Daniel.

Bom dia pessoal Sou iniciante em Sql server ou melhor não o utilizo com frequencia só acesso com VB. Onde configuro o tamanho do DB e sua taxa de crescimento ? Quando vou trabalhar com 15 tabelas isse informaçao tem de ser configurada no SQL Server ? Aguardo a colaboraçao. Daniel.

Ok..

Bom dia pessoal. Estou rodando tres aplicativos paralelamente(na mesma maquina), cada um com uma database diferente. Todos são relacionados a analise combinatoria. Comecei a receber uma menssagem de Tempo excedido e as vezes: Run time error - 2147467259 Could not allocate space for object 'MontaTabela' in database 'CONSTRUCAO _x' because the 'primary' file group is full. Quando clicko em Ok, a aplicaçao termina. Se executar cada um separadamente não recebo essa menssagem, só que estou tentando encurtar o tempo Poderia ser alguma configuraçao na conecçao com o SQL server ou tenho de configurar cada aplicativo para fazer uma pausa para não haver uma sobregarga na RAM. Segue a conecçao e a maneira de gravaçao do programas. MONTACONECCAO: PARAMETRO_STRING = "Construcao_BCA" On Error GoTo ErroCmd Set oCo = New ADODB.Connection oCo.Provider = "SQLOLEDB" oCo.Properties("Data Source").Value = "Sempron" oCo.Properties("Initial Catalog").Value = PARAMETRO_STRING oCo.Properties("User ID").Value = "sa" oCo.Properties("Integrated Security").Value = "SSPI" oCo.Open MsgBox " Conexao no " & PARAMETRO_STRING & " efetuada com sucesso ! " GoTo FIMSUB: ***** Dim oRsCombinacao As ADODB.Recordset Set oRsCombinacao = New ADODB.Recordset oRsCombinacao.Open "MontaCombinacao", oCo, adOpenDynamic, adLockOptimistic ***** oRsCombinacao.AddNew oRsCombinacao("Combinacao") = COMBINACOES oRsCombinacao.Update ****** TxtTotal.Text = Val(TxtTotal.Text) + 1 ProgressBar1.Value = ProgressBar1.Value + 1 DoEvents ****** Aguardo a colaboraçao de alguém. Abraços. Daniel.

Graymalkin...Valeu mesmo. Melhor que isso só um curso pago..só que fora de minha cidade..aqui só tem picareta.. Por favor...então o porque do metodo Form1.refresh... Qual e a diferença de um DoEvents entre Form1.refresh Novamente muito obrigado pela sua atençao e parabens pelo seu conhecimento tecnico. Abraços. Daniel.

Graymalkin, valeu mesmo. Cara dica de um ano atraz e ainda com o mesmo avatar..!! Valeu.. Tem como você dar uma ESPLANADA sobre DOEVENTS.(1 segundinho) Abraços.. Daniel.

O wine é um projeto que infelizmente sempre vai dar pau !! Melhor é jogar jogos nativos para linux. Mesmo jogos já bem testados como "half life" já deram problemas em minha maquina. Abraços e boa diversao. Daniel

Bom dia pessoal. Minha duvida é na utilizaçao do controle progressbar. Estou trabalhando em um sisteminha de análise combinatoria. O programa roda em torno de 40 horas. Como a tela fica toda congelada tive de montar uma tabela que fosse gravando os passos do programa para poder acompanha-lo. Como resolveria isso utilizando um progressbar , sendo que tenho 20 laços For Next aninhados ? O progressbar resolveria esse problema de congelamento de tela ( do programa em questao) ou o programa teria de utilizar aceleraçao de video para solucionar o problema de congelamento ? Sem mais Daniel.

Cyberalexxx:...Problema resolvido !! Abraços. Daniel.

Graymalkin...10...VALEU !! Abraços. Daniel.

Cyberalexxx: Como dimenssionar uma matriz com o valor ' rs("total")':blink: Abraços. Daniel.

Boa tarde. Estou precisando de uma Luz. Me deem uma dica, POR FAVOR... A dimensao de uma Matriz pode ser feita somente com uma constante ?? DIM MATRIZ( 100 ) Por que não essa declaraçao ?: DIM INDICE AS INTEGER ... INDICE=100 DIM MATRIZ(INDICE) Compile error: constant expression required ?? Por favor alguém poderia dar uma dica para resolver esse problema ? Daniel.

Ok...valeu.. Abraços. Daniel.

OK..valeu...foi feita uma contagem. Muito obrigado pela dica. só que estou precisando saber se existe uma funçao, metodo ou comando que me retorne a quantida de de registros da tabela, sem fazer uma contagem. Motivo: A tabela é muito grande. Fico grato pela sua dica..valeu.. Abraços.. Daniel..

Bom dia pessoal. Estou com um pequeno problema. Preciso dimencionar uma matriz com o tamanho da tabela " em REGISTROS". infelizmente não conheço o metodo ou comando que me retorne esse valor. Agradeço a colaboraçao de todos. Daniel.

Valeu !! Abraços !! Daniel.

Caro Graymalkin Eu posso criar um Objeto oCo no modulo para torna-lo global ? Tambem posso criar um Objeto RecordSet no Modulo ? Estou perguntando porque em todos Form's crio uma conecçao assim como os RecordSet's. Ou seja a mesmas tabelas usadas em varios Form's. Bem...como quem não chora não mama...vou pedir mais uma dica: Como faço para fechar todos RecorSet's simultaneamente, tenho varios livros de VB e infelizmente nenhum fala sobre tal metodo. Novamente agradeço você e o restante do pessoal pela colaboraçao...Abraços e tenha um bom dia. Daniel.

Bom dia pessoal já montei e acessei algumas tabelas do SQL Server pelo VB6 sem problemas. infelizmente me deparei com um pequeno problema que não conssigo resolver. Segue alguns trechos do codigo: 'Inicia a conexao com o Server On Error GoTo ErroCmd Dim oCo As ADODB.Connection Set oCo = New ADODB.Connection oCo.Provider = "SQLOLEDB" oCo.Properties("Data Source").Value = "escrit-ribx0gv" oCo.Properties("Initial Catalog").Value = "Construcao" oCo.Properties("User ID").Value = "sa" oCo.Properties("Integrated Security").Value = "SSPI" oCo.Open MsgBox "Conexao efetuada com sucesso !" If Not VerificaTabela("CombinacoesConcatenadas") Then MsgBox "Tabela CombinacoesConcatenadas não Existe !" End End If If Not VerificaTabela(........ ........ ....... 'VERIFICA AS TABELAS X's VERIFICAX: If Not VerificaTabela("TabelaX") Then oCo.Execute ("Create Table TabelaX (Codigo int primary key,Concatenacao varchar(200), )") MsgBox "Tabela TabelaX criada com sucesso !" Else MsgBox "Tabela TabelaX já existe e sera excluida !" oCo.Execute ("Drop Table TabelaX") MsgBox "Tabela TabelaX excluida com sucesso !" GoTo VERIFICAX: End If ........... ........... ......... ......... ErroCmd: MontarDescricaoDoErro MsgBox sErro FIMSUB: End Sub __________________________________________________ Function VerificaTabela(nomeTabela As String) Dim oRs As ADODB.Recordset Dim oCo As ADODB.Connection Set oRs = New ADODB.Recordset Set oRs = oCo.OpenSchema(adSchemaTables) Do While Not oRs.EOF If oRs!Table_Name = nomeTabela Then VerificaTabela = True Exit Do End If oRs.MoveNext Loop oRs.Close End Function __________________________________________________ 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 Logo na primeira verificaçao de tabela surge a seguinte menssagem de erro: Run-Time error '91': Object Variable or with block variable not set Substituindo “On Error GoTo ErroCmd” por “On Error Resume Next” ele emite o msgbox “Tabela CombinacoesConcatenadas não Existe” Esta tabela foi criada e acessada por outros Forms do programa. Em outras tabelas ele inssiste em cria-las sendo que já foram criadas. Agradeceria muito a ajuda de alguém. Sem mais Daniel.

Boa Tarde pessoal. Sou iniciante em VB e estou com uma duvida sobre Forms. Maos há obra: Estou montando um pequeno projeto que contem 6 Forms e um modulo. O Form 1 é o menu principal que faz a chamada a outros Forms. Meu problema: Quando os outros formularios são chamados os mesmos são mostrados somente quando o processamento dos mesmos termina. O interessante é que o fomulario principal fica na tela. Mais uma: O formulario 1 chama o formulario 2, quando o processamento do formulario 2 termina é exibida uma msgbox avisando o final do processamento, somente apos clicar em ok no msgbox que o formulario 2 com os resultados é exibido. Obs: Quando faço a chamada ao form2.. Form1.Hide[Code] Form2.Show vbModal não defini o primeiro formulario como MDI, seria esse o erro ?? Como posso fazer a hierarquia entre os forms para evitar esse desconforto ?? Sem mais, agradeço a colaboraçao de todos.. Daniel.

Boa tarde pessoal: Sou novato em VB e estou tento alguns problemas tipicos de iniciante. Quando a aplicaçao vai gravar o segundo registro surge este erro: Run time error ' 2147217900 (80040e14) Todos identificadores de linha devem ser liberados para que novos possam ser obtidos. segue: Set oRs = New ADODB.Recordset oRs.Open "Construcao", oCo, adOpenDynamic, adLockBatchOptimistic .... .... .... .... oRs.AddNew oRs("Combinacoes") = COMBINA$ oRs.Update DESCONCIDERA: ' LABEL .... ... Sem mais agradeço a colaboraçao de todos Daniel..

Boa Tarde pessoal Sou novato no asssunto e meus neuronios estao fritando. On Error goto Erro 'Criando a tabela oCo.Execute ("Create Table Vendas (Codigo int primary key, CodCliente int(4) foreign key references Clientes(Codigo), CodLivro int(4) foreign key references Livros(Codigo), Quantidade int(10), preço money(20), DataVenda datetime(10))") ... ... adicionando dados oCo.Execute ("Insert Into Vendas (Codigo,CodCliente,CodLivro,preço,Quantidade,DataVenda) values (" + TxtCodigo.Text + ",'" + CStr(nCodCliente) + "','" + CStr(nCodLivro) + "','" + CCur(TxtPreco.Text) + "','" + TxtQuantidade.Text + "'," + TxtData.Text + ")") MsgBox "Inserçao Efetuada !" Erro: oCo.RollbackTrans MontarDescricaoDoErro MsgBox sErro, vbExclamation, "Erro" Quando confirmo p/ adicionar os dados, o VB emite a Menssagem de Erro 13 já fiz varias alteraçoes na linha em que adiciona os dados e a unica mudança que tive foi Erro 6. alguém poderia me dar uma dica ?? Abraços...

Valeu...agora veio a luz no fim do tunel Set oCo = New ADODB.Connection .. .. .. oCo.Properties("Integrated Security").Value = "SSPI" Conexao efetuada com sucesso ! Abraços..e obrigado pela atençao Daniel...

Caro colega, as coisas já melhoraram, só que infelizmente não sei como resolver a seguinte menssagem, abaixo do codigo: Module1 Option Explicit Public oCo As New ADODB.Connection Form1 Option Explicit Public sErro As String Private Sub Form_Load() On Error GoTo ErroCmd oCo.Provider = "SQLOLEDB" oCo.Properties("Data Source").Value = "CASA-KID4WCC" oCo.Properties("Initial Catalog").Value = "Bancocombinacoes" oCo.Properties("User ID").Value = "sa" oCo.Open 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 ***************** ERRO:-214746259CANNOT OPEN DATABASE REQUESTED IN LOGIN 'BANCOCOMBINACOES'.LOGIN FAILS. ***************** Quanto a mudanca para Mixed Mode, infelizmente não conssegui achar essa opçao dentro do Entrerpise Manager. Agradeceria muito mais alguma dica. Sem mais Daniel