با سلام:
من در حال نوشتن یک برنامه هستم البته ابتدایی. می خوام دیتابیس رو جستجو کنم و نتیجه رو در یک لیست باکس بریزم. با object دیتا به دیتابیس وصل شدم و می خوام نتیجه ی جستجو رو در یک فرم دیگه و در لیست باکس بریزم. لطفا کمک کنید.
مرسی
Printable View
با سلام:
من در حال نوشتن یک برنامه هستم البته ابتدایی. می خوام دیتابیس رو جستجو کنم و نتیجه رو در یک لیست باکس بریزم. با object دیتا به دیتابیس وصل شدم و می خوام نتیجه ی جستجو رو در یک فرم دیگه و در لیست باکس بریزم. لطفا کمک کنید.
مرسی
کد:DAO
Sub DAOFindRecord()
Dim db As DAO.Database
Dim rst As DAO.Recordset
' Open the database
Set db = DBEngine.OpenDatabase(".\NorthWind.mdb")
' Open the Recordset
Set rst = db.OpenRecordset("Customers", dbOpenDynaset)
' Find the first customer whose country is USA
rst.FindFirst "Country = 'USA'"
' Print the customer id's of all customers in the USA
Do Until rst.NoMatch
Debug.Print rst.Fields("CustomerId").Value
rst.FindNext "Country = 'USA'"
Loop
' Close the recordset
rst.Close
End Sub
ADO
Sub ADOFindRecord()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
' Open the connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\NorthWind.mdb;"
' Open the recordset
rst.Open "Customers", cnn, adOpenKeyset, adLockOptimistic
' Find the first customer whose country is USA
rst.Find "Country='USA'"
' Print the customer id's of all customers in the USA
Do Until rst.EOF
Debug.Print rst.Fields("CustomerId").Value
rst.Find "Country='USA'", 1
Loop
' Close the recordset
rst.Close
End Sub
سلام:
یعنی من این کدها رو توی دکمه ی جستجو بنویسم کافیه. آخه توی کدها اسمی از لیست باکس برده نشده. متشکر از راهنمایی تون.
دوست عزیزنقل قول:
کد های گفته شده نمونه ای برای جستجو در یک دیتابیس می باشند.شما باید بسته به اینکه اسم دیتا بیست چیه و چه چیزی رو می خوای جستجو کنی در
کدهای گفته شده تغییرات لازم رو اعمال کنی.برای اینکه نتیجه جستجو به لیست باکس اضافه بشه باید از کد زیر استفاده کنی :
کد:List1.AddItem rst.Fields("CustomerId").Value
با سلام:
مرسی از جوابتان. من برنامه رو آپلود کردم 15 کیلوبایته. اگر میشه یه نگاه کنید و راهنماییم کنید. فهمیدم چی شد. کدهای بالا رو فهمیدم. مرسی
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دوست عزیز می خام برنامتو دان کنم یه صفحه ابی میاد پر از خالی؟!
اگه میشه یه جا دیگه بریزش
با سلام و عرض پوزش. این هم آدرس جدید. اگر راهنمایی کنید خیلی ممنون میشم.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دوست عزیز میشه یه جای دیگه آپلود کنی، من نتونستم دانلود کنم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام دوست عزيز
كارت خيلي ابتدايي است ناراحت نشيا دارم راهنماييت مي كنم
اين كدو واست درست كردم يكسري اضافات داره خودت حذف كن از فلدر بقيه كارها رم خودت مي دوني روش انجام بده يه سري ماژول هاي بيخودي در فلدر است خودت ببين كدوما داخل برنامه نيست حذف كن
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
با سلام:
باتشکر از راهنماییهاتون جناب تکنیک برتر. عالی بود. اگر مورد دیگری هست بگید.
جناب رومینا2006 من روی box.net هم گذاشتم لینکش بالاست. اینجا هم میذارم. فقط کمی باید صبر کنید تا لینک دانلود ظاهر بشه.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
لطفا شما هم راهنمایی کنید.
faizollahجان شما دانلود كردين اوني كه من گزاشتمو دانلود كنيد ببينين چطور است
با سلام:
بله من دانلود کردم. خیلی خوب و جالب بود. واقعا یه چیزایی هست که نمیشه از تو کتاب یاد گرفت. با کمک شما دوستان خوب یاد گرفتن چنین چیزهایی آسان میشه.
مرسی
اینم دانلود کن :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
با سلام:
با تشکر. دانلود کردم و جالب بود. اگر سوالی داشتم مزاحم میشم.
مرسی
با سلام
جناب تکنیک برتر من یه سوال داشتم. اگر میشه جواب بدین.
توی برنامه ای که فرستادین برای نمایش ساعت در status bar من نفهمیدم چکار کردین. میشه توضیح بدین. مرسی
در ضمن به نظر شما و جناب رومینا من چه بخشی رو به برنامه اضافه کنم. من گفتم کارنامه هم بزارم برای مشاهده ی کارنامه و قابلیت پرینت.
چطوره؟ دیگه چه بخشی؟
مرسی
برای نمایش ساعت باید از یک تایمر و فانکشن Time استفاده کنی.برای اینکه ساعت رو در status bar نشون بدی باید از لیست کامپوننتها Microsoft Windows Common Controls رو انتخاب کنی و سپس status bar رو به فرمت اضافه کنینقل قول:
کد:Private Sub Form_Load()
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels(1).Text = Time
End Sub
با سلام:
یک سوال:
اگر من بخوام در برنامه ام عکس دانش آموزان رو ذخیره کنم چه کار باید بکنم و چه کدی باید بنویسم. البته یک سایت در این زمینه پیدا کردم. ببینید خوبه. نظرتون چیه؟
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
مرسی
اينم دو تا سورس همراه با يك فايل Pdf برای ذخیره کردن عکس در یک بانک اطلاعاتی اکسس :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
با سلام:
ممنون از فایلها. سوالی داشتم.
در دستور with برای تصویر چه کدی باید نوشت. مثلا image1.picture=loadpicture(!picture ) درست است؟
برای اینکه عکس در جای خودش لود بشه.
مرسی
با سلام:
من چند پست گذاشتم اما جواب ندادی. مشکلی پیش اومده؟
من برنامه رو یه تغییر کوچولو دادم همش به هم ریخت. دیوانه شدم. میشه کمک کنید. اونو میفرستم. مرسی
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام:
خواهشمیکنم یکی جواب بده. من تو برزخ موندم. عجله دارم.
مرسی