Hallo zusammen,
ich habe folgenden Code in VB6, den ich nach .net übernehmen möchte:
Hier wird eine DB sortiert, nach Treffern gesucht und verglichen.
Ich habe das Programm in .net geführt, mir fehlen aber einige Datenbank-Kenntnisse im Bereich ADO. Habe zwar den dicken Wälzer "Datenbank-Programmierung mit
Visual Basic 2012" zugelegt, aber der hilft mir auch nicht Recht weiter.
So weit sieht der Code für den Teil oben gerade aus:
Woran ich jetzt hänge, sind die Begriffe
Zeile 18+22 (Bild darüber). Gibt es diese Begriffe nicht auch mit dem ADO-Zugriff und wo kann ich die als Übersicht ersehen (Internet oder Buch)?
Danke im Voraus für Tipps !
ich habe folgenden Code in VB6, den ich nach .net übernehmen möchte:
Hier wird eine DB sortiert, nach Treffern gesucht und verglichen.
Visual Basic-Quellcode
- Set InselPZsRS = DBEngine.Workspaces(0) _
- .OpenDatabase(PfadMdb) _
- .OpenRecordset("SELECT * FROM InselPZs ORDER BY PZ", dbOpenDynaset)
- Private Sub SetListe(pz As Integer, cl As Integer, ByVal w As Single, ByVal nz As Single, _
- Optional text As String = "")
- Dim s As String, NeuSatz As Boolean
- s = "PZ =" + Str(pz) '+ "."
- InselPZsRS.FindFirst (s)
- NeuSatz = False ' kein neuer Satz
- If InselPZsRS.NoMatch Then
- NeuSatz = True
- Else ' schon da
- 'wenn W<cl> oder NZ<cl> nicht leer, dann addnew
- Select Case cl
- Case 1
- If InselPZsRS!W1 <> 0 Or InselPZsRS!NZ1 <> 0 Then NeuSatz = True
- Case 2
- If InselPZsRS!W2 <> 0 Or InselPZsRS!NZ2 <> 0 Then NeuSatz = True
- Case 3
- If InselPZsRS!W3 <> 0 Or InselPZsRS!NZ3 <> 0 Then NeuSatz = True
- Case 4
- If InselPZsRS!W4 <> 0 Or InselPZsRS!NZ4 <> 0 Then NeuSatz = True
- Case 5
- If InselPZsRS!W5 <> 0 Or InselPZsRS!NZ5 <> 0 Then NeuSatz = True
- End Select
Ich habe das Programm in .net geführt, mir fehlen aber einige Datenbank-Kenntnisse im Bereich ADO. Habe zwar den dicken Wälzer "Datenbank-Programmierung mit
Visual Basic 2012" zugelegt, aber der hilft mir auch nicht Recht weiter.
So weit sieht der Code für den Teil oben gerade aus:
VB.NET-Quellcode
- Private Sub SetListe(pz As Integer, cl As Integer, ByVal w As Single, ByVal nz As Single, _
- Optional text As String = "")
- Dim s As String, NeuSatz As Boolean
- Dim Test As String
- Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Daten\Zeitbl.accdb;")
- conn.Open()
- s = "PZ =" + Str(pz) '+ "."
- 's -> PZ = 0
- 's -> PZ = 900
- ' ...
- 'InselPZs öffnen
- Dim InselPZsRS As New OleDbDataAdapter("SELECT * From InselPZs Order BY PZ", conn)
- conn.Close()
- 'InselPZsRS.FindFirst(s)
- 'NeuSatz = False ' kein neuer Satz
- 'If InselPZsRS.NoMatch Then ' diese PZ noch nicht vorhanden ?
- ' NeuSatz = True
- 'Else ' schon da
Woran ich jetzt hänge, sind die Begriffe
Zeile 18+22 (Bild darüber). Gibt es diese Begriffe nicht auch mit dem ADO-Zugriff und wo kann ich die als Übersicht ersehen (Internet oder Buch)?
Danke im Voraus für Tipps !