Não entendi muito bem a tua dúvida. Explique-se melhor, com mais calma.

Seu problema é q vc nao conecta o banco, certo?

Vc deve usar DAO, o objeto DATA no modo Vinculado, certo?

 

Bem, se estou certo, vc vai precisar fazer uma referencia ao endereço do banco na rede. Coloca no Load de cada form onde vc conecta o banco de dados o seguinte:

 

'estou supondo q seu objeto chama Data1

Data1.DatabaseName = "endereço do banco na rede"

 

Ah, essa deve ser a primeira linha q usa o seu objeto Data... não tente fazer nada com ele antes de setar o banco corretamente...

 

Agora, qto as imagens, mesmo q vc as tenha referenciado no servidor, o Visual Basic não busca os arquivos de imagens... ele grava a imagem binariamente dentro do .EXE e no projeto dentro de um arquivo .FRX

portanto nao importa onde vc gravou as imagens. Depois de adiciona-las ao projeto, vc pode até mesmo deleta-las q elas continuam no projeto

 

Flw...

Senhores, em minha maquina carrega os dados porque esta instalado access.

Gostaria acessar de outras maquinas porem nao tem access instalado, o que precisa de mdac. os micros sao win2000 SP4 e estou usando o Jet4.0 (2003).

Baixei o mdac 2.8 e nao resolveu.

o problema acredito que nao seja o codigo fonte pq em minha maquina carrega, detalhe a planilha esta salva no servidor e deixei direcionadas.

segue uma parte de progrma

 

Private Function encheGridC115(dados As String, sql As String)

Dim CON As ADODB.Connection
Set CON = New ADODB.Connection
CON.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & App.Path & "/falhas.mdb;"

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset

RS.Open sql, CON, 2, 1

MSFlexGrid1.Rows = 2
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0

MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = RS.Fields.Count

ReDim largura_coluna(0 To RS.Fields.Count - 1)

For coluna = 0 To RS.Fields.Count - 1
   MSFlexGrid1.TextMatrix(0, coluna) = RS.Fields(coluna).Name
   largura_coluna(coluna) = TextWidth(RS.Fields(coluna).Name)
Next coluna

 linha = 1
Do While Not RS.EOF
   MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
  
   For coluna = 0 To RS.Fields.Count - 1
      MSFlexGrid1.TextMatrix(linha, coluna) = RS.Fields(coluna).Value
                                                                                                                          
      ' verifica o tamanho dos campos
      largura_campo = TextWidth(RS.Fields(coluna).Value)
                                                                                                                          
      If largura_coluna(coluna) < largura_campo Then largura_coluna(coluna) = largura_campo
   Next coluna
  
  
RS.MoveNext
   linha = linha + 1
Loop

 RS.Close
CON.Close

' define a largura das colunas do grid
For coluna = 0 To MSFlexGrid1.Cols - 1
     MSFlexGrid1.ColWidth(coluna) = largura_coluna(coluna) + 240
Next coluna

End Function

 

Private Sub Form_Load()
TreeView1.Nodes.Add , , "Defeitos", "Defeitos", 1, 2

 

TreeView1.Nodes.Add "Defeitos", tvwChild, "trnliga", "Não Liga", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trncar", "Não Carrega", 4, 3
'TreeView1.Nodes.Add "Defeitos", tvwChild, "trtrava", "Trava", 4, 3
'TreeView1.Nodes.Add "Defeitos", tvwChild, "trcons", "Consumo", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trdes", "Desliga", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trdis", "Display", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trsinal", "Sinal", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trchama", "Chama", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trvib", "Vibracall", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "traud", "Audio", 4, 3

'TreeView1.Nodes.Add "trdis", tvwChild, "C1", "Sem Caracter", 5, 5
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

If Node.Parent Is Nothing Then
   Exit Sub
End If

'links de defeitos
On Error Resume Next
'opcao nao liga
If Node.Key = "trnliga" Then
'carrega imagens
imgtrnliga_c115.Picture = LoadPicture("//Betaserver/LAB/Debug/Okashira/Doc/110.jpg")
'MHFlexgrid
Label1.Visible = True
MSFlexGrid1.Visible = True
Call encheGridC110("//Betaserver/LAB/Debug/Okashira/Doc/falhas.mdb", "Select * from C110 WHERE DEF ='NLIGA'")
End If

 

alguem conhece um mdac que atendo o win2000 SP4 Jet 4.0 ?

 

Obrigado!