جلو گیری از ذخیره داده تکراری در پایگاه داده

سلام
ببخشید این چند روز من زیاد تاپیک میزنم .
سوالم اینه که چطور می تونم قبل از ذخیره ی یک نام از وجود اون آگاه بشم و نگذارم ذخیره بشه .
من یه کد دارم اما نمی دونم چرا کار نمی کنه .
اینم کدم :

            If ds.Tables(0).Rows.Count = 0 Then

                ExpandablePanel1.Text = "چنین کاربری وجود ندارد"

                ExpandablePanel1.Expanded = True

                Timer1.Enabled = True

            Else

توی سایت هم زیاد گشتم اما به چیز جالبی بر نخوردم .

كدي كه نوشتي فقط داخل ديتا ست رو چك ميكنه نه داخل بانكت(داخل پايگاه داده).يه STP بنويس توي SQL كه Count مقدار ورودي مورد نظرت رو بهت بده واسه خروجي. اينجا بصورت Scaler فراخونيش كن ببين چند تا ازش داري اگر خروجي مخالف صفر بود يعني تكراري هستش.

کار سختی نیست.
فیلدی که نباید تکراری باشه رو (در اینجا نام) رو Primary Key می گیری.
فکر کن اسن "محمد" توی بانک وجود داره.
حالا اگر دوباره بخوای اسم "محمد" رو توی بانک ذخیره کنی یک Exception می گیری که با Catch کردن اون می تونی به مقصودت برسی.

خوب آقای حبیبی من نمی دونم باید چیکار کنم لطفا کمکم کنید
و اما آقای شاه محمدی من یه فیلد دیگه رو هم کلید اصلی قرار دادم و شاید بخوام ویرایشش کنم .
کمک کنید لطفا

کمک کمک کمک لطفا کمک کنید واقعا گیرم .


از مدیر بخش هم تقاضا دارم به دلیل فنی نبودن پست و نداشتن مطلب علمی این پست رو حداقل 24 ساعت حذف نکنند .

با سلام

میتونی از این نمونه کد استفاده کنی .

Public Class Form1

    Private cnnstring As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED  B.4.0;Data Source=|DataDirectory|\db.mdb")

    Private Function ExistRecord(ByVal fieldname As String) As Boolean

        Dim ap As New OleDb.OleDbDataAdapter("Select " & fieldname & " from table1 where " & fieldname & " ='" & txt1.Text & "'", cnnstring)

        Dim dt As New DataTable

        ap.Fill(dt)

        If dt.Rows.Count = 0 Then

            Return True

        Else

            Return False

        End If

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If ExistRecord("fname") Then

            MsgBox("کاربری با این نام یافت نشد", MsgBoxStyle.Information)

        Else

            MsgBox("کاربری با این نام قبلا ثبت شده است", MsgBoxStyle.Exclamation)

        End If

    End Sub

End Class

موفق باشید ./

سلام
ممنون اما fieldname چیه ؟
بعدشم چطور باید از این کد استفاده کنم ، منظورم اینه که کد ذخیره رو کجای اون شرط باید بزارم ؟

کمک کنید لطفا فردا صبح باید پروژه رو تحویل بدم .:گریه::گریه:


ساعت 12:00 شد واقعا کسی نیست کمک کنه ؟

نقل قول:

---

ممنون اما fieldname چیه ؟

---

ای بابا ! خوب معلومه دیگه نام فیلدی هست که دارم عمل جستجو رو براساس اون انجام میدم تا ببینم همچین رکوردی در جدول وجود داره یا نه !

نقل قول:

---

بعدشم چطور باید از این کد استفاده کنم ، منظورم اینه که کد ذخیره رو کجای اون شرط باید بزارم ؟

---

برات یه نمونه نوشتم ازش کمک بگیر .

موفق باشید ./

سلام
باتشکر از alimanam اما بازم کار نکرد نمی دونم چرا ؟
خواهشا کمک کنید بعد از ظهر باید پروژه رو تحویل بدم .
کارم خیلی خیلی گیره .

    

PublicSub AddNewBank(ByVal Bname AsString)



        BankName = Bname



        

Dim da AsNew SqlDataAdapter("SELECT * FROM Cheques.Banks", frmMain.cnMain)



        

Dim ds AsNew DataSet



        da.Fill(ds, 

"Banks")



        BankExistance = 

False



        

For i AsInteger = 0 To ds.Tables(0).Rows.Count - 1



            

If BankName = ds.Tables(0).Rows.Item(i).Item(1).ToString Then



                BankExistance = 

True



                MyBoxError(

"        ╚╟╘╧" & vbCrLf & "    ╟╙╩▌╟╧ف ءغ", " ")



                

ExitSub



            

EndIf



        

Next



        

IfNot BankExistance Then



            

Dim row As DataRow = ds.Tables(0).NewRow



            row(

"BankName") = BankName



            row(

"ModifiedDate") = Date.Now



            ds.Tables(

"Banks").Rows.Add(row)



            

Dim scb AsNew SqlCommandBuilder(da)



            da.Update(ds, 

"Banks")



            MyBoxInformation(

"     ", "  ")



        

EndIf



    

EndSub

توجه داشته باش که bankName غث پراپرتی که موقع مقدار دهی گرفته میشه

با سلام

دوست عزیز کدهایی که اقای alimanam گذاشتن درسته.

شما کافیه قبل از هر بار که میخوای یک رکورد رو ثبت بکنی چک کنی ببینی ایا قبلا تو بانک به همچون اسمی رکوردی قبلا گذاشته شده یا نه و مطمئنا مقدار true یا False برمی گرده دقیقا مطل متدی که دوستمون نوشتن حالا طریقه استفادش رو هم که توضیح دادن. من مطمئما اگر جوابی نداده احتمال زیاد اشتباه از کدهای شماست. شما کدهای خودتون رو بطور کامل و دقیق اینجا بذارید که دوستان بتونن به شکل واضح تری جوابتون رو بدن طبق چیزی که خودتون رفتید جلو.

موفق باشید

سلام
من هم این روش رو استفاده کردم :

        Connection.Open()

        ad = New SqlDataAdapter("select * from Table1 where Catgory='" & TextBox1.Text & "'", Connection)

        Dim ds2 As New DataSet

        ad.Fill(ds2, "Table1")

        If ds2.Tables(0).Rows.Count = 0 Then



            Dim cmd As New SqlCommand("Insert into Table1 (Catgory) Values(@p1)", Connection)

            cmd = New SqlCommand("IF EXISTS(SELECT * FROM yourTableName WHERE id=@id) SELECT 1 ELSE SELECT 0", Connection)

            If Connection.State = ConnectionState.Closed Then Connection.Open()

            With cmd

                .Parameters.Clear()

                .Parameters.AddWithValue("@p1", TextBox1.Text.Trim)

                .ExecuteNonQuery()

            End With



        ElseIf ds2.Tables(0).Rows.Count <> 0 Then

            ExpandablePanel1.Text = "نام کاربر تکراری است"

            ExpandablePanel1.Expanded = True

            Timer1.Enabled = True

            Exit Sub



        End If

هم این روش :

If ExistRecord("Catgory") Then

If Connection.State <> ConnectionState.Open Then

Connection.Open()

Dim cmd As New SqlCommand("Insert into Table1 (Catgory) Values(@p1)", Connection)

If Connection.State = ConnectionState.Closed Then Connection.Open()

With cmd

.Parameters.Clear()

.Parameters.AddWithValue("@p1", TextBox1.Text.Trim)

.ExecuteNonQuery()

End With

'ExpandablePanel1.Expanded = True

'ExpandablePanel1.Text = "اطلاعات با موفقيت ذخيره شد"

'Timer1.Enabled = True

TextBox1.Clear()

'Connection.Close()

MsgBox("شخص مورد نظر با موفقيت ثبت شد", MsgBoxStyle.Information)

Else

MsgBox("فردي با نام وارد شده قبلاً درپايگاه داده ثبت شده است", MsgBoxStyle.Exclamation)

End If

البته در مورد کد دوم هر بار که فرم رو باز می کنم بار اول کار نمی کنه دوباره که وارد می کنم جلوگیری میکنه ولی باز فرم رو که می بندم باز روز از نو و روزی از نو :متفکر:

تازه هر کدوم رو هم کلی دست کاری کردم بازم نشد .
کمک کنید لطفا دارم دیونه میشم به خدا .:گریه:

ببین تیموری جان کد اولت درسته باید کار کنه فقط دیگه ElseIf نذار Else بذار با BreakPoint چک کن ببین چه اتفاقی میفته

نمیشه نمیشه نمیشه بابا نمیشه به خدا نمیشه اح .

اول این رو بگم که من اصلا vb کار نکردم .
نگاه کن دوست عزیز یه چیزی میگم ولی ناراحت نشو (البته من نمی دونم شما رو چی کار می کنی شاید اشتباه کنم )
معمولا این گونه مشکلات زمانی به وجود میاد که شما تحلیل درستی از اون چیزی که میخوای پیاده کنی انجام ندادی. این راه حل هایی که دوستان گفتن مقطعی هست و در بلند مدت و در برنامه های بزرگتر شما رو دچار مشکل می کنه. البته شما با این وقت کم چاره دیگه ای ندارید.

موفق باشید.

ممنون از توجه تون با این تاپیک و برنامه ی من .

آقا واقعا دست همگی درد نکنه خیلی زحمت کشیدید ، من دیگه بی خیال این موضوع شدم این سومین سواله که این اتفاق میوفته .
خدانگهدار

با سلام

یعنی چی نمیشه مگه میخوای آپولون هوا کنی عزیز !!! این هم همون سورس با پایگاه داده SQL شما دقیقا همین کد رو کپی پست کن چون دیتابیسش عین جدول شماست !

Imports System.Data.SqlClient

Public Class Form1

    Private connection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector  y|\db.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

    Private Function ExistRecord(ByVal fieldname As String, ByVal tablename As String) As Boolean

        Dim ap As New SqlDataAdapter("Select " & fieldname & " from " & tablename & " where " & fieldname & " = N'" & TextBox1.Text & "'", connection)

        Dim dt As New DataTable

        ap.Fill(dt)

        If dt.Rows.Count = 0 Then

            Return True

        Else

            Return False

        End If

    End Function



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If ExistRecord("Catgory", "table1") Then

            Dim cmd As New SqlCommand("Insert into table1(Catgory) Values (@Catgory)")

            cmd.Connection = connection

            If connection.State = ConnectionState.Closed Then connection.Open()

            With cmd

                .Parameters.Clear()

                .Parameters.AddWithValue("@Catgory", TextBox1.Text)

                .ExecuteNonQuery()

            End With

            MsgBox("شخص مورد نظر با موفقیت ثبت شد", MsgBoxStyle.Information)

        Else

            MsgBox("فردی با نام وارد شده قبلاً درپایگاه داده ثبت شده است", MsgBoxStyle.Exclamation)

        End If

    End Sub

End Class

موفق باشید ./

سلام دوست عزیز
به آدرس زیر سر بزن حتما جوابتو می گیری
http://howprg.blogfa.com/post-11.aspx

ضمیمه 73958

به فرم FrmAdd برو و تابع Check رو نگاه کن

نمونه کد :

 

 

PrivateSub Check()

Try

If txtNumFact.Text = ""Or txtNameCustomer.Text = ""Then

MsgBox("شماره فاکتور و نام مشتری را وارد نمائید", MsgBoxStyle.ApplicationModal, "")

ExitSub

EndIf

If IsNumeric(txtNumFact.Text) = FalseThenExitSub

Dim i AsInteger

Dim con AsNew OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\db.mdb")

Dim command AsNew OleDbCommand("Select * From Tbl_db Where NumFact=@NumFact", con)

command.Parameters.AddWithValue("@NumFact", txtNumFact.Text)

Dim dr As OleDbDataReader

con.Open()

dr = command.ExecuteReader

While dr.Read

i = dr("NumFact")

EndWhile

If i > 0 Then

MessageBox.Show("عدد وارد شده تکراری است" + vbCrLf + "عدد دیگری را امتحان کنید", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

con.Close()

dr.Close()

ExitSub

EndIf

con.Close()

dr.Close()

 

 

 

Call ADD()

Catch ex As Exception

MsgBox(ex.Message)

ExitSub

EndTry

EndSub

PrivateSub ADD()

Application.DoEvents()

Dim strDate AsString = mskDate.Text

If ChDate.Checked = TrueThen

strDate = MdlDate.DateShamsi

EndIf

Try

Dim c AsNew OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\db.mdb")

Dim D_add AsNew OleDbDataAdapter

Dim g AsString = cmbGroup.Text

Dim M AsString = cmbMonth.Text

 

Dim co AsNew OleDbCommand("INSERT INTO Tbl_db(NumFact,NameCustomer,City,Masoolpey,MasoolN  asb,[Month],[Group],Adr,Mobile,Tell,[Date],other)Values(@NumFact,@NameCustomer,@City,@Masool  pey,@MasoolNasb,@Month,@Group,@Adr,@Mobile,@Tell,@  Date,@other)", c)

 

co.Parameters.AddWithValue("NumFact", txtNumFact.Text)

co.Parameters.AddWithValue("NameCustomer", txtNameCustomer.Text)

co.Parameters.AddWithValue("City", txtCity.Text)

co.Parameters.AddWithValue("Masoolpey", txtMasoolPey.Text)

co.Parameters.AddWithValue("MasoolNasb", txtMasoolNasb.Text)

co.Parameters.AddWithValue("Month", cmbMonth.Text)

co.Parameters.AddWithValue("Group", cmbGroup.Text)

co.Parameters.AddWithValue("Adr", txtadr.Text)

co.Parameters.AddWithValue("Mobile", txtmobile.Text)

co.Parameters.AddWithValue("Tell", txtTell.Text)

co.Parameters.AddWithValue("Date", strDate)

co.Parameters.AddWithValue("other", txtOther.Text)

c.Open()

co.ExecuteNonQuery()

c.Close()

MessageBox.Show("اطلاعات با موفقیت در بانک اطلاعاتی ثبت شد", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

 

Catch ex As Exception

MsgBox(ex.Message)

EndTry

 

txtNumFact.Text = ""

txtadr.Text = ""

txtCity.Text = ""

txtMasoolNasb.Text = ""

txtMasoolPey.Text = ""

txtmobile.Text = ""

txtNameCustomer.Text = ""

txtOther.Text = ""

txtTell.Text = ""

mskDate.Text = ""

cmbGroup.SelectedIndex = 0

cmbMonth.SelectedIndex = 0

 

txtNumFact.Focus()

 

EndSub



 

 

این همه دردسر واسه چیییییییییییییییی؟ شما میتونید در هنگام طراحی بانک اطلاعاتی اون فیلد رو یونیک کنید خیلی هم سادست من یه کد از خود اس کیو ال میگذارم

create table n(name nvarchar(22)null,unique(name))

دستور unique یک کلید فرعی میباشد که از ورود داده های تکراری جلوگیری میکند برای فیلدهایی مثل نام ما نباید انها رو از نوع کلید اصلی بگذاریم
این در جواب دوست عزیزم که گفته بودن میتونید این فیلد رو کلید اصلی قرار دهید میشه اما تا کلید فرعی هست چرا بریم سراغ کلید اصلی؟؟؟؟؟؟؟؟؟؟؟
امیدوارم ناراحت نشده باشید
موفق باشید

سلام دوست عزیز به آدرس زیر سری بزن (پروژه کامل هست) به قسمت (جدید) پروژه رفته (شماره فاکتور نمی تواند تکراری باشد)
http://howprg.blogfa.com/post-11.aspx