mojaSymfonia FORUM :: Wyświetl temat - HMF

Kod:

Dim root As Long

Public Function GetRoot(tr As TreeView) As Long
Dim rs As New ADODB.Recordset
Dim gr As Long
    
    On Error GoTo error
    
    gr = 0
    
    rs.Open "SELECT * FROM xt WHERE id=root AND super=1020 AND typ=12", SYcon, adOpenDynamic, adLockOptimistic
    If rs.RecordCount = 1 Then
' Znalazlem root
       tr.Nodes.Add , tvwFirst, "root", rs!kod, 1
       tr.Nodes("root").Tag = rs!id
       gr = rs!id
    End If
    rs.Close
    Set rs = Nothing
    
    GetRoot = gr
    Exit Function
    
error:
    MsgBox err.Description

End Function

Public Sub GetTree(tr As TreeView, root As Long)
Dim rs As New ADODB.Recordset
Dim ile_tree

    On Error GoTo error

    If root > 0 Then
       rs.Open "SELECT * FROM xt WHERE super='" & root & "'", SYcon, adOpenDynamic, adLockOptimistic
       ile_tree = rs.RecordCount
       If ile_tree > 0 Then
          For i = 1 To ile_tree
              tr.Nodes.Add "root", tvwChild, "node_" & i, rs!kod, 3
              tr.Nodes("node_" & i).Tag = rs!id
              If rs!podkatalog > 0 Then
                 GetChilds tr, rs!id, "node_" & i
              End If
              rs.MoveNext
          Next i
       End If
       rs.Close
       Set rs = Nothing
    End If
    
    Exit Sub

error:
    MsgBox err.Description, vbCritical

End Sub

       root = GetRoot(Tree1) ' Towary
       GetTree Tree1, root

Autor:	bartek [ 2010-01-21, 23:38 ]
Tytuł:	HMF - katalog zamówień obcych
W kartotece zamówień obcych mam następująco utworzoną hierarchię katalogów: Zamówienia obce -> KAT_1 -> KAT_1_1. Do katalogu KAT_1_1 przypisane są zamówienia. Potrzebuję na wydruku generowanym z poziomu kartoteki zamówień (po zaznaczeniu jakiegoś zamówienia) wydrukować nazwę katalogu KAT_1 (czyli nadrzędnego). I tu pytanie: jak wykonać coś takeigo w AmBasic?

Autor:	wrob [ 2010-01-22, 01:15 ]
Tytuł:
Katalogi sa zapisane w bazie iteracyjnie czyli musisz pobrac nazwe i id katalogu na jego podstawie poszukac nadrzednego katalogu i tak dalej:)

Autor:	bartek [ 2010-01-22, 07:38 ]
Tytuł:
Dziekuję za zainteresowanie. Wiem jak to wygląda w bazie i jak np. wyciągnąć coś takiego zapytaniem w bazie SQL. Jednak w AmBasic dopiero zaczynam dlatego mam prośbę o kawałek kodu. Z góry dziękuję za odpowiedź.

Autor:	wrob [ 2010-01-22, 09:11 ]
Tytuł:
A uzyles przycisku szukaj? na forum jest pelno przykładow jak otworzyc/odczytac cos z bazy za pomoca ambasica...... a skoro wiesz co chcesz odczytac - to juz 90% sukcesu PS. Mozna tez obejrzec dowlny raport w handlu np diagnostyczny - prawie kazdy otwiera sobie jakies bazy i czyta z nich :)

Autor:	wars1977 [ 2010-04-06, 10:02 ]
Tytuł:
Witam przedsatawiam przykład w VB6 Wyświetlenie struktury głównego drzewa Kod: Dim root As Long Public Function GetRoot(tr As TreeView) As Long Dim rs As New ADODB.Recordset Dim gr As Long On Error GoTo error gr = 0 rs.Open "SELECT * FROM xt WHERE id=root AND super=1020 AND typ=12", SYcon, adOpenDynamic, adLockOptimistic If rs.RecordCount = 1 Then ' Znalazlem root tr.Nodes.Add , tvwFirst, "root", rs!kod, 1 tr.Nodes("root").Tag = rs!id gr = rs!id End If rs.Close Set rs = Nothing GetRoot = gr Exit Function error: MsgBox err.Description End Function Public Sub GetTree(tr As TreeView, root As Long) Dim rs As New ADODB.Recordset Dim ile_tree On Error GoTo error If root > 0 Then rs.Open "SELECT * FROM xt WHERE super='" & root & "'", SYcon, adOpenDynamic, adLockOptimistic ile_tree = rs.RecordCount If ile_tree > 0 Then For i = 1 To ile_tree tr.Nodes.Add "root", tvwChild, "node_" & i, rs!kod, 3 tr.Nodes("node_" & i).Tag = rs!id If rs!podkatalog > 0 Then GetChilds tr, rs!id, "node_" & i End If rs.MoveNext Next i End If rs.Close Set rs = Nothing End If Exit Sub error: MsgBox err.Description, vbCritical End Sub root = GetRoot(Tree1) ' Towary GetTree Tree1, root Pozdrawiam.

mojaSymfonia FORUM https://forum.mix-soft.pl/

HMF - katalog zamówień obcych https://forum.mix-soft.pl/viewtopic.php?f=15&t=1641	Strona 1 z 1

Strona 1 z 1	Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/