|
| |
|
|
| Tools & Components Anzeigen |
| |
 Unser Tipp: Alle Online-Forenbeiträge aus dem vb@rchiv - gesammelt in einer Offline-Wissendatenbank, mit Internet-Update-Funktion, u.v.m. |
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 |
 |
|
Unser Dauerbrenner! vb@rchiv  Vol.5
650 MB geballtes Wissen aus 6 Jahren vb@rchiv
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Buchempfehlung Tipp des Monats November 2008
Dieter OtterSnapshot einer Webseite erstellenMit dieser Funktion lässt sich ein Snapshot einer Webseite erstellen, die aktuell im WebBrowser-Control angezeigt wird. sevMail für VB/VBA 
Mails abrufen und senden - ganz easy :-)
Mailversand mit ZIP-Funktion, Unterstützung von SMTP-AUTH (authentifizierter Mailversand), Abholen von Mails mit Vorschau, Mail-Parser zum Decodieren aller MIME-Parts und Anlagen, RTF2HTML-Funktion u.v.m. Kostenlos testen! |
Sie sind aktuell nicht angemeldet.
