دفترچه تلفن؟!!!!

[212-212]

سلام!
می خوام یه دفترچه تلفن بنویسم با database access

حالا یه دونه از

Command Button
واسه اینه که شماره ,اسم و .... add بشه می شه لطف کنید و بگید چجوری این کار رو انجام بدم؟!(واسه add کردن مشخصه ها تو data base )
اگر امکانش هست یه سورس ساده واسه برنامه نویسی data base
بزارید
اگر توضیح بدید ممنون می شم

[212-212]

Private Sub print1(r)
Text1.Text = r("name")
Text2.Text = r("FAMILY")
Text3.Text = r("PHONE NUMBER")
Text4.Text = r("MOBILE")
Text5.Text = r("ADDRESS")
Check1.Caption = r("GENDER")
End Sub


Private Sub Check1_Click()
If Check1.Value Then
Check1.Value = 1
Else
Check1.Value = 0
End If
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew

End Sub

Private Sub Command2_Click()
Data1.Recordset.Delete
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub Command3_Click()
Dim db As Database
Dim r As Recordset
Dim name As String

Set db = OpenDatabase("C:\test.mdb")
Set r = db.OpenRecordset("te", dbOpenTable)
name = InputBox("hellO", " ENTER NAME")
r.Index = ("aname")
r.Seek "=", n
If r.NoMatch Then
MsgBox (" NAME MOREDE NAZAR VOJOOOD NADARAD!")
Else
Call print1(r)
End If
End Sub

Private Sub EXIT_Click()
l1.Caption = MsgBox(Now, vbOKOnly, " BYE!")
End
End Sub

Private Sub Form_Load()
l1.Caption = Now



End Sub

من 5 تا text box دارم 3 تا Command button
من می خوام با یه دونه Command button مشخصات اسم و... add شه تو database
ولی add نمی شه مشکلش چیه؟!!!
وقتی برنامه رو جایی دیگه( درایو دیگه save می کنم برنامه این پیغام رو میده
user-defined type not defined
وقتی می خوام search کنم اونو میده!
کلا می شه البته اگر ممکن محبت کنید مشکلاتش رو بگین؟!!!!
مرسی!!!

[benighted.boy]

یه سورس برات گذاشتم کامل نیست اما اون چیزا که خواسته بودی رو داره
اگه چیزه دیگه هم لازم داشتی خبر کن
فقط قبل استفاده databaso پر کن
واسه دوسته دیگه هم پیشنهاد میکنم همین سورسو بگیره کارش را میوفته
در مورد search هم این برنامه یه searcheکوچیک داره واسه اینکه نام تکراری وارد نشه
اما اگه search قوی تر بخواین باید بزارین واسه فردا چون الان خوابم میاد:لبخند:
سعی می کنم همین برنامه رو کامل کنم وبراتون بزارم .اگه مشکلی بود خبرم کنید
موفق باشین

[212-212]

With Adodc1.Recordset
.AddNew
!Name = Text1.Text
!lname = Text2.Text
!tel = Text3.Text
!Add = Text4.Text
!fax = Text5.Text
!mob = Text6.Text
!pic = lbl1.Caption
.Update
End Withچرا کد بالا واسه add کردن جواب میده ولی کد پایین جواب نمیده!!?!:D
Data1.Recordset.AddNew
مرسی ولی search رو ندیدم!
راستی این error چی میگه؟!
user-defined type not defined

[benighted.boy]

خوب دوست عزیز کدی که شما نوشتین ناقصه (البته اگه textboxهاتون به صورت unbound باشه اگه هم باند باشه باید دید کجا اشتباه کردی)
متد addnew فقط یه رکورد جدید اضافه میکنه و بعد از اون باید تک تک فیلدهارو با مقادیر ست کنی تا رکوردت پرشه
از طرفی کنترل دیتا ضعفهای زیادی نسبت به سایر کنترلها داره واسه همین من از adodcاستفاده کردم.در مورد search هم باید بگم کاری که الان در حال حاضر این برنامه انجام میده اینه که بعد از وارد کردن نام و نام خانوادگی چک میکنه اگر مورد مشابه بود پیغام میده میتونی با وارد کردن مقادیر مشابه امتحان کنی . واسه searchکاملتر هم الان که vb در دسترس ندارم اما برات میزارم.در مورد اون eror هم زمانی همچین ارروری میده که تابع تعریف شده وجود نداشته یاشه که باید dll مربوطه رو add کنی.
موفق باشی .:چشمک:

[benighted.boy]

ببخشین اگه دیر شد :لبخند:
2تا دفترچه تلفن گذاشتم یکی با استفاده از file
یکی با استفاده از database
امیدوارم کارتو راه بندازه
فقط وقت نکردم تست کنم اگه به مشکلی خوردی خبر کن
موفق باشی :چشمک: