Also iwie verstehe ich das nicht, ich habe bereits eine Datenbank(mzDataSet1) mit der Tabelle Zeiten(Zeit) und jetzt habe ich folgenden code:
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim startTime, endTime As DateTime
Dim span As TimeSpan
Dim connString As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
startTime = DateTime.Now
TextBox1.Text = startTime.ToString
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As OleDbConnection
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\...\Zeiten.mdb"
conn = New OleDbConnection(connString)
Dim dt As New DataTable("GeneralData")
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter
Dim selectQuery As String = "SELECT * FROM GeneralData"
adapter.SelectCommand = New OleDbCommand(selectQuery, conn)
conn.Open()
adapter.Fill(dt)
conn.Close()
ListBox1.DataSource = dt
ListBox1.DisplayMember = "Start"
ListBox1.ValueMember = "Start"
ListBox2.DataSource = dt
ListBox2.DisplayMember = "Stop"
ListBox2.ValueMember = "Stop"
ListBox3.DataSource = dt
ListBox3.DisplayMember = "Zeit"
ListBox3.ValueMember = "Zeit"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
endTime = DateTime.Now
span = endTime.Subtract(startTime)
TextBox2.Text = String.Format("{0}:{1}:{2}:{3}:{4}", span.Days, span.Hours, span.Minutes, span.Seconds, span.Milliseconds)
Try
Using connection As New OleDbConnection(connString)
Using command As New OleDbCommand("INSERT INTO GeneralData (Start,Stop,Zeit) VALUES (?, ?, ?)", connection)
command.Parameters.Add("@Start", OleDbType.DBTimeStamp).Value = startTime
command.Parameters.Add("@Stop", OleDbType.DBTimeStamp).Value = endTime
command.Parameters.Add("@Zeit", OleDbType.VarWChar, 255).Value = TextBox2.Text
connection.Open()
command.ExecuteNonQuery()
End Using
End Using
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End Sub
End Class
Doch bei folgendem code passiert nichts... Es wird nur TextBox1 & TextBox2 beschrieben und eine MsgBox angezeigt:
Der Microsoft Provider ist nicht auf dem lokalen Computer registriert
Was muss ich ändern?
LG Yves Riedener
