vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Fortgeschrittene Programmierung
Re: Doppelte Datensätze verhindern 
Autor: ThomasK
Datum: 16.12.02 09:14

Hallo,

irgendwie läuft das ganze nicht so richtig. Weißt du vielleicht wo der fehler liegt??

Fehlermeldung: Für mindestens einen wert wurde kein wert angegeben.

die fehlermeldung kommt beim adodc1.refresh!!!!!!
Hier der CODE:

Private Sub Form_Load()
Dim Anzahl As Integer
Dim wert1 As String
Dim wert2 As String
Dim a, b, c, d, e, f, g, h
Dim DBS As DAO.Database
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
wert1 = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
wert2 = "Data Source=" & (App.Path + "\" + "sms.mdb") & ";"
Adodc1.ConnectionString = wert1 + wert2
Set DBS = DBEngine.OpenDatabase(App.Path + "\" + "sms.mdb", False, False, ";pwd=" & Password)

Set rst = DBS.OpenRecordset("fault_test")


rst.MoveFirst
With rst
a = .Fields(0)
b = .Fields(1)
c = .Fields(2)
d = .Fields(3)
e = .Fields(4)
f = .Fields(5)
g = .Fields(6)
h = .Fields(7)

End With

Set rst1 = DBS.OpenRecordset("SCADA_fault")


rst.MoveFirst
With rst1


Adodc1.RecordSource = "SELECT * From SCADA_Fault where ((Loc_Number) = a) and ((Date) = b) and ((hour) = c )and ((minute) = d) and ((second) = e) and ((PlantNr) = f) and ((State) = g) and ((substate) = h)"
Adodc1.Refresh
'With Adodc1
Anzahl = Adodc1.Recordset.RecordCount
End With
If Anzahl > 0 Then
' --- DB füllen ---
Else
Exit Sub
End If
End Sub




 
l für die Hilfe!!
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Doppelte Datensätze verhindern953ThomasK12.12.02 16:02
Re: Doppelte Datensätze verhindern653mnjakob12.12.02 16:22
Re: Doppelte Datensätze verhindern694mnjakob12.12.02 16:47
Re: Doppelte Datensätze verhindern652ThomasK12.12.02 17:10
Re: Doppelte Datensätze verhindern636landx13.12.02 12:37
Re: Doppelte Datensätze verhindern624mule15.12.02 22:47
Re: Doppelte Datensätze verhindern701ThomasK16.12.02 09:14

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-2025 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