Quantcast
Channel: ADO.NET, Entity Framework, LINQ to SQL, NHibernate
Viewing all articles
Browse latest Browse all 1698

help me please why error in Red

$
0
0

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


Viewing all articles
Browse latest Browse all 1698

Trending Articles