|
| |
VB & Datenbanken| Datenbankabfrage | |  | | Autor: Petermann | | Datum: 13.06.08 18:08 |
| Hallo und ein schönen Gruß,
ich bin neu hier und hoffe auf Hilfe von Euch für die ich mich schon mal im Vorraus bedanke.
Es geht um diese Abfrage:
.Source = "SELECT ID,BV,AR,AT1,ET1,AT2,ET2,Ordnungsnummer FROM Test WHERE" & t2 & "Between at1 And et1 or" & t2 & "Between at2 And et2" And " & Ordnungsnummer Like " & "'" & "%" & t3 & "%" & "'"
Dieses ----WHERE" & t2 & "Between at1 And et1 or" & t2 & "Between at2 And et2"--- funktioniert.
Dieses ----Ordnungsnummer Like " & "'" & "%" & t3 & "%" & "'"-----funktioniert.
Beides zusammen bringt mir den Fehler 13 Typen unverträglich.
Kann mir bitte jemand kommentieren wie ich beides in eine Abfrage kriege.
Code komplett:
Private Sub VcGAssignedTasks_OnDiagramLClick(ByVal x As Long, ByVal y As Long, returnStatus As Variant)
Dim Startd As String
Dim Endd As String
Dim Startdatum As String
Dim Enddatum As String
Dim t1 As Date
t1 = VcGAssignedTasks.GetDate(x)
Dim t2 As String
t2 = Format(VcGAssignedTasks.GetDate(x), "\#mm\/dd\/yyyy#")
Startd = Format(Startdatum, "\#mm\/dd\/yyyy#")
Endd = Format(Enddatum, "\#mm\/dd\/yyyy#")
Dim t3 As String
t3 = Eingang.Maschinenfilter
Dim AT1 As String
Dim ET1 As String
Dim Ordnungsnummer As Variant
Dim strPath As String
On Error GoTo err_Handler
strPath = App.Path
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
Set objConn = New ADODB.Connection
Set rsMain = New ADODB.Recordset
'rsMain.Filter = adFilterNone
'rsMain.Filter = " Ordnungsnummer Like " & "'" & t3 & "%" & "'"
With objConn
.Provider = "Microsoft Jet 4.0 OLE DB Provider"
.ConnectionString = "Data Source= C:\DB.mdb"
.Open
End With
With rsMain
.ActiveConnection = objConn
.CursorLocation = adUseClient
.Source = "SELECT ID,BV,AR,AT1,ET1,AT2,ET2,Ordnungsnummer FROM Test WHERE" & t2 & "Between at1 And et1 or" & t2 & "Between at2 And et2" And " & Ordnungsnummer Like " & "'" & "%" & t3 & "%" & "'"
.Open
End With
Set DGrid.DataSource = rsMain
With DGrid
.BorderStyle = dbgNoBorder
.Columns("ID").Width = 1000
.Columns("BV").Width = 5000
.Columns("AR").Width = 5000
.Columns("AT1").Width = 3000
.Columns("ET1").Width = 3000
.Columns("AT2").Width = 3000
.Columns("ET2").Width = 3000
.Columns("Ordnungsnummer").Width = 8000
End With
'Set DGrid.DataSource = rsMain
exit_Sub:
On Error GoTo 0
Exit Sub
err_Handler:
MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
vbCritical, "Fehler"
Resume exit_Sub
On Error GoTo 0
End Sub | |
 | 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 |
 |
|
Neu! sevCoolbar 3.0 
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access 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 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
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
|
|
Sie sind aktuell nicht angemeldet.
