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.
Pergunta
Vraptor
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.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.