DataEnvironment

[evilboy]

از دوستان کی با DataEnvironment کار کرده ؟

چند تا سوال داشتم

ممنون

[perfeshnal]

سلام

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

[evilboy]

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

اینو جواب بدید تا به بعدیا برسیم :کف:
ممنون

[perfeshnal]

سلام

ما هم امیدت رو نامید نمیکینم این یک نمونه برنامه برای هین سوال البته بجای DataEnvironment از Adodc استفاده کردم. :چشمک:
موفق باشی

[evilboy]

دوست عزیز Adodc نهههه:گریه: آخه من اصلا با Adodc کار نکردم
فقط DataEnvironment

[perfeshnal]

سلام

Adodc که برای استفاده در فرم بهتره به نظر من که از Adodc استفاده کن زیادم سخت نیست و فرقی هم با DataEnvironment نداره
ولی اگر کارت با DataEnvironment راه می افته باشه می نویسم

[evilboy]

لطف بزرگی می کنی اگر با DataEnvironment بنویسی

[torshizi]

این هم یک قطعه کد جهت جستجو به وسیله dataenvironmentاستفاده بفرمایید.البته ایجاد بانک و اتصالات را باید انجام دهید
Private Sub command1_click()
If Text1.Text = "" Then
MsgBox "اطلاعات در تکست باکس وجود ندارد", vbCritical
Text1.SetFocus
Exit Sub
End If
If DataEnvironment1.rsCommand1.State = 0 Then
DataEnvironment1.rsCommand1.Open
End If
If DataEnvironment1.rsCommand1.RecordCount = 0 Then GoTo 10
DataEnvironment1.rsCommand10.MoveFirst
10 DataEnvironment1.rsCommand1.Find ("cod=" & Trim(Text1.Text))
If DataEnvironment1.rsCommand1.EOF Then
Exit Sub
Else
MsgBox "!!مشخصات ورودی تکس باکس قبلادر بانک ثبت شده است ", vbCritical, "ÎÜÜÜÜÜØÇ"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

[اوبالیت به بو]

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

[majidrezaei2007]

سلام عزیزم . به نظر من ساده ترین راه اینه که یک label بندازی رو فروم و ویزیبلش رو فالس کنی و datafield اون رو به فیلد نام بانکت وصل کنی . حالا این کد رو بنویسی

with d.rscommand1
if .state=0 then .open
.movefirst
if .eof = false and label1.caption = text1.text then 1
msgbox "ghablan sabt shode"
exit sub
else
.move next
goto 1
end with

البته من نام اتون لیبل رو label1 و نام جعبه نام رو text1 فرض کردم
تا اینجا کد فقط چک میکنه که قیلا ثبت نشده باشه
بعد از اون می تونی کد مورد نظرتو بنویسی