Postada em 05/11/2007 09:55 hs
Ghost, a conexão é feita através do AdoDb, conforme método inicializaconexão, para abrir a tabela uso os comando citados a partir do item 2. Desde já, valeu!!!
item 1 - acesso ao bd
Public Sub inicializaConexao()
aConexao.Provider = "Microsoft.Jet.OLEDB.4.0"
aConexao.ConnectionString = "Data Source = C:Arquivos de ProgramasgestagdDbGestag97.mdb"
aConexao.Open
End Sub
item 2 - acesso E
item 2 - acesso às tabelas
Dim regItensSetor As ADODB.Recordset
Set regItensSetor = aSql.getDadosItensSetor(regSetoresAgencia!codSetor)
regItensSetor.MoveMin
Public Function getDadosItensSetor(codSetor As Byte) As ADODB.Recordset
On Error GoTo Err_getDadosItensSetor
'É necessário colocar apelidos nos campos, pois o VB não aceita pontos em campos. Ex.:tsetor.item
aBd.setRs ("SELECT TSetor.CodSetor as codsetor, TSetor.Nome as nomesetor, TItem.CodItem as coditem, TItem.Nome as nomeitem, TSetorItem.Quantidade as quantidade, TSetorItem.Critério as criterio " & _
"FROM TSetor INNER JOIN (TItem INNER JOIN TSetorItem ON TItem.CodItem = TSetorItem.CodItem) ON TSetor.CodSetor = TSetorItem.CodSetor " & _
"where tsetor.codsetor = " & codSetor)
Set getDadosItensSetor = aBd.getRs
Exit_getDadosItensSetor:
Exit Function
Err_getDadosItensSetor:
Call aMensagem.erro(Err.Description, Err.Number)
End Function
Private aConexao As New ADODB.Connection
Public Sub setRs(comando As String)
On Error GoTo Err_setRs
Set aRs = aConexao.Execute(comando)
aResultadoTransacao = True
Exit_setRs:
Exit Sub
Err_setRs:
aResultadoTransacao = False
Call aMensagem.erro(Err.Description, Err.Number)
End Sub
0
|
