کار با دیتابیس

[ezraiil 20]

سلام دوستان

من میخوام کاری کنم که اگه ادیت تکست من برابر فیلد اولی که در دیتابیس بود ، یکی شد

یک مسیج باکس بده

بگه : حله ، یکی هست

مرسی   

[ezraiil 20]

http://answercenter.ir/topic/127-آموزش-اضافه-حذف-و-ویرایش-اطلاعات-در-دیتابیس/

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

Dim Cr As Cursor

Cr = SQL.ExecQuery("SELECT * FROM tbl WHERE name="&EditText1.Text)

if Cr.RowCount > 0 Then

 MsgBox("OK","")

End If

[ezraiil 20]

این ارور چیه دیگه :|

[arastooms 1,046]

 

این ارور چیه دیگه :|

 

این ارور برای شما چند دلیل میتونه داشته باشه

1- کتابخانه  sql رو تیک نزدید

2- اگر دقیقا کد های آقا مجید رو کپی کردید باید ببینید در این ساب شما چه اسمی رو تعریف کردید و اون رو تغیر بدید 

برای مثال ساب من اینطوری هست 

 

Sub Process_Globals
	
	Dim sql1 As SQL
	Dim cur As Cursor
	
	End Sub

من تعریف کردم sql1 و اگر بیام دستور آقا مجید رو کپی پیست کنم باید بیام 

sql که خطا داده رو به  sql1  عوض کنم 

[ezraiil 20]

من فراخوانی نکردم

اصلا فراخوانی چیه ؟