azbddk
سه شنبه 21 خرداد 1392, 09:51 صبح
دوستان من این کد رو نوشتم.حالا وقتی رویButton1 کلیک می کنم پیغام روبه رو رو میده:کاربرگرامی شماره کتاب تکراری است.لطفاً کمک کنید.
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Data.OleDb
Public Class S
Private ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\VAZ.mdb"
Public Add_Edit As Boolean = True
Private Sub S_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a As String = "1"
Dim str As String
If Add_Edit = True Then
Dim ocn1 As New OleDbConnection(ConnectionString)
Dim cm1 As New OleDbCommand("SELECT * FROM tblmain", ocn1)
Dim da As New OleDbDataAdapter(cm1)
Dim ds As New DataSet()
ocn1.Open()
da.Fill(ds, "tblmain")
str = Convert.ToString(CInt(cm1.ExecuteScalar()))
Dim b As Integer = Int32.Parse(str) + Int32.Parse(a)
TextBox1.Text = b.ToString()
Else
Dim ocn1 As New OleDbConnection(ConnectionString)
Dim cm1 As New OleDbCommand("SELECT * FROM tblmain", ocn1)
Dim da As New OleDbDataAdapter(cm1)
Dim ds As New DataSet()
ocn1.Open()
da.Fill(ds, "tblmain")
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
If Add_Edit = True Then
Dim ocn As New OleDbConnection(ConnectionString)
Dim ocm As New OleDbCommand()
ocm.CommandText = "INSERT INTO tblmain (ID,CodeBook,Namebook,ZirGrouh,Price,author,commen t) VALUES (@p1,@p2,@p3,@p4,@p5,@p6,@p7)"
ocm.Parameters.Clear()
ocm.Parameters.AddWithValue("@p1", TextBox1.Text)
ocm.Parameters.AddWithValue("@p2", TextBox2.Text)
ocm.Parameters.AddWithValue("@p3", TextBox3.Text)
ocm.Parameters.AddWithValue("@p4", TextBox4.Text)
ocm.Parameters.AddWithValue("@p5", TextBox5.Text)
ocm.Parameters.AddWithValue("@p6", TextBox6.Text)
ocm.Parameters.AddWithValue("@p7", TextBox7.Text)
ocm.Connection = ocn
ocn.Open()
ocm.ExecuteNonQuery()
ocn.Close()
ocn.Dispose()
MessageBox.Show("کتاب جدید با موفقیت ثبت شد", "ثبت کتاب جدید", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
Close()
End If
Catch
MessageBox.Show("کاربر گرامی شماره کتاب تکراری است", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
End Try
End Sub
End Class
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Data.OleDb
Public Class S
Private ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\VAZ.mdb"
Public Add_Edit As Boolean = True
Private Sub S_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a As String = "1"
Dim str As String
If Add_Edit = True Then
Dim ocn1 As New OleDbConnection(ConnectionString)
Dim cm1 As New OleDbCommand("SELECT * FROM tblmain", ocn1)
Dim da As New OleDbDataAdapter(cm1)
Dim ds As New DataSet()
ocn1.Open()
da.Fill(ds, "tblmain")
str = Convert.ToString(CInt(cm1.ExecuteScalar()))
Dim b As Integer = Int32.Parse(str) + Int32.Parse(a)
TextBox1.Text = b.ToString()
Else
Dim ocn1 As New OleDbConnection(ConnectionString)
Dim cm1 As New OleDbCommand("SELECT * FROM tblmain", ocn1)
Dim da As New OleDbDataAdapter(cm1)
Dim ds As New DataSet()
ocn1.Open()
da.Fill(ds, "tblmain")
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
If Add_Edit = True Then
Dim ocn As New OleDbConnection(ConnectionString)
Dim ocm As New OleDbCommand()
ocm.CommandText = "INSERT INTO tblmain (ID,CodeBook,Namebook,ZirGrouh,Price,author,commen t) VALUES (@p1,@p2,@p3,@p4,@p5,@p6,@p7)"
ocm.Parameters.Clear()
ocm.Parameters.AddWithValue("@p1", TextBox1.Text)
ocm.Parameters.AddWithValue("@p2", TextBox2.Text)
ocm.Parameters.AddWithValue("@p3", TextBox3.Text)
ocm.Parameters.AddWithValue("@p4", TextBox4.Text)
ocm.Parameters.AddWithValue("@p5", TextBox5.Text)
ocm.Parameters.AddWithValue("@p6", TextBox6.Text)
ocm.Parameters.AddWithValue("@p7", TextBox7.Text)
ocm.Connection = ocn
ocn.Open()
ocm.ExecuteNonQuery()
ocn.Close()
ocn.Dispose()
MessageBox.Show("کتاب جدید با موفقیت ثبت شد", "ثبت کتاب جدید", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
Close()
End If
Catch
MessageBox.Show("کاربر گرامی شماره کتاب تکراری است", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
End Try
End Sub
End Class