_?_?_?_?_
Jeg er helt ny i vb.net.Hvordan får jeg skrevet søgningen ud ??
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
<script runat="server">
Sub Database(SQL)
dim dbconn,dbcomm,dbread
dbconn=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("Cykelhuset.mdb"))
dbconn.Open()
dbcomm=New OleDbCommand(sql,dbconn)
dbread=dbcomm.ExecuteReader()
dgOutput.DataSource=dbread
dgOutput.DataBind()
dbread.Close()
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
Dim strSQL as string
Dim wsogestr
If textbox1.text = "" then
textbox1.text = "Der skal skrives her ..."
else
'hvilken forespørgsel er valgt
wsogestr = textbox1.text
Select Case RadioButtonList1.SelectedIndex
Case 0
strSQL = "SELECT * FROM Kunde, Postnrtabel WHERE Kunde.Postnr = Postnrtabel.Postnr AND "
' * hvis det indtastede er numerisk søges på kundenr, ellers søges på navn
If isNumeric(wsogestr) Then
strSQL = strSQL & "Kundenr=" & wsogestr
else
strSQL = strSQL & "Navn Like '" & wsogestr & "%'"
End if
textbox1.text = "strSQL"
Case 1
textbox1.text = "-2-"
Case 2
textbox1.text = "-3-"
Case 3
textbox1.text = "-4-"
End Select
end if
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<asp:RadioButtonList id="RadioButtonList1" runat="server">
<asp:ListItem>Oplysninger om en kunde - indtast kundenr eller kundenavn nedenfor</asp:ListItem>
<asp:ListItem>Alle en kundes ordrer - indtast kundenr nedenfor</asp:ListItem>
<asp:ListItem>Oplysninger om en vare - indtast varenr nedenfor</asp:ListItem>
<asp:ListItem>Oplysninger om en medarbejder - indtast medarbejdernr, telefonnr eller email nedenfor</asp:ListItem>
</asp:RadioButtonList>
<br />
<asp:TextBox id="TextBox1" runat="server"></asp:TextBox>
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
<asp:DataGrid id="dgOutput" runat="server" HorizontalAlign="Center" class="left">
<HeaderStyle borderwidth="15px" width="700px" backcolor="#C0FFFF"></HeaderStyle>
<EditItemStyle backcolor="White"></EditItemStyle>
<AlternatingItemStyle backcolor="#E0E0E0"></AlternatingItemStyle>
</asp:DataGrid>
</form>
</body>
</html>
