Scribd
Upload
140 views124 pages

ASP Validation Controls Overview

The document describes examples of using different ASP.NET validation controls and performing CRUD operations using ADO.NET. It includes examples of using required field, regular expression, compare, range and validation summary validators. It also demonstrates performing select, insert, update and delete operations on a database table connecting to SQL Server and using parameters. Stored procedures are also implemented. The last examples demonstrate using the repeater control to display data from a database table.

Uploaded by

Anand Yogesh
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
140 views124 pages

ASP Validation Controls Overview

The document describes examples of using different ASP.NET validation controls and performing CRUD operations using ADO.NET. It includes examples of using required field, regular expression, compare, range and validation summary validators. It also demonstrates performing select, insert, update and delete operations on a database table connecting to SQL Server and using parameters. Stored procedures are also implemented. The last examples demonstrate using the repeater control to display data from a database table.

Uploaded by

Anand Yogesh
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

ASP PRACTICALS: EX 1A: REQUIRED FIELD VALIDATOR CONTROL: DESIGN:

CODING:
<asp:RequiredFieldValidatorID="RequiredFieldValidator1"runat="server" ControlToValidate="TextBox1"ErrorMessage="enter correct value" style="z-index: 1; left: 178px; top: 34px; position: absolute; height: 26px"></asp:RequiredFieldValidator>

OUTPUT:

EX 1B REGULAR EXPRESSION VALIDATOR CONTROL: DESIGN:

CODING:
<asp:RegularExpressionValidatorID="RegularExpressionValidator1"runat="server" ControlToValidate="TextBox1"ErrorMessage="RegularExpressionValidator" style="z-index: 1; left: 30px; top: 173px; position: absolute" ValidationExpression="p[0-9]{4}">enter correct value</asp:RegularExpressionValidator>

OUTPUT:

EX 1C: COMPARE VALIDATOR CONTROL: DESIGN:

CODING:
<asp:CompareValidatorID="CompareValidator1"runat="server" ControlToCompare="TextBox2"ControlToValidate="TextBox1" ErrorMessage="CompareValidator"Operator="GreaterThan" style="z-index: 1; left: 346px; top: 55px; position: absolute"Type="Date">end date must be greater than start date</asp:CompareValidator>

OUTPUT:

EX 1D: RANGE VALIDATOR CONTROL: DESIGN:

10

CODING:
<asp:RangeValidatorID="RangeValidator1"runat="server" ControlToValidate="TextBox1"ErrorMessage="RangeValidator"MaximumValue="100" MinimumValue="0"style="z-index: 1; left: 64px; top: 132px; position: absolute" Type="Integer">enter value between 0 to 100</asp:RangeValidator>

11

OUTPUT:

12

EX 1E: VALIDATION SUMMARY CONTROL: DESIGN:

13

CODING:
<asp:RequiredFieldValidatorID="RequiredFieldValidator1"runat="server" ControlToValidate="TextBox1"ErrorMessage="RequiredFieldValidator" style="z-index: 1; left: 345px; top: 79px; position: absolute">enter user id</asp:RequiredFieldValidator> <asp:RequiredFieldValidatorID="RequiredFieldValidator2"runat="server" ControlToValidate="TextBox2"ErrorMessage="RequiredFieldValidator" style="z-index: 1; left: 348px; top: 147px; position: absolute">enter password</asp:RequiredFieldValidator> <asp:ValidationSummaryID="ValidationSummary1"runat="server" HeaderText="list of errors in the page"ShowMessageBox="True" style="z-index: 1; left: 35px; top: 231px; position: absolute; height: 38px; width: 1249px"/>

14

OUTPUT:

15

EX 2A: DATA MANIPULATION OPERATION IN CONNECTIVITY ENVIRONMENT SELECT OPERATION: DESIGN:

16

CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp2", con) dr = [Link] [Link] = dr [Link]() [Link]() EndSub

17

OUTPUT:

18

EX 2B: DATA MANIPULATION OPERATION IN CONNECTIVITY ENVIRONMENT INSERT OPERATION: DESIGN:

19

CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button2_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("insert into emp2 values(3, 'britto', 30000)", con) [Link]() [Link]() EndSub

20

OUTPUT:

21

EX 2C: DELETE OPERATION: DESIGN:

22

CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button4_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("delete from emp2", con) [Link]() [Link]() EndSub EndClass

23

OUTPUT:

24

EX 2D: UPDATE OPERATION: DESIGN:

25

EX 2D: UPDATE OPERATION: CODING:


Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button3_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("update emp2 set sal=sal+5000", con) [Link]() [Link]() EndSub

26

OUTPUT:

27

EX 3A: DATA MANIPULATION OPERATORS IN CONNECTIVITY ENVIRONMENT USING PARAMETERS SELECT OPERATION: DESIGN:

28

CODING: Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) dr = [Link] [Link] = dr [Link]() [Link]() EndSub

29

OUTPUT:

30

EX 3B: INSERT OPERATION: DESIGN:

31

CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button2_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("insert into emp3 values(@x, @y, @z, @a)", con) [Link]("@x", Val([Link])) [Link]("@y", ([Link])) [Link]("@z", Val([Link])) [Link]("@a", Val([Link])) [Link]() [Link]() EndSub

32

OUTPUT:

33

EX 3C: UPDATE OPERATION: DESIGN:

34

CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button3_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("update emp3 set sal=@s where depno=@d", con) [Link]("@s", Val([Link])) [Link]("@d", Val([Link])) [Link]() [Link]() EndSub EndClass

35

OUTPUT:

36

EX 3D: DELETE OPERATION: DESIGN:

37

CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button4_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("delete from emp3 where depno=@p", con) [Link]("@p", Val([Link])) [Link]() [Link]() EndSub

38

OUTPUT:

39

EX 4: STORED PROCEDURE: DESIGN:

40

SQL QUERY:
createprocedure [dbo].[p1] ( @x asinteger, @y asvarchar(20), @z asinteger, @a asinteger )as insertinto emp3 values(@x, @y, @z, @a)

41

.NET CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("p1", con) [Link] = [Link] [Link]("@x", Val([Link])) [Link]("@y", ([Link])) [Link]("@z", Val([Link])) [Link]("@a", Val([Link])) [Link]() [Link]() EndSub ProtectedSub Button2_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) dr = [Link] [Link] = dr [Link]() [Link]() EndSub EndClass

42

OUTPUT:

43

EX 5A: WEB SERVER CONTROL-REPEATER CONTROL DESIGN:

44

.NET CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link]() [Link]() EndSub EndClass

45

HTML CODING:
<asp:RepeaterID="Repeater1"runat="server"> <HeaderTemplate> <tableborder="3"> <tr> <th>employee no</th> <th>employee name</th> <th>salary</th> <th>department</th> </tr> </HeaderTemplate> <ItemTemplate> <tr> <td><%# [Link]("eno")%></td> <td><%# [Link]("name")%></td> </tr> </ItemTemplate> <FooterTemplate> </table> </FooterTemplate> </asp:Repeater>

46

OUTPUT:

47

EX 5B: WEB SERVER CONTROL-DROP DOWN LIST CONTROL DESIGN:

48

.NET CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link] = "eno" [Link]() [Link]() EndSub EndClass

49

OUTPUT:

50

EX 5C: RADIO BUTTON LIST CONTROL: DESIGN

51

CODING:
Imports [Link] PartialClassDefault3 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link] = "name" [Link]() [Link]() EndSub EndClass

52

OUTPUT:

53

EX 5D: CHECKBOX LIST CONTROL: DESIGN

54

CODING:
Imports [Link] PartialClassDefault4 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link] = "sal" [Link]() [Link]() EndSub EndClass

55

OUTPUT:

56

EX 5E: LISTBOX CONTROL: DESIGN:

57

CODING:
Imports [Link] PartialClassDefault5 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link] = "depno" [Link]() [Link]() EndSub EndClass

58

OUTPUT:

59

EX 6A: DATALIST CONTROLS-BINDING DATASOURCE TO DATALIST CONTROL DESIGN:

60

.NET CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link]() [Link]() EndSub EndClass

61

HTML CODING:
<asp:DataListID="DataList1"runat="server" style="z-index: 1; left: 10px; top: 34px; position: absolute; height: 57px; width: 346px"> <ItemTemplate> <table> <tr> <td>employeeno</td> <td><%# [Link]("eno")%></td> </tr> <tr> <td>employee name</td> <td><%# [Link]("name")%></td> </tr> </table> </ItemTemplate> <SeparatorTemplate><hr/></SeparatorTemplate> </asp:DataList>

62

OUTPUT:

63

EX 6B: DATALIST USING STYLES: DESIGN:

64

.NET CODING:
Imports [Link] PartialClassDefault3 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link]() [Link]() EndSub EndClass

65

HTML CODING:
<asp:DataListID="DataList1"CellSpacing="20"CellPadding="10"ItemStyleBorderStyle="Dashed"AlternatingItemStyle-BackColor="Pink"ItemStyle-FontBold="true"AlternatingItemStyle-ForeColor="Blue"ItemStyle-FontNames="Arial"AlternatingItemStyle-Font-Size="10"runat="server"> <ItemTemplate> <%# [Link]("name")%> </ItemTemplate> </asp:DataList>

66

OUTPUT:

67

EX 6C: DATALIST USING TEMPLATES: DESIGN:

68

.NET CODING:
Imports [Link] PartialClassDefault4 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link]() [Link]() EndSub EndClass

69

HTML CODING:
<asp:DataListID="DataList1"runat="server"> <HeaderTemplate> <h2>employee database with salary</h2> </HeaderTemplate> <ItemTemplate> <table> <tr> <td>employee no</td> <td><%# [Link]("eno")%></td> </tr> <tr> <td>employee name</td> <td><%# [Link]("name")%></td> </tr> <tr> <td>salary</td> <td><%# [Link]("sal")%></td> </tr> </table> </ItemTemplate> <SeparatorTemplate><hr/></SeparatorTemplate> <FooterTemplate><h6>the above are the details of employee database</h6></FooterTemplate> </asp:DataList>

70

OUTPUT:

71

EX 7A: DESIGN:

72

CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp2", con) dr = [Link] [Link] = dr [Link]() [Link]() EndSub

73

OUTPUT:

74

EX 7B: MANIPULATION IN DATAGRID CONTROL-ADDING BOUND COLUMN TO DATAGRID CONTROL DESIGN:

75

.NET CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link]() [Link]() EndSub EndClass

76

HTML CODING:
<asp:DataGridID="DataGrid1"runat="server"> <Columns> <asp:BoundColumnDataField="eno"/> <asp:BoundColumnDataField="name"/> </Columns> </asp:DataGrid>

77

OUTPUT:

78

EX 7C: ADDING HYPERLINK COLUMN TO DATAGRID CONTROL DESIGN:

79

.NET CODING:
Imports [Link] PartialClassDefault3 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link]() [Link]() EndSub EndClass

80

HTML CODING:
<asp:DataGridID="DataGrid1"AutoGenerateColumns="false"runat="server" style="z-index: 1; left: 34px; top: 155px; position: absolute; height: 133px; width: 175px"> <Columns> <asp:BoundColumnDataField="eno"HeaderText="emp no"/> <asp:HyperLinkColumnDataTextField="name"NavigateUrl="name"DataNavigateUrlField="name" /> </Columns> </asp:DataGrid>

81

OUTPUT:

82

EX 7D: ADDING TEMPLATE COLUMN TO DATAGRID CONTROL DESIGN:

83

.NET CODING:
Imports [Link] PartialClassDefault4 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link]() [Link]() EndSub EndClass

84

HTML CODING:
<asp:DataGridID="DataGrid1"AutoGenerateColumns="false"runat="server" style="z-index: 1; left: 319px; top: 125px; position: absolute; height: 133px; width: 175px"> <Columns> <asp:BoundColumnDataField="eno"HeaderText="emp no"/> <asp:TemplateColumn> <ItemTemplate> <tableborder="3"> <tr> <td>employee name</td> <td><%# [Link]("name")%></td> </tr> <tr> <td>salary</td> <td><%# [Link]("sal")%></td> </tr> </table> </ItemTemplate> </asp:TemplateColumn> </Columns> </asp:DataGrid>

85

OUTPUT:

86

EX 7E: ADDING BUTTON COLUMN TO DATAGRID CONTROL: DESIGN:

87

.NET CODING:
Imports [Link] PartialClassDefault5 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim dr AsSqlDataReader ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp3", con) [Link] = [Link] [Link]() [Link]() EndSub ProtectedSub DataGrid1_ItemCommand(ByVal source AsObject, ByVal e As [Link]) Handles [Link] If [Link] = "select"Then [Link] = [Link] [Link] = True Else [Link] = [Link] [Link] = False EndIf EndSub EndClass

88

HTML CODING:
<asp:DataGridID="DataGrid1"runat="server" style="z-index: 1; left: 429px; top: 127px; position: absolute; height: 133px; width: 175px"> <Columns> <asp:BoundColumnDataField="eno"HeaderText="emp no"/> <asp:ButtonColumnCommandName="select"Text="select"/> <asp:ButtonColumnCommandName="unselect"Text="unselect"/> </Columns> </asp:DataGrid>

89

OUTPUT:

90

EX 7F: ADDING EDIT COMMAND TO DATAGRID CONTROL: DESIGN:

91

HTML CODING:
<asp:SqlDataSourceID="SqlDataSource1"runat="server" ConnectionString="<%$ ConnectionStrings:dbaseConnectionString %>" DeleteCommand="DELETE FROM [emp3] WHERE [id] = @id" InsertCommand="INSERT INTO [emp3] ([id], [name], [sal]) VALUES (@id, @name, @sal)" SelectCommand="SELECT * FROM [emp3]" UpdateCommand="UPDATE [emp3] SET [name] = @name, [sal] = @sal WHERE [id] = @id"> <DeleteParameters> <asp:ParameterName="id"Type="Int32"/> </DeleteParameters> <InsertParameters> <asp:ParameterName="id"Type="Int32"/> <asp:ParameterName="name"Type="String"/> <asp:ParameterName="sal"Type="Int32"/> </InsertParameters> <UpdateParameters> <asp:ParameterName="name"Type="String"/> <asp:ParameterName="sal"Type="Int32"/> <asp:ParameterName="id"Type="Int32"/> </UpdateParameters> </asp:SqlDataSource> <asp:DataGridID="DataGrid1"runat="server"AllowPaging="True" AllowSorting="True"AutoGenerateColumns="False"DataKeyNames="id" DataSourceID="SqlDataSource1" style="z-index: 1; left: 572px; top: 121px; position: absolute; height: 133px; width: 187px"> <Columns> <asp:CommandFieldShowDeleteButton="True"ShowEditButton="True" ShowSelectButton="True"/> <asp:BoundFieldDataField="id"HeaderText="id"ReadOnly="True" SortExpression="id"/> <asp:BoundFieldDataField="name"HeaderText="name"SortExpression="name"/> <asp:BoundFieldDataField="sal"HeaderText="sal"SortExpression="sal"/> </Columns> </asp:DataGrid>

92

OUTPUT:

93

EX 8A: CREATING DATABASE DYNAMICALLY ADDING DEFAULT VALUE TO COLUMN: DESIGN:

94

.NET CODING:
Imports [Link] PartialClassDefault2 Inherits [Link] ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] Dim dt AsDataTable Dim dc AsDataColumn Dim dr AsDataRow dt = NewDataTable("emp") dc = NewDataColumn("eno", GetType(Integer)) [Link](dc) dc = NewDataColumn("ename", GetType(String)) [Link](dc) dc = NewDataColumn("sal", GetType(Integer)) [Link] = 1000 [Link](dc) dr = [Link] dr("eno") = 1 dr("ename") = "yuvaraj" dr("sal") = 1000 [Link](dr) dr = [Link] dr("eno") = 2 dr("ename") = "britto" [Link](dr) [Link] = dt [Link]() EndSub ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] EndSub EndClass

95

OUTPUT:

96

EX 8B: MANIPULATION IN DATAGRID-MAKING COLUMN UNIQUE: DESIGN:

97

.NET CODING:
Imports [Link] PartialClassDefault3 Inherits [Link] ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] Dim dt AsDataTable Dim dc AsDataColumn Dim dr AsDataRow dt = NewDataTable("emp") dc = NewDataColumn("eno", GetType(Integer)) [Link] = True [Link](dc) dc = NewDataColumn("ename", GetType(String)) [Link](dc) dc = NewDataColumn("sal", GetType(Integer)) [Link] = 1000 [Link](dc) dr = [Link] dr("eno") = 1 dr("ename") = "vettri" dr("sal") = 1000 [Link](dr) dr = [Link] dr("eno") = 2 dr("ename") = "siva" [Link](dr) [Link] = dt [Link]() EndSub EndClass

98

OUTPUT:

99

EX 8C: ADDING AUTOINCREMENT COLUMN: DESIGN:

100

.NET CODING:
Imports [Link] PartialClassDefault4 Inherits [Link] ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] Dim dt AsDataTable Dim dc AsDataColumn Dim dr AsDataRow dt = NewDataTable("emp") dc = NewDataColumn("eno", GetType(Integer)) [Link] = True [Link] = 100 [Link] = 1 [Link](dc) dc = NewDataColumn("ename", GetType(String)) [Link](dc) dc = NewDataColumn("sal", GetType(Integer)) [Link] = 1000 [Link](dc) dr = [Link] dr("ename") = "yuvaraj" dr("sal") = 10000 [Link](dr) dr = [Link] dr("ename") = "vettri" [Link](dr) [Link] = dt [Link]() EndSub ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] EndSub EndClass

101

OUTPUT:

102

EX 8D: UPDATE RECORDS IN DATA TABLE DESIGN:

103

CODING:
Imports [Link] PartialClassDefault5 Inherits [Link] Dim dt AsDataTable Dim dc AsDataColumn Dim dr AsDataRow ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] dt = NewDataTable("emp") dc = NewDataColumn("eno", GetType(Integer)) [Link] = True [Link] = 100 [Link] = 1 [Link](dc) dc = NewDataColumn("ename", GetType(String)) [Link](dc) dc = NewDataColumn("sal", GetType(Integer)) [Link] = 1000 [Link](dc) dr = [Link] dr("ename") = "britto" dr("sal") = 1000 [Link](dr) dr = [Link] dr("ename") = "yuvaraj" [Link](dr) [Link] = dt [Link]() EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link](0).Delete() [Link] = dt [Link]() EndSub EndClass

104

OUTPUT:

105

EX 9A: MANIPULATIONS IN DATA TABLE RETRIEVE SCHEMA INFORMATION DESIGN:

106

Coding:
Imports [Link] Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim da AsSqlDataAdapter Dim ds AsNewDataSet ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() ds = NewDataSet da = NewSqlDataAdapter("select * from emp", con) [Link](ds, [Link], "emp") [Link] = ds [Link]() [Link]() EndSub EndClass

107

Output:

108

EX 9B: MANIPULATION IN DATA TABLE-DEFINING RELATIONSHIP IN DATATABLE: DESIGN:

109

Coding:
Imports [Link] Imports [Link] PartialClassDefault3 Inherits [Link] Dim dt AsDataTable Dim dt1 AsDataTable Dim dc AsDataColumn Dim dr AsDataRow Dim ds AsNewDataSet ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] dt = NewDataTable("emp") dc = NewDataColumn("eno", GetType(Integer)) [Link] = True [Link](dc) dc = NewDataColumn("ename", GetType(String)) [Link](dc) dc = NewDataColumn("sal", GetType(Integer)) [Link](dc) dc = NewDataColumn("dno", GetType(Integer)) [Link](dc) dr = [Link] dr("eno") = 1 dr("ename") = "yuvaraj" dr("sal") = 10000 dr("dno") = 10 [Link](dr) dr = [Link] dr("eno") = 2 dr("ename") = "dinesh" dr("sal") = 20000 dr("dno") = 20 [Link](dr) [Link] = dt [Link]() dt1 = NewDataTable("dept") dc = NewDataColumn("dno", GetType(Integer)) [Link] = True [Link](dc) dc = NewDataColumn("dname", GetType(String)) [Link](dc) dr = [Link] dr("dno") = 10

110

dr("dname") = "yuvaraj" [Link](dr) dr = [Link] dr("dno") = 20 dr("dname") = "dinesh" [Link](dr) [Link](dt) [Link](dt1) [Link] = dt1 [Link]() [Link]("xxx", [Link]("emp").Columns("dno"), [Link]("dept").Columns("dno")) [Link] = ds [Link]() EndSub EndClass

111

Output:

112

EX 10A: MANIPULATIONS WITH DATAVIEW-BINDING DATASOURCE TO DATAVIEW: DESIGN:

113

CODING: Imports [Link] Imports [Link] PartialClassDefault2 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim da AsSqlDataAdapter Dim ds AsNewDataSet Dim dv AsNewDataView ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link]() cmd = NewSqlCommand("select * from emp", con) da = NewSqlDataAdapter(cmd) [Link](ds, "emp") dv = [Link]("emp").DefaultView() [Link] = dv [Link]() [Link]() EndSub EndClass

114

Output:

115

EX 10B: MANIPULATION IN DATAVIEW-FILTER ROWS IN DATAVIEW: DESIGN:

116

CODING: Imports [Link] Imports [Link] PartialClassDefault3 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim da AsSqlDataAdapter Dim ds AsNewDataSet Dim dv AsNewDataView ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" [Link]() cmd = NewSqlCommand("select * from emp", con) da = NewSqlDataAdapter(cmd) [Link](ds, "emp") dv = [Link]("emp").DefaultView() [Link] = dv [Link]() [Link]() EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link] = "eno=3" [Link] = dv [Link]() EndSub EndClass

117

Output:

118

EX 10C: MANIPULATION IN DATAVIEW-SORT DATA IN DATAVIEW: DESIGN:

119

CODING: Imports [Link] Imports [Link] PartialClassDefault4 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim da AsSqlDataAdapter Dim ds AsNewDataSet Dim dv AsNewDataView ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" [Link]() cmd = NewSqlCommand("select * from emp", con) da = NewSqlDataAdapter(cmd) [Link](ds, "emp") dv = [Link]("emp").DefaultView() [Link] = dv [Link]() [Link]() EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] [Link] = "eno desc" [Link] = dv [Link]() EndSub EndClass

120

Output:

121

EX 10D: MANIPULATIONS IN DATAVIEW-FINDING RECORDS IN DATAVIEW: DESIGN:

122

Coding: Imports [Link] Imports [Link] PartialClassDefault5 Inherits [Link] Dim con AsNewSqlConnection Dim cmd AsSqlCommand Dim da AsSqlDataAdapter Dim ds AsNewDataSet Dim dv AsNewDataView ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As [Link]) [Link] [Link] = "Data Source=.; Initial Catalog=dbase; uid=sa; pwd=123qwe" cmd = NewSqlCommand("select * from emp", con) da = NewSqlDataAdapter(cmd) [Link](ds, "emp") dv = [Link]("emp").DefaultView() [Link] = dv [Link]() [Link]() EndSub ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As [Link]) Handles [Link] Dim x AsObject Dim i AsInteger [Link] = "name" x = "vettri" i = [Link](x) If (i <> -1) Then [Link](dv(i).Row("id")) Else [Link]("could not find the record") EndIf EndSub EndClass

123

Output:

124

You might also like