Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Eingabesuchen()
- Dim oConn As ADODB.Connection
- Dim Rec As ADODB.Recordset
- 'Dim Suchergebnis As String
- 'Dim Suchanfrage() As String
- Set oConn = New ADODB.Connection
- oConn.Open "Driver={MySQL ODBC 5.1 Driver};" & _
- "SERVER=localhost;" & _
- "DATABASE=mydb;" & _
- "USER=root;" & _
- "PASSWORD=dnstuff;" & _
- "Option=3;" & _
- "Readonly=false"
- ListBox2.Clear
- Set Rec = New ADODB.Recordset
- Rec.Open "SELECT * FROM inhausartikel WHERE (Kurztext_1 LIKE'%" & TextBox1.Value & _
- "%' OR Kurztext_1_2 LIKE'%" & TextBox1.Value & _
- "%' OR Kurztext_2 LIKE'%" & TextBox1.Value & _
- "%' OR Langtext LIKE'%" & TextBox1.Value & _
- "%') AND (Kurztext_1 LIKE'%" & TextBox4.Value & _
- "%' OR Kurztext_1_2 LIKE'%" & TextBox4.Value & _
- "%' OR Kurztext_2 LIKE'%" & TextBox4.Value & _
- "%' OR Langtext LIKE'%" & TextBox4.Value & _
- "%') AND (Kurztext_1 LIKE'%" & TextBox5.Value & _
- "%' OR Kurztext_1_2 LIKE'%" & TextBox5.Value & _
- "%' OR Kurztext_2 LIKE'%" & TextBox5.Value & _
- "%' OR Langtext LIKE'%" & TextBox5.Value & _
- "%') ORDER BY Preis ASC", oConn
- With Rec
- Do Until .EOF
- ListBox2.AddItem "IDX: " & Rec("IDX") & " Preis:" & Rec("Preis") & "€"
- ListBox2.AddItem "K1: " & Rec("Kurztext_1")
- ListBox2.AddItem "K2: " & Rec("Kurztext_2")
- ListBox2.AddItem "K3: " & Rec("Kurztext_1_2")
- ListBox2.AddItem "L: " & Rec("Langtext")
- ListBox2.AddItem ""
- .MoveNext
- Loop
- .Close
- End With
- End Sub
Add Comment
Please, Sign In to add comment