Variabler i SQL-satsen

Vi vill att användaren skall kunna skriva ett sökord att söka efter. Då måste vi lägga sökordet i en variabel som sedan används i SQL-frågan. Markera fliken Sök kund i TabControl och lägg dit en TextBox. Sedan dimensionerar vi en variabel:

Dim varKund As String

och överst i knappen:

varKund = TextBox1.Text
Sql = "SELECT * FROM Kunder WHERE Namn LIKE '" & varKund & "'"

Observera hur man omger variabelnamnet med enkelfnutt, dubbelfnutt och et-tecken på vänster sida om variabeln, ich tvärtomn på höger sida. Om vi vill använda jokertecken lägger vi in det så här:

Sql = "SELECT * FROM Kunder WHERE Namn LIKE '%" & varKund & "%'"

På samma sätt kan vi göra med flikarna Sök Ort och Sök Vara. Sql-satserna blir:

Sql = "SELECT * FROM Kunder WHERE Ort LIKE '%" & varOrt & "%'"

och

Sql = "SELECT * FROM Varor WHERE Vara LIKE '%" & varVaror & "%'"

Vi behöver nu några If-sater för att kolla vilken TextBox som det är skrivet i. Dessutom en kod i slutet som raderar det som står i TextBoxen, så att det går att söka i en annan flik. Vi vill också att ett sökresultat skall försvinna i vårt DataGrid när vi gör en ny sökning. Det gör vi allra överst i knappen med raden:

objDS.Tables.Clear()

Sedan kommer If-satserna:

If TextBox1.Text <> "" Then
   varKund = TextBox1.Text
   Sql = "SELECT * FROM Kunder WHERE Namn LIKE '%" & varKund & "%'"
End If
If TextBox2.Text <> "" Then
   varOrt = TextBox2.Text
   Sql = "SELECT * FROM Kunder WHERE Ort LIKE '%" & varOrt & "%'"
End If
If TextBox3.Text <> "" Then
   varVara = TextBox3.Text
   Sql = "SELECT * FROM Varor WHERE Vara LIKE '%" & varVara & "%'"
End If

Sist i koden raderas texten i TextBoxarna:

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

SupportData.Net
©