chris_lance
Grünschnabel
hallo ich bin neu hier und will auch direkt mit einem problem starte 
.
also ich würde gerne daten von einer seriellen einlesen und diese dann in eine access datenbank speichern (mit datum und so). nun hab ich bereits mich im internet schlau gemacht und einen code dazu gefunden, jedoch schreibt mir vb immer, dass es die anweisung nicht kennt.
folgenden code hab ich verwendet und im editorfenster eingefügt:
Imports System.Data.OleDB
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgende
' Attributgruppe gesteuert. Ändern Sie diese Attributwerte, um Informationen,
' die mit einer Assembly verknüpft sind, zu bearbeiten.
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("")>
<Assembly: AssemblyCopyright("")>
<Assembly: AssemblyTrademark("")>
<Assembly: CLSCompliant(True)>
'Die folgende GUID ist für die ID der Typbibliothek, wenn dieses Projekt in COM angezeigt wird
<Assembly: Guid("4A146ABF-079A-4B05-86F7-0FC14FFD783B")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Haupversion
' Nebenversion
' Buildnummer
' Revisionsnummer
'
' Sie können alle Werte angeben oder auf die standardmäßigen Build- und Revisionsnummern
' zurückgreifen, indem Sie '*' wie unten angezeigt verwenden:
<Assembly: AssemblyVersion("1.0.*")>
Private dbpath As String = System.IO.Path.Combine(Application.StartupPath, "Flowmeter.mdb")
Private conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbpath & ";")
Private sql As String = "SELECT * FROM Users;"
Private cmd As New OleDbCommand(sql, conn)
Private da As New OleDbDataAdapter(cmd)
Private ds As New DataSet
Private Sub LOAD_Table()
Try
'Verbindung zur Datenbank öffnen
conn.Open()
'Inhalte des Dataset zunächst löschen
ds.Clear()
'Dataset mit der Tabelle Users füllen
da.Fill(ds, "Users")
'Datagrid anbinden
DataGrid1.SetDataBinding(ds, "Users")
'Combobox anbinden
cboUsername.DataSource = ds
cboUsername.DisplayMember = "Users.Username"
Catch ex As OleDbException
MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Finally
'Verbindung zur Datenbank auf jeden Fall wieder schließen
conn.Close()
End Try
End Sub
wir ihr sehn könnt hab ich nicht all zu viel ahnung von vb. bitte helft mir und sagt was ich falsch mache bzw. wie ich es anstellen soll.
lg chris
.also ich würde gerne daten von einer seriellen einlesen und diese dann in eine access datenbank speichern (mit datum und so). nun hab ich bereits mich im internet schlau gemacht und einen code dazu gefunden, jedoch schreibt mir vb immer, dass es die anweisung nicht kennt.
folgenden code hab ich verwendet und im editorfenster eingefügt:
Imports System.Data.OleDB
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgende
' Attributgruppe gesteuert. Ändern Sie diese Attributwerte, um Informationen,
' die mit einer Assembly verknüpft sind, zu bearbeiten.
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("")>
<Assembly: AssemblyCopyright("")>
<Assembly: AssemblyTrademark("")>
<Assembly: CLSCompliant(True)>
'Die folgende GUID ist für die ID der Typbibliothek, wenn dieses Projekt in COM angezeigt wird
<Assembly: Guid("4A146ABF-079A-4B05-86F7-0FC14FFD783B")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Haupversion
' Nebenversion
' Buildnummer
' Revisionsnummer
'
' Sie können alle Werte angeben oder auf die standardmäßigen Build- und Revisionsnummern
' zurückgreifen, indem Sie '*' wie unten angezeigt verwenden:
<Assembly: AssemblyVersion("1.0.*")>
Private dbpath As String = System.IO.Path.Combine(Application.StartupPath, "Flowmeter.mdb")
Private conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbpath & ";")
Private sql As String = "SELECT * FROM Users;"
Private cmd As New OleDbCommand(sql, conn)
Private da As New OleDbDataAdapter(cmd)
Private ds As New DataSet
Private Sub LOAD_Table()
Try
'Verbindung zur Datenbank öffnen
conn.Open()
'Inhalte des Dataset zunächst löschen
ds.Clear()
'Dataset mit der Tabelle Users füllen
da.Fill(ds, "Users")
'Datagrid anbinden
DataGrid1.SetDataBinding(ds, "Users")
'Combobox anbinden
cboUsername.DataSource = ds
cboUsername.DisplayMember = "Users.Username"
Catch ex As OleDbException
MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Finally
'Verbindung zur Datenbank auf jeden Fall wieder schließen
conn.Close()
End Try
End Sub
wir ihr sehn könnt hab ich nicht all zu viel ahnung von vb. bitte helft mir und sagt was ich falsch mache bzw. wie ich es anstellen soll.
lg chris
