ERRO AO EXECUTAR O PROGRAMA NA REDE
Pessoal, alguém saberia me dizer que tipo de erro que é este e como posso rapará-lo?
Run-tome erro "7005"
ROWSET NOT AVAILABLE
Se alguém poder me ajudar, ficarei mt agradecido
Desde já,
Obrigado,
Run-tome erro "7005"
ROWSET NOT AVAILABLE
Se alguém poder me ajudar, ficarei mt agradecido
Desde já,
Obrigado,
Ajuda se você comentar alguns pontos
1 - Qual era a rotina onde ocorreu o erro
2 - Qual o código da ROTINA onde ocorreu o erro..
???
1 - Qual era a rotina onde ocorreu o erro
2 - Qual o código da ROTINA onde ocorreu o erro..
???
Elmo,
Explique melhor.
Parece que voce tentou acecar uma linha (msflex ou grid) que nao existe. Mais nao da para saber sem que voce coloque mais informacoes.
Explique melhor.
Parece que voce tentou acecar uma linha (msflex ou grid) que nao existe. Mais nao da para saber sem que voce coloque mais informacoes.
Pessoal - aà que tá o problema, não sei, porque os fontes do programa está em meu computador e o executável está no servidor, talvez o claudo esteja com razão, existe sim um Grid no programa, será q é ele q está provocando este erro??
Claudio - vc tem razão é na hora de abrir o GRID é q está dando este erro, vê se o que estou fazendo etá certo?
Private Sub Preenche_Grid()
Dim StrConexao As String
Dim rs As New ADODB.Recordset
CAMINHO1 = txtDBName + "VBSERVIDOR.MDB"
StrConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Caminho1 & ";"
rs.Open "Select * from Servidor", StrConexao, adOpenStatic, adLockOptimistic
If rs.EOF = False Then
DataGrid1.Columns(0) = rs.Fields("Computador")
DataGrid1.Columns(1) = rs.Fields("Usuario")
DataGrid1.Columns(2) = rs.Fields("ClientIp")
rs.MoveNext
End If
End Sub
Se puder me ajudar ficarei agradecido
Obrigado,
Private Sub Preenche_Grid()
Dim StrConexao As String
Dim rs As New ADODB.Recordset
CAMINHO1 = txtDBName + "VBSERVIDOR.MDB"
StrConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Caminho1 & ";"
rs.Open "Select * from Servidor", StrConexao, adOpenStatic, adLockOptimistic
If rs.EOF = False Then
DataGrid1.Columns(0) = rs.Fields("Computador")
DataGrid1.Columns(1) = rs.Fields("Usuario")
DataGrid1.Columns(2) = rs.Fields("ClientIp")
rs.MoveNext
End If
End Sub
Se puder me ajudar ficarei agradecido
Obrigado,
Quantas colunas existem no DATAGRID1?
Tem de existir 3
Se não tem.. clique com o botão direito. .em cima do grid e escolha a opção para ADICIONAR colunas..
O Erro está aqui
DataGrid1.Columns(0) = rs.Fields("Computador")
DataGrid1.Columns(1) = rs.Fields("Usuario")
DataGrid1.Columns(2) = rs.Fields("ClientIp")
Uma dessas colunas PROVAVELMENTE não existe!!!!!!!!!
Tem de existir 3
Se não tem.. clique com o botão direito. .em cima do grid e escolha a opção para ADICIONAR colunas..
O Erro está aqui
DataGrid1.Columns(0) = rs.Fields("Computador")
DataGrid1.Columns(1) = rs.Fields("Usuario")
DataGrid1.Columns(2) = rs.Fields("ClientIp")
Uma dessas colunas PROVAVELMENTE não existe!!!!!!!!!
Oi Germanir - o engraçado é que existe sim as 3 colunas, já tentei isolar uma por uma mais sempre me volta o mesmo erro.
Detalhe, veja esta maneira de PREENCHER um DataGrid com dados... via ADO..
é melhor fazer assim
PREENCHER DATAGRID ACCESS
é melhor fazer assim
PREENCHER DATAGRID ACCESS
GERMANIR - bom dia
Já tive penando em fazer assim como vc me sugeriu, mas será q dá certo via rede??
Já tive penando em fazer assim como vc me sugeriu, mas será q dá certo via rede??
Com certeza!!! cara!!!
Normalmente o que muda é só a STRING de conexão...
Onde vc colocar
Data Source=c:\dados\data.mdb
ai vc colocar o nome do computador e a pasta compartilhada na rede
Data Source=\\servidor\dados\data.mdb
Sacou.. só muda a string de conexao...
Normalmente o que muda é só a STRING de conexão...
Onde vc colocar
Data Source=c:\dados\data.mdb
ai vc colocar o nome do computador e a pasta compartilhada na rede
Data Source=\\servidor\dados\data.mdb
Sacou.. só muda a string de conexao...
GERMANIR - vou tentar mudar to o sistema de acesso ao banco de dados, isto vai me dar um pouco de trabalho mas mesmo assim vou tentar, já q sou um pouco leigo em matéria de VB, já que trabalho mt com o bom e velho CLIPPER, se precisar de sua ajudar vou te procurar - ok.
Obrigado,
Obrigado,
Tópico encerrado , respostas não são mais permitidas