Imports System.Data
Imports System.Data.SqlClient
Partial Class
Inherits System.Web.UI.Page
Protected Sub ButtonSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonSend.Click
Dim con As New SqlConnection("Data Source=wincts;Initial Catalog=CTS;Integrated Security=True")
Dim insertCommand As String = ("INSERT INTO [CPD_HandHygiene] ([Your Name], [Your GDC Number], [Your Email], [Your Position], [Practice Name], [Postcode], [Practice Email], [Phone], [Fax], [Practice Website], [Number of Hygienists], [Number of Dentists]) VALUES ('" & TextBoxIndName.Text & "','" & TextBoxGDC.Text & "','" & TextBoxIndEmail.Text & "','" & PositionDropDownList.DropDownList & "','" & TextBoxName.Text & "','" & TextBoxPostCode.Text & "','" & TextBoxEmail.Text & "','" & TextBoxPhone.Text & "','" & TextBoxFax.Text & "','" & TextBoxWebsite.Text & "','" & NoHygDropDownList.DropDownList & "','" & NoDenDropDownList.DropDownlist )")
Dim cmd As New SqlCommand(insertCommand, con)
Using con
con.Open()
Dim inserted As Integer = cmd.ExecuteNonQuery()
If inserted <> -1 Then
Response.Write("Successfully inserted")
Else
Response.Write("Not inserted")
End If
End Using
End Sub
dibblejon
Member
23 Points
34 Posts
Incorrect partial class
Apr 21, 2010 02:01 PM|LINK
Hi
How do I insert the partial class to be correct?
Imports System.Data Imports System.Data.SqlClient Partial Class Inherits System.Web.UI.Page Protected Sub ButtonSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonSend.Click Dim con As New SqlConnection("Data Source=wincts;Initial Catalog=CTS;Integrated Security=True") Dim insertCommand As String = ("INSERT INTO [CPD_HandHygiene] ([Your Name], [Your GDC Number], [Your Email], [Your Position], [Practice Name], [Postcode], [Practice Email], [Phone], [Fax], [Practice Website], [Number of Hygienists], [Number of Dentists]) VALUES ('" & TextBoxIndName.Text & "','" & TextBoxGDC.Text & "','" & TextBoxIndEmail.Text & "','" & PositionDropDownList.DropDownList & "','" & TextBoxName.Text & "','" & TextBoxPostCode.Text & "','" & TextBoxEmail.Text & "','" & TextBoxPhone.Text & "','" & TextBoxFax.Text & "','" & TextBoxWebsite.Text & "','" & NoHygDropDownList.DropDownList & "','" & NoDenDropDownList.DropDownlist )") Dim cmd As New SqlCommand(insertCommand, con) Using con con.Open() Dim inserted As Integer = cmd.ExecuteNonQuery() If inserted <> -1 Then Response.Write("Successfully inserted") Else Response.Write("Not inserted") End If End Using End SubCruzerB
Contributor
5399 Points
1098 Posts
Re: Incorrect partial class
Apr 21, 2010 02:41 PM|LINK
Dear dibblejon,
U forget to gv a name to ur class.
Partial Class "Class_name"
My Technical Blog