Question

E Edit View Website Build Debug Team Tools Architecture Test Analyze Window Help Sign in 2. Debug A ny CPU - Internet Explorer 11 : ? 1 C P Addbooks.aspx.vb* = X Addbooks.aspx e datademo 1 btnadd Click e Partial Class Addbooks Inherits System.Web.UI. Page Dim on As New Data.SqlClient.SqlConnection Data Source(local)SMSSQL Local Attasbobinas Detalicester Author...udanteerated Security=True) references Protected Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd. Click cn.Open() Dim cmd As New Data.SqlClient.SqlCommand( INSERT INTO BookTitis ( BoekTitle Book Summarxiduthern PublishedYear VALUES & txtbooktitle. Text & * & txtsummary. Text & & txtauthorid. Text & & txtpublished. Text & **)"), cn) cmd.ExecuteNonQuery() cn.Close() Label1.Text = txtbooktitle. Text &" &" You have been added to the book list!" . txtbooktitle. Text = " txtsummary.Text = txtauthorid.Text = txtpublished. Text = End Sub O references Protected Sub btnclear Click(sender As Object, e As EventArgs) Handles btnclear.Click txtbooktitle.Text - txtsummary.Text - txtauthorid.Text = " txtpublished. Text = " End Sub End Class 0

I'm having trouble getting this page to run. the first picture has the coding and the second picture has the error message. i also attached my tables if it would help.

Answer 1

In your program BookId is the primary key of BookTitle table. Also when your query executes then primarykey is NULL, then error is occurring. If your BookId is autonumber then it’s ok.

I have written some code, hope this will help you.

Imports System.Data.SqlClient

Public Class Form1

Dim str As String

Dim cn As SqlConnection

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn = new SqlConnection("Data Source=(local);Initial Catalog=master;Integrated Security=True");  
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cn.Open()
str = "insert into Tablename values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"  
cmd = New OleDbCommand(str, cn)
cmd.ExecuteNonQuery()
MessageBox.Show("Record added Successfully")
cn.Close()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox1.Focus()
End Sub