Skip Navigation Links.

Get Started

Sample Code

Download

ASP.NET Web Application Sample Source Code Demo
Purposes: Create table, input and view data from database via ASP.NET Web Application(VB) using iosc.dll. iosc.dll is customize class to speed up repeat function or procedure.

Index	Sample source code with demo
1	Download iosc.dll
2	Create new database (Microsoft SQLExpress 2014).
3	Create new project using Microsoft Visual Studio.
4	Add Reference.
5	Add database connection in web.config and copy&paste the following. <connectionStrings> <add name="ConnString" connectionString="Data Source=.\sqlexpress;Initial Catalog=sample;Integrated Security=True" providerName="System.Data.SqlClient" /> </connectionStrings>
6	View in Code of Tablesetup.aspx - To create table and column and copy&paste the following to Page_Load. Dim ConnStr As String = ConfigurationManager.ConnectionStrings("ConnString").ConnectionString Dim iocommon As New iosc.iocc Dim iosql As New iosc.iosql Dim SQLStr As String = "" Dim Table_name As String 'Create Table Table_name = "Tablename_1" If iosql.SQLCheckTableExist(Table_name, ConnStr) = False Then SQLStr = "id:id,data1:s" iosql.createiotable(ConnStr, Table_name, iosql.Ret_CreateTblStr(Table_name, SQLStr)) End If Response.Redirect("WebForm1.aspx")
7	View in Design of Webform1.aspx - Add gridview, textbox and button and copy&paste the following. <Columns> <asp:HyperLinkField DataNavigateUrlFields="ID" DataNavigateUrlFormatString="WebForm1.aspx?Edit={0}" DataTextField="ID" DataTextFormatString="Edit"></asp:HyperLinkField> </Columns>
8	View in Code of Webform1.aspx - Add, edit and display data by copy&paste the following. Public Class WebForm1 Inherits System.Web.UI.Page Dim ConnStr As String = ConfigurationManager.ConnectionStrings("ConnString").ConnectionString Dim iocommon As New iosc.iocc Dim iosql As New iosc.iosql Dim QueryString_EditID As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load QueryString_EditID = Request.QueryString("Edit") If Not IsPostBack Then Display_Load_Data() If QueryString_EditID = "" Then Button1.Text = "Add" Else Button1.Text = "Edit" Display_EditRecord(QueryString_EditID) End If End If End Sub Public Sub Display_Load_Data() GridView1.DataSource = iocommon.GetDataTable("select * from Tablename_1", ConnStr) GridView1.DataBind() End Sub Public Sub Display_EditRecord(ByVal EditID As String) Dim dt As DataTable = iocommon.GetDataTable("SELECT data1 FROM Tablename_1 where id=" & EditID, ConnStr) If dt.Rows.Count <> 0 Then TextBox1.Text = dt.Rows(0).Item(0).ToString() End If End Sub Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Table_name As String = "Tablename_1" Dim SQLStr_Add As String = "data1" Dim StrArr(0) As String StrArr(0) = TextBox1.Text Select Case Button1.Text Case "Add" Dim ReturnInt As Integer = iosql.AddUpdSQLDataRetInt(ConnStr, "i", Table_name, SQLStr_Add, StrArr) Case "Edit" iosql.AddUpdSQLDataRetInt(ConnStr, "u", Table_name, SQLStr_Add, StrArr, "id", QueryString_EditID) End Select Response.Redirect("WebForm1.aspx") End Sub End Class