| |
VB.NET - Ein- und UmsteigerSysntax Umstellung VB6 Vb.NET 2019 | | | Autor: domainix | Datum: 22.01.23 23:06 |
| Guten Abend Gemeine,
ich hoffe ich werde nicht gleich gesteinigt. Habt bitte Nachsicht mit einem Neueinsteiger.
Ich bin rechts gut zu Fuß mit VF6.
Möchte jetzt umsteigen auf VB.NET.
Meine erste Schwierigkeit siehe VB6 Code (funzt super)
Das hätte ich gerne in VB.NET.
Habe mir schon den A..... blutig gesucht. Leider ohne Erfolg.
Aber wahrscheinlich sehe ich den Wald vor lauter Bäumen nicht.
Bin aber zuversichtlich, dass ich hier bei den eingefleischten Profis Unterstützung erfahre.
Schon mal 1000 Dank.
Ein einfacher VB6 Code:
'Access Datenbank--------------------------------------------------------------
Public dbAccessintersoft As Database
Public rstAccessAdressen As Recordset
Public rstAccessFahrtenbuch As Recordset
Public rstAccessKonten As Recordset
Public rstAccessKontoNummern As Recordset
Public rstAccessTan As Recordset
Public rstAccessUmsatz As Recordset
'------------------------------------------------------------------------------
Dim vDatenbank
vDatenbank = "fibu.mdb"
Set dbAccessintersoft = OpenDatabase(vDatenbank)
Set rstAccessAdressen = dbAccessintersoft.OpenRecordset("select * from adressen order by Firma", dbOpenDynaset)
Set rstAccessFahrtenbuch = dbAccessintersoft.OpenRecordset("select * from fahrtenbuch", dbOpenDynaset)
Set rstAccessKonten = dbAccessintersoft.OpenRecordset("select * from konten", dbOpenDynaset)
Set rstAccessKontoNummern = dbAccessintersoft.OpenRecordset("select * from kontonummern", dbOpenDynaset)
Set rstAccessTan = dbAccessintersoft.OpenRecordset("select * from tancodes", dbOpenDynaset)
Set rstAccessUmsatz = dbAccessintersoft.OpenRecordset("select * from umsaetze", dbOpenDynaset)
Als Beispiel ein einfacher Code:
List1.Clear
With rstAccessUmsatz
.MoveFirst
If .EOF Then Exit Sub
Do While Not .EOF
List1.AddItem !Beschreibung
.MoveNext
Loop
.MoveFirst
End With
Wenn ich das in VB.NET hätte, wäre ich erstmal glücklich.
Dann sehen wir weiter.
Kommen bestimmt noch etliche Schwierigkeiten, aber hiermit könnte ich mich schonmal weiterentwickeln.
Danke und noch einen schönen Abend aus Hessen.... | |
Re: Sysntax Umstellung VB6 Vb.NET 2019 | | | Autor: sv00010 | Datum: 23.01.23 07:52 |
| In den Visual Studio-Versionen 2005 und 2008 gab es einen Konvertierungsassitent für Visual Basic 6-Projekte.
Wie das bei neueren Versionen ist, weiß ich nicht.
Datei -- Öffnen -- Konvertieren.
Beitrag wurde zuletzt am 23.01.23 um 07:53:21 editiert. | |
Re: Sysntax Umstellung VB6 Vb.NET 2019 | | | Autor: Manfred X | Datum: 23.01.23 09:28 |
| Hallo!
VB.Net ist nicht vergleichbar mit VB6 - völlig andere Technologien.
Vergiß Deinen Code für den Zugriff auf Access und suche in diesem
Forum (Access, Dataset o.ä.).
VB.Net erfordert insgesamt eine neue Einarbeitung.
Eventuell ist es nicht sinvoll, Deine Anwendung umstellen zu wollen.
Nur wenn wesentliche Erweiterungen geplant sind, wäre daran zu denken. | |
Re: Sysntax Umstellung VB6 Vb.NET 2019 | | | Autor: Dideldum | Datum: 26.01.23 02:47 |
| Ich hatte zu Zeiten von VS2005 oder VS2008 versucht, eines meiner VB6-Projekte konvertieren zu lassen.
Nach haufenweise unkompilierbaren Programmzeilen habe ich das Handtuch geworfen.
Das Resultat war das reinste Tohuwabohu.
Heute, zehn Jahre später habe ich den Umstieg auf VB.net gewagt und programmiere nun das Projekt von Grund auf neu.
Sozusagen, um VB.net am lebenden Objekt zu erlernen.
Das bringt zwei Vorteile:
Ich habe die klare Programm-Funktionsvorstellung im Kopf und lerne dabei eben VB.net.
Als Ersteindruck muss ich zugeben, es lässt sich vieles inzwischen leichter bewerkstelligen, als mit VB6. | |
Re: Sysntax Umstellung VB6 Vb.NET 2019 | | | Autor: Schudi | Datum: 27.01.23 08:14 |
| Ich denke, dass Deine Frage im ADO.NET/Database-Forum besser aufgehoben wäre.
Der Datenbankzugriff hat sich zwischen VB6 und VB.Net grundlegend geändert.
Nachstehend ein einfaches Beispiel aus einem alten VB.NET Code eines meiner Projekte für einen Zugriff auf eine Access_Datenbank (Voraussetzung ist, dass die "Access DataBase Engine" auf dem Rechner installiert ist. Diese gibt es im Office und als separaten Download von MS:
' Data-Source is added later with the Database Path and Name
Private Con_String As String = "Provider=Microsoft.Jet.Oledb.4.0; Jet" & _
"Oledb:Database Password=Pw; Data Source="
Private Sel_StringArtikel As String = "Select * from Testdaten order" & _
"by TestNumber"
Private db_name As String
Private con As OleDbConnection
Private daTest As OleDbDataAdapter
Private dtTest As DataTable
Private cbTest As OleDbCommandBuilder
' First set the database file name.
db_name = Path.Combine(Application.StartupPath, "MeineDatenbank.mdb")
' Build the connection string
con = New OleDbConnection(Con_String & db_name)
' Declare the dataAdapter
daTest = New OleDbDataAdapter(Sel_StringTest, con)
' Build the intern DataTable
dtTest = New DataTable("meinedaten")
' the OleDBCommandBuilder builds the Insert-, Update- und DeleteCommand
' automaticly
cbTest = New OleDbCommandBuilder(daTest)
cbTest.ConflictOption = ConflictOption.OverwriteChanges
daTest.UpdateCommand = cbTest.GetUpdateCommand
daTest.InsertCommand = cbTest.GetInsertCommand
daTest.DeleteCommand = cbTest.GetDeleteCommand
' intern SUB that declares the Columns in the DataGrid
TableStyle()
Try
' Opens the Connection to the Database-File
con.Open()
daTest.FillSchema(dtTest, SchemaType.Mapped)
' Reads all Data in the Database into the DataTable
daTest.Fill(dtTest)
con.Close()
Catch ex As Exception
' Show any Error in readable text
MessageBox.Show(ex.Message, "Fehler:", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
' End
Close()
End Try Ich hoffe, ich konnte Dir damit helfen. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|