Demonstrations > Very simple demo
Very simple demo
This simple demo searches through the Suppliers table in the Northwind database.
The code...
We have included code-samples below for VB.NET, C#, SQL and MS Access.
| Language: |
|
| Database: |
|
************************* C#, SQL ***************************
<DbCombo:DbCombo runat=server ID=Combo1 HideIntersectingSelectTags=true />
<script runat=server>
[Cambro.Web.DbCombo.ResultsMethod(true)]
public static object DbComboMethod(
Cambro.Web.DbCombo.ServerMethodArgs args)
{
DataSet dataset=new DataSet();
SqlConnection conn = new SqlConnection(
"Data Source=(local);" +
"Initial Catalog=Northwind;" +
"Integrated Security=SSPI;");
SqlDataAdapter adapter = new SqlDataAdapter();
adapter.SelectCommand = new SqlCommand(@"
SELECT TOP "+args.Top+@"
CompanyName AS DbComboText,
CustomerID AS DbComboValue
FROM Customers
WHERE CompanyName LIKE @Query
ORDER BY CompanyName", conn);
adapter.SelectCommand.Parameters.Add(
"@Query", args.Query+"%");
adapter.Fill(dataset);
conn.Close();
return dataset;
}
</script>
************************* C#, Access ************************
<DbCombo:DbCombo runat=server ID=Combo1 HideIntersectingSelectTags=true />
<script runat=server>
[Cambro.Web.DbCombo.ResultsMethod(true)]
public static object DbComboMethod(
Cambro.Web.DbCombo.ServerMethodArgs args)
{
DataSet dataset=new DataSet();
OleDbConnection conn = new OleDbConnection(
"Provider=Microsoft.Jet.OLEDB.4.0;" +
"Password=;User ID=;Data Source=" +
HttpContext.Current.Server.MapPath("northwind.mdb")+";");
OleDbDataAdapter adapter = new OleDbDataAdapter();
adapter.SelectCommand = new OleDbCommand(@"
SELECT TOP "+args.Top+@"
CompanyName AS DbComboText,
CustomerID AS DbComboValue
FROM Customers
WHERE CompanyName LIKE @Query
ORDER BY CompanyName", conn);
adapter.SelectCommand.Parameters.Add(
"@Query", args.Query+"%");
adapter.Fill(dataset);
conn.Close();
return dataset;
}
</script>
************************* VB.NET, SQL ***********************
<DbCombo:DbCombo runat=server ID=Combo1 HideIntersectingSelectTags=true />
<script runat=server>
<Cambro.Web.DbCombo.ResultsMethod(true)> _
Public Shared Function DbComboMethod( _
args As Cambro.Web.DbCombo.ServerMethodArgs) As Object
Dim dataset as DataSet = New DataSet()
Dim conn As SqlConnection = New SqlConnection( _
"Data Source=(local); " & _
"Initial Catalog=Northwind; " & _
"Integrated Security=SSPI;")
Dim adapter As SqlDataAdapter = New SqlDataAdapter()
adapter.SelectCommand = New SqlCommand( _
"SELECT TOP " & args.Top.ToString() & " " & _
"CompanyName AS DbComboText, " & _
"CustomerID AS DbComboValue " & _
"FROM Customers " & _
"WHERE CompanyName LIKE @Query " & _
"ORDER BY CompanyName", conn)
adapter.SelectCommand.Parameters.Add( _
"@Query", args.Query & "%")
adapter.Fill(dataset)
conn.Close()
return dataset
End Function
</script>
************************* VB.NET, Access ********************
<DbCombo:DbCombo runat=server ID=Combo1 HideIntersectingSelectTags=true />
<script runat=server>
<Cambro.Web.DbCombo.ResultsMethod(true)> _
Public Shared Function DbComboMethod( _
args As Cambro.Web.DbCombo.ServerMethodArgs) As Object
Dim dataset as DataSet = New DataSet()
Dim conn As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Password=;User ID=;Data Source=" & _
HttpContext.Current.Server.MapPath("northwind.mdb") & ";")
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
adapter.SelectCommand = New OleDbCommand( _
"SELECT TOP " & args.Top.ToString() & " " & _
"CompanyName AS DbComboText, " & _
"CustomerID AS DbComboValue " & _
"FROM Customers " & _
"WHERE CompanyName LIKE @Query " & _
"ORDER BY CompanyName", conn)
adapter.SelectCommand.Parameters.Add( _
"@Query", args.Query & "%")
adapter.Fill(dataset)
conn.Close()
return dataset
End Function
</script>
Demonstrations > Very simple demo |