INSERT و چک کردن UNIQUE بودن

[srezay 37]

سلام خدمت همگی، ایراد این کد چیه که تراکنشی نداره؟

sql1.ExecNonQuery("INSERT INTO offline_tbl pack,title VALUES('" &mypack&"','" &mtitle&"') UNIQUE ('title' ASC) ON CONFLICT IGNORE")

[مجید آرتا 5,872]

خب شما برای اینکه فیلد مورد نظرتون مختوا تکراری نداشته باشه میتونید از نوع Primary  قرار بدید.

شما ایا از این قابلیت استفاده کردید یا خیر ؟

[srezay 37]

توی navicat هم پرایمری کردم هم از تب یونیک شرط گذاشتم، وقتی این کار رو بکنم نرم افزار هیچی اضاف نمیکنه...

بعد از اینکه دیتابیس با اطلاعات تکراری پر شد چی؟ میشه بهسازیش کرد؟ من این کد رو زدم ولی درست جواب نمیده:

Dim clearme As String
Dim sqlchk As Int
cur1= sql1.ExecQuery("SELECT * FROM offline_tbl")
sqlchk=cur1.RowCount-1
For i=0 To sqlchk
این خط رو نوشتم که آیتم مرجع رو پاک نکنه>>>         cur1.Position=i+1
clearme=cur1.GetString("title")
sql1.ExecNonQuery("DELETE FROM offline_tbl where title ='"&clearme&"' ")
offer.Clear
cur1 = sql1.ExecQuery("SELECT * FROM offline_tbl")
Next

[sajjad3011 29]

خیلی ساده :

 

قبل از insert یک select رو اجرا کن با where column_name=onsor_voroodi

اگه وجود داشت و تعداد سطرهای Cursor بیش از صفر شد یعنی تکراری هست و نباید درج کنی.

[مهدی ایزدی 9,203]

دوست عزیز حرفی که آقا سجاد هم به شما زد رو من توی اون یکی تاپیک به شما زدم

نمیدونم شما طبق چه اصولی کدهای من درآوردی تولید میکنید

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