Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Public constr As String
Public ds As New DataSet()
Public da As SqlClient.SqlDataAdapter
Public mySqlConn1 As New SqlClient.SqlConnection(constr)
Public sql, sql1, code, asd, type, cartno As String
Protected Sub submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles submit.Click
Dim conn As New SqlConnection
Dim constr As String
constr = "Data Source=.\SQLEXPRESS;AttachDbFilename=d:\Website2\App_Data\reg.mdf;Integrated Security=true;User Instance=true"
conn.ConnectionString = constr
conn.Open()
sql = "insert into userreg values('Raju','10','Kollam','Raj bhavan','90909090','Govt')"
Dim comm As New SqlCommand(sql, conn)
comm.ExecuteNonQuery()
conn.Close()
End Sub
End Class
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Public constr As String
Public ds As New DataSet()
Public da As SqlClient.SqlDataAdapter
Public mySqlConn1 As New SqlClient.SqlConnection(constr)
Public sql, sql1, code, asd, type, cartno As String
Protected Sub submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles submit.Click
Dim conn As New SqlConnection
Dim constr As String
constr = "Data Source=.\SQLEXPRESS;AttachDbFilename=d:\Website2\App_Data\reg.mdf;Integrated Security=true;User Instance=true"
conn.ConnectionString = constr
conn.Open()
sql = "insert into userreg values('Raju','10','Kollam','Raj bhavan','90909090','Govt')"
Dim comm As New SqlCommand(sql, conn)
comm.ExecuteNonQuery()
conn.Close()
End Sub
End Class




