Imports System.Data.SqlClient
Public Class delicious
Inherits System.Web.UI.Page
Dim conn As New SqlConnection(" Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\delicious.mdf;Integrated Security=True")
Dim dd As New SqlCommand
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
Dim insertQuery As String = "insert inti delicious(Id,name,flavour,cone_size)" &
"values('" & txtName.Text & "','" & txtFlavour.Text & "','" & txtSize.Text & "')"
Dim comm As New SqlCommand(insertQuery, conn)
executeMyQuery(comm, "Done Insert")
views()
End Sub
Sub executeMyQuery(comm As SqlCommand, msg As String)
conn.Open()
If comm.ExecuteNonQuery = 1 Then
MsgBox(msg)
Else
MsgBox("Query not execute")
End If
conn.Close()
End Sub
Sub views()
Dim viewAll As String = "Select * from delicious"
Dim comm As New SqlCommand(viewAll, conn)
Dim adp As New SqlDataAdapter(comm)
Dim dt As New DataTable
adp.Fill(dt)
Dim ds As New DataSet
GridView1.DataBind()
End Sub
End Class