vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2017
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Fehler bei Zugriff auf DB an nur 2 Arbeitsplätzen 
Autor: Tommi467
Datum: 09.10.17 14:29

Hallo zusammen,

ich habe hier für jeden Mitarbeiter eine Datenbank, auf die dieser via Software zugreift.
Dabei ist die Datenbank Kennwort geschützt.

Bei mehr als 30 Rechnern funktioniert das einwandfrei.
Bei 2 oder 3 Rechnern gibt es aber Probleme.
An diesen Rechnern bekommt die Software keine Zugriffsberechtigung.

Nur wenn ich eine alte MDB nehme und diese ohne Kennwort als accdb
abspeichere, läuft die Software auch auf diesen Rechnern.

Auf allen Rechnern läuft Office 2010.

Kann mir jemand einen Tipp geben.
Der Zugriff erfolgt mit folgendem Schnipsel:


        Dim cn As New OleDb.OleDbConnection
        Dim dbinsert As New OleDb.OleDbCommand
 
        cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
          & Application.StartupPath & "\DB.accdb;Jet OLEDB:Database" & _
          "Password=Test;"
 
        'Verbindung wird geöffnet 
        cn.Open()
 
        dbinsert.CommandText = "INSERT INTO Stunden ( [Feld1], [Feld2]," & _
          "[Feld3], [Feld4] ) VALUES(?,?,?,?)"
 
        dbinsert.CommandType = CommandType.Text
        dbinsert.Connection = cn
 
        With dbinsert.Parameters
            .Clear()        ' Alle Parameter entfernen, die eventuell von 
            ' früherern Aufrufen vorhanden sind 
            .Add("", OleDb.OleDbType.VarChar).Value = Feld1
            .Add("", OleDb.OleDbType.DBDate).Value = Feld2
            .Add("", OleDb.OleDbType.VarChar).Value = Feld3
            .Add("", OleDb.OleDbType.VarChar).Value = Feld4
        End With
 
        dbinsert.ExecuteNonQuery()
 
        Dim query2 As String = "Select @@Identity"
 
        dbinsert.CommandText = "Select @@Identity"
        Daten_neu = dbinsert.ExecuteScalar()
 
        cn.Close()
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

Neue Version! sevEingabe 3.0 (für VB6 und VBA)
Das Eingabe-Control der Superlative! Noch besser und noch leistungsfähiger!
Jetzt zum Einführungspreis       - Aktionspreis nur für kurze Zeit gültig -
 ThemaViews  AutorDatum
Fehler bei Zugriff auf DB an nur 2 Arbeitsplätzen149Tommi46709.10.17 14:29
Re: Fehler bei Zugriff auf DB an nur 2 Arbeitsplätzen78Tommi46709.10.17 16:00
Re: Fehler bei Zugriff auf DB an nur 2 Arbeitsplätzen95stefan22027309.10.17 16:25
Re: Fehler bei Zugriff auf DB an nur 2 Arbeitsplätzen67ModeratorDaveS10.10.17 20:12
Re: Fehler bei Zugriff auf DB an nur 2 Arbeitsplätzen41stefan22027312.10.17 22:53
Re: Fehler bei Zugriff auf DB an nur 2 Arbeitsplätzen38Tommi46712.10.17 21:58
Re: Fehler bei Zugriff auf DB an nur 2 Arbeitsplätzen20Franki17.10.17 03:55

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2017 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