Hallo Froum gemeinde,
zuvor ich bin mit VB noch nicht wirklich gut vertraut und auch neu hier, ich komme ehr aus dem Schwapp VBA.
Aber jeder hat ja mal klein angefangen oder wie war das
Ich hab eine Access FE/ BE Anwendung in der ich ein eigenes berechtigungs system nutze.
Ich hab angefangen dieses FE in VB umzubauen
Mein Problem / Fragestellung.
Aus einer Tabelle vom SQL Server durchlaufe ich per Loop ein DataTable und lese die DataRow aus,
in der die Informationen wie:
User (str)|From (str)| Button (Nav kontroll etc.) (Str) | Zugriff (Int) auslese.
In VBA würde ich jetzt innerhalb der Loop anweisung mir die Information aus der Spalte Form in eine Variant packen und Button auch.
Zusammen gesetzt würde das dann in so aussehn.
Nur das jetzt In VB umsetzen mach mich leich ist es denn soviel komplexer das in VB zu machen?
Das was ich berreits schon an VB Code zustande bekommen habe ist:
Innerhalb der If hab ich abslout keine Ahnung mehr, was ich da noch machen soll.
Hoffe hie kann mir wer Helfen
Mit Freundlichen Grüßen
zuvor ich bin mit VB noch nicht wirklich gut vertraut und auch neu hier, ich komme ehr aus dem Schwapp VBA.
Aber jeder hat ja mal klein angefangen oder wie war das
Ich hab eine Access FE/ BE Anwendung in der ich ein eigenes berechtigungs system nutze.
Ich hab angefangen dieses FE in VB umzubauen
Mein Problem / Fragestellung.
Aus einer Tabelle vom SQL Server durchlaufe ich per Loop ein DataTable und lese die DataRow aus,
in der die Informationen wie:
User (str)|From (str)| Button (Nav kontroll etc.) (Str) | Zugriff (Int) auslese.
In VBA würde ich jetzt innerhalb der Loop anweisung mir die Information aus der Spalte Form in eine Variant packen und Button auch.
Zusammen gesetzt würde das dann in so aussehn.
Quellcode
- 'Snipped
- If Not rs.EOF Then rs.MoveFirst
- Do While Not rs.EOF
- A1 = rs!strUSE
- A2 = rs!strFOR
- A3 = rs!strBUT
- A4 = rs!intAlo
- rs.MoveNext
- Dim A As Variant
- Dim B As Variant
- Dim C As Variant
- 'A = strUSE
- B = strFOR
- C = strBUT
- Forms!Frm_MAIN!FokusField.SetFocus 'Fokus Verschieben da AC keine Aktiven Controlls Deaktivieren kann...
- 'Button Aktivieren
- If A4 = 1 Then
- Forms(B)(C).Enabled = True
- End if
- Loop
Nur das jetzt In VB umsetzen mach mich leich ist es denn soviel komplexer das in VB zu machen?
Das was ich berreits schon an VB Code zustande bekommen habe ist:
VB.NET-Quellcode
- Sub RightSetting()
- On Error GoTo ErrLine
- Dim A1, A2 As String
- Dim A3 As Integer
- Dim CON As New SqlConnection(My.Settings.DatabaseConection)
- Dim COM As New SqlCommand("SELECT * FROM TabelsUSerSet_Testing_VB", CON)
- Dim ADA As New SqlDataAdapter(COM)
- Dim TAB As New DataTable
- Dim r As DataRow
- ADA.Fill(TAB)
- For Each r In TAB.Rows
- A1 = r("FORNAM")
- A2 = r("FORBUT")
- A3 = r("FORALLOW")
- If A3 = 0 Then
- A1.A2.Enabled = True
- End If
- Next
- Exit Sub
- ErrLine:
- ErrCatching()
- End Sub
Innerhalb der If hab ich abslout keine Ahnung mehr, was ich da noch machen soll.
Hoffe hie kann mir wer Helfen
Mit Freundlichen Grüßen