I'm trying to do a simple data inserting using variables from text box input. I'm also new to VB.net but have used VB6. I get and error code at the Executenonquery line and don't know why.
Imports system.data.sql client
Public Class Form1
Dim v1 As String
Dim v2 As String
Dim connectionstrin g As String = "Data Source=SBSERVER ;Initial Catalog=graygo_ test;Integrated Security=True"
Dim conn1 As New SqlConnection(c onnectionstring )
Dim commandstring As String = "select * from custinfo"
Dim dataadapter As New SqlDataAdapter( commandstring, conn1)
Dim ds_graygo As New DataSet()
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
End Sub
Private Sub btninsertrecord _click(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click
v1 = TextBox1.Text
v2 = TextBox2.Text
Dim cmdstring = "insert into cusinfo (cusid,cusnam,c uadd) values (4,v1,v2)"
Dim cmd As New SqlCommand(cmds tring, conn1)
conn1.Open()
cmd.ExecuteNonQ uery()
conn1.Close()
End Sub
Imports system.data.sql client
Public Class Form1
Dim v1 As String
Dim v2 As String
Dim connectionstrin g As String = "Data Source=SBSERVER ;Initial Catalog=graygo_ test;Integrated Security=True"
Dim conn1 As New SqlConnection(c onnectionstring )
Dim commandstring As String = "select * from custinfo"
Dim dataadapter As New SqlDataAdapter( commandstring, conn1)
Dim ds_graygo As New DataSet()
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
End Sub
Private Sub btninsertrecord _click(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click
v1 = TextBox1.Text
v2 = TextBox2.Text
Dim cmdstring = "insert into cusinfo (cusid,cusnam,c uadd) values (4,v1,v2)"
Dim cmd As New SqlCommand(cmds tring, conn1)
conn1.Open()
cmd.ExecuteNonQ uery()
conn1.Close()
End Sub
Comment