کسی نمی خواد جواب من رو بده؟
Printable View
کسی نمی خواد جواب من رو بده؟
خیر این ابزار هیچ محدودیتی نداره و خیال راحت استفاده کنید
سلام؛
یک سوال برام پیش اومده؟ من دارم از برنامه شما الگو می گیرم برای کارهای خودم، ولی به نظر شما آیا این کار باعث پیشرفت من هم میشه یا نه؟ منظورم اینه که الگو برداری از کارهای بقیه خوبه یا نه؟
ضمناً میشه به این سوال من هم پاسخ بدید؟
من ابتدا برای ارتباط و درج اطلاعات از adodc استفاده می کردم که خیلی هم راحت بود، ولی با توجه به جستجویی که کردم و مقالاتی که خوندم دیدم adodb و دیگر adoها فکر کنم دست ما رو بیشتر باز میذاره برای انتخاب.
حالا من هم اومدم و برنامم رو طبق متد شما دارم می نویسم که یک جا بهم خطا داد، میشه کد رو نگاه کنی و ایرادش رو بهم بگی؟
Private Sub Command1_Click()ممنونم از شما.
'With Adodc1
If txt(0).Text = "" Then txt(0).SetFocus: Exit Sub
If txt(1).Text = "" Then txt(1).SetFocus: Exit Sub
' .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\book.mdb;Persist Security Info=False" 'ertebat ba bank
' .RecordSource = "Select * From book " 'entekhab jadval
' .Refresh
' .Recordset.AddNew 'ezafe kardan ketab
Dim rs As New ADODB.Recordset
Dim strm As New ADODB.Stream
If rs.State = 1 Then rs.Close
rs.Open "SELECT * FROM book", Conn, adOpenStatic, adLockOptimistic
rs.AddNew
rs("nbook") = txt(0).Text
rs("wbook") = txt(1).Text
rs("publish") = txt(2).Text
rs("year") = txt(3).Text
rs("page") = txt(4).Text
rs("isbn") = txt(5).Text
MsgBox ("your information register sucssesfull")
rs.Update
Form_Load
End Sub
دوست عزیز ببینید اگر خودتون بابت هر مسئله ای یک 2 2 تا 4 بکنی بهتره
من خودم شخصا کدهای خیلی ها رو به زبانهای مختلف دیدم و می بینم و ایده های خیلی خوبی از اون ها می گیرم این باعث رشد من تو زمینه برنامه نویسی شده، به شما هم پیشنهاد می کنم به این شکل پیش برید
سعی کن خودت به راه صحیح پی ببری
دوست عزیز میشه بگید دقیقا کدوم خط ایراد می گیره ؟
دوست عزیز از پاسخ خوبتون بینهایت ممنونم.
مرسی.
توی این خط:
http://i38.tinypic.com/2r267ip.jpg
دوست عزیز من ایرادی نمی بینم ؟
احتمال داره آبجکت Conn به بانک متصل نباشه
به احتمال زياد از همون كانكشن باشه از اونجا كه بانك شما يك بانك اكسس هست ببينيد وقتي برنامه رو اجرا ميكنيد ايا كنار بانكتون يك فايل با پسوند ldb ساخته ميشه يا نه اگه ساخته نميشه برنامتون فاقد كانكشن هست
از پاسختون ممنونم. میشه با یه مثال برام توضیح بدید؟ آخه من تقریباً روش آقا mpmsoft رو در پی گرفتم. میشه بگید چه جوری و در کجا باید ایجاد کنم؟ ضمناً فایلی رو هم که میگید در کنار بانک اطلاعاتی من درست نمیشه. حدستون درسته. ممنون.
دوست عزیز شما در ابتدا باید به بانک اطلاعاتی متصل بشید
در پروژه من به دنبال واژه Conn.Open بگردید و نحوه باز شدن بانک اطلاعاتی رو ببینید
سلام دوست عزیز؛ من همیشه قبل از اینکه پست بزنم، یک جستجوی کلی می کنم و بعدش سوال می پرسم تا از زدن پست اضافی جلوگیری بشه. ولی در مورد برنامه شما راستش conn.open رو پیدا نکردم. ولی با اینحال اینطوری نوشتم و درست شد؛ اون بانکی رو هم که به صورت ldb باید باشه می سازه.
http://i33.tinypic.com/7099jr.jpg
اشکالی نداره دیگه نه؟ درسته؟ میشه راجع به این کدها یه توضیحی بدی:
If Dlg.FileName <> "" Then
Strm.Type = adTypeBinary
Strm.Open
Strm.LoadFromFile (Dlg.FileName)
Rs("Logo") = Strm.Read
Else
------------------------------------------------------------------------
: and this code
If Val(Me.Tag) > 0 Then
Rs.Open "SELECT * FROM TblMember WHERE ID=" & Me.Tag, Conn, adOpenStatic, adLockOptimistic
If Rs.RecordCount = 0 Then Unload Me: Exit Sub
Rs.MoveFirst
Else
البته بازهم عذرمیخوام. نزنی ها :خجالت: . ببخشید. :بوس:
توسط ADPDB.Stream می تونیم یک فایل رو در حافظه بصورت موقت نگهداری و اگر نیاز باشه در بانک ذخیره کنیمنقل قول:
Strm.Type = adTypeBinary
Strm.Open
Strm.LoadFromFile (Dlg.FileName)
Rs("Logo") = Strm.Read
دوست عزیز من برای اینکه حجم کد نویسی کمتر بشه در حالتهای اصلاح و یا اضافه از این روش استفاده می کنمنقل قول:
If Val(Me.Tag) > 0 Then
Rs.Open "SELECT * FROM TblMember WHERE ID=" & Me.Tag, Conn, adOpenStatic, adLockOptimistic
If Rs.RecordCount = 0 Then Unload Me: Exit Sub
Rs.MoveFirst
فرض کنید کاربر در لیست اعضاء می خواد یک کاربری اصلاح کنه من مقدار آی هر شخص رو تو گرید دارم بنابراین اون آی دی رو پاس می دم تو تگ فرم و زمانی که کاربر بروی دکمه ذخیره کلیک می کنه اگر تگ مقدار داشت یعنی در حالت اصلاح هستش در غیر اینصورت یک رکورد جدید اضافه می کنه
كاش اين تايپيك عنوان ميشد تا مورد استفاده برنامه نويس هاي اينده كه عضو سايت ميشدن هم بشه چون به نظر من موارد اموزشي زيادي داره
البته اگر آقای Mbt تایید کنن
سلام، واقعا دستت درد نکنه، جالب و زیبا برنامه رو نوشتی.نقل قول:
فرض کنید کاربر در لیست اعضاء می خواد یک کاربری اصلاح کنه من مقدار آی هر شخص رو تو گرید دارم بنابراین اون آی دی رو پاس می دم تو تگ فرم و زمانی که کاربر بروی دکمه ذخیره کلیک می کنه اگر تگ مقدار داشت یعنی در حالت اصلاح هستش در غیر اینصورت یک رکورد جدید اضافه می کنه
اینجوری که من فهمیدم شما اصلاح و درج رو در یک form نوشتی، و اگر تگ بدون مقدار بود به معنی اضافه کردن یک رکورده .
نقل قول:
كاش اين تايپيك عنوان ميشد تا مورد استفاده برنامه نويس هاي اينده كه عضو سايت ميشدن هم بشه چون به نظر من موارد اموزشي زيادي داره.
من هم کاملا با این نظر موافقم. چون از روی این برنامه خیلی چیزها دستگیرم شده و دارم چیزهای بیشتری هم یاد می گیرم. پاسخ های دوست خوبم آقا mpmsoft هم باعث دلگرمی و افزایش جنبه آموزشی این برنامه میشه.[/quote]
خیلی عالی بود خسته نباشید همه قسمتهاش هم کار می کرد نمی دونم دوستان کجا مشکل دارند ؟
ولی یه سوال برام خیلی جالب بود شما آقای mpmsoft چطور تو قسمت گزارشگیری چاپ از چی استفاده کردی لطفا بفرمائید چطور گزارش رو نوشتین در صورتی که هیچ کدی رو براش ننوشتی فیلدها رو از کجا آوردی - عکس رو چطور گذاشتی یعنی در وقاع کجا قسمتهای طراحی رو انجام دادی ؟ در ضمن لطف می کنی اگه بگی پسورد بانک چیه؟
دوست عزیز گزارش این نرم افزار با Crystal Report هستش
پسورد barnamenevis
سلام ، این تاپیک واقعا ارزشمنده حالا یک سوالی دارم اینکه ( من هنوز برنامه رو دانلود نکردم ) شما از VSFLEX 8.0 استفاده کردین ، اما چه طور در زمان طراحی این عنوان برای ردیف ها انتخاب کردید ، واقعا این یک مسئلیه که من خیلی روش کار کردم ولی به نتیجه ای نرسیدم ، من از خود سایت ورژن 8 این ابزار رو دانلود کردم اما زمانی که روی Format String کلیک میکنم یک ارور میده که فکر میکنم مربوط به کرک این ورژن است ، لطفا منو راهنمایی کنید ... ممنون
راست ميگه چجوري اين رو تنظيم كردين من هم متوجه نشدم
دوست عزیز من دقیقا متوجه نشدم منظورتون کدوم قسمته
شما براي نشون دادن عنوان فيلد ها تو گريدتون از كد نويسي استفاده نكردين مي خواهم ببينم چجوري براي گريد اسم فيلد فارسي گذاشتين تو اون عكس كه اولين تايپيك هست رو ميگم
دوست عزیز در زمان Design Time بروی ستون مورد نظر 2 بار کلیک کنید می تونید نام فیلد رو تایپ بکنید و هم می تونید با کد نویسی این کارو بکنید
دوباره سلام؛
بازهم یک سوال! ببخشید.
آقا Mpmsoft من یکی دو تا برنامه ای رو که نوشتم با دابل کلیک روی خود سلول ویرایش رو انجام میدادم، ولی دوست دارم مثل برنامه شما فرم باز بشه و در اونجا کاربر بتونه کار ویرایش رو انجام بده ، چرا که اینجوری برنامه حرفه ای تر و شکیل تر میشه.
الگو برداری رو از روی شما انجام دادم ولی وقتی دابل کلیک می کنم این خطا رو نشون میده:
کد رو هم اینجوری تغییرش دادم:
http://i37.tinypic.com/2qal6vm.jpg
اینهم کد صدازدن ویرایش:
http://i36.tinypic.com/wbtmat.jpg
امکانش هست سورس رو براتون بفرستم؟ فرصت دارید نگاه کنید یا خیر؟
مجدداً ببخشید.:خجالت:
مطمئن نیستم ولی این تغییر رو بدین
در ضمن شما از قبل باید ID رو تعریف کرده باشید مثلا اگه از Adodc استفاده می کنید به این صورت میشهنقل قول:
... Select From Book Where Id = '" & Id &"'"
نقل قول:
... Select From Book Where Id = '" & adodc1.recordset.Fields("Id") &"'"
دوست عزیز آبجکت cnn چیه ؟
در ضمن شما باید با Rs.Open این کارو انجام بدید نه با Cnn
این پیغام به شما می گه که آبجکتی تعریف نشدرو شما دارید استفاده می کنید
ببخشيد متوجه نشدم اگه روي گريد دبل كليك كنم وارد محيط كد نويسي ميشه و اين رو نشون ميدهنقل قول:
نوشته شده توسط mpmsoft
Private Sub VSFlexGrid1_Click()
End Sub
ممنون ميشم بيشتر توضيح بدين
اقا داوود
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yourdb.mdb;"
رو ميتونيد جلوي cnn.open استفاده كنيد
دوست عزیزم آقا m_vb1386 کاری که گفتید کردم ولی جواب نداد. روش دوست دیگه مون آقا wolf-sky رو هم فرصت نکردم امتحانش کنم.
آقا mpmsoft من دیدم که شما از rs.open استفاده کردین ولی راستش رو بخوای هرچی سرچ می کنم conn.open رو که اونروز گفتید پیداش کن توی پروژتون پیدا نکردم. خیلی هم سرچ کردم ولی پیدا نشد. میشه یه کمکی بکنی؟
دوباره از همه دوستان تشکر می کنم.
دوست عزیز ممنون از راهنمایت ولی واقعا نمی دونم چطور برنامه رو نوشتی مثلا توی قسمت ثبت نام جدید شیی TTab رو چطور به VS وصل کردی؟
آیا می شه به DBGRID وصل کرد و از شی data استفاده نمود.
یا چطور روی مثلا حرف جچح می زنی فیلدهای مربوط به اون می آد -
خیلی ممنون می شم اگه بگید - خداوکیلی نزدیک یک هفته اس روی برنامت هستم کارتون عالیه خسته نباشید
آقای MPMSOFT اون روش دو تا کلید کردن عملی نیست و وارد کد نویسی میشه
به این شکل
ولی Property Page گرید من این گزینه رو نداره ، اگه امکان داره شما VsFlex خودتون رو اینجا آپلود کنین
من باز هم متوجه نشدم روي سيستم من مثل اين عكس نشون ميده ممنون ميشم ببينيد علتش چيه؟نقل قول:
نوشته شده توسط mpmsoft
دوست عزیز شما باید پک کامل این ابزارو نصب کنید
http://rapidshare.com/files/10017267..._2008_v1.0.rar
عجب چيز توپيه به بقيه هم پيشنهاد ميكنماين لينك اخري رو دانلود كنن
من هنوز دانلود نکردم کرکش هم هست یا باید پیدا کنم !! ( ببخشید اینقدر سوال می کنم قول میدم آخری باشه )
دوست عزیز این نسخه کامل بدونه کرک هستش
با سلام و عرض پوزش بسيار، مي‌دونم كه درخواستم خارج ار بحث هست ولي چه كنم كه كارم گيره و حتما اين برنامه گره از مشكلاتم باز مي‌كنه راستش هرچي سعي كردم از راپيدشير فايل setup رو دانلود كنم نشد اگه ميشه از بين دوستاني كه Setup رو دانلود كردند اينجا هم بذارند تا من و ديگراني مثل من هم استفاده كنيم. يا حداقل نام يا ليست كامپوننت‌هاي استفاده شده تا حداقل بتونيم با سرچ پيداشون كنم.
باتشكر
دوستان فایل کمکی در پیست اول همین تاپیک قرار گرفت
آقا دانلود کردن از رویrapidshare کار مشکلی نیست. شما در ابتدا باید روی لینک کلیک کنید.
بعدش صفحه عکس ضمیمه (rapid1 ) رو مشاهده خواهید کرد.
شما در این قسمت باید روی گزینه Free user کلیک کنید. بعد از کلیک روی این گزینه یک شمارشگر معکوس شروع به شمارش کرده تا به عدد 1 برسد.
بعد از اینکه شمارشگر صفر شد صفحه ای مثل شکل (ضمیمه 2 یا rapid2) باز شده که می تونید به راحتی فایل رو دانلودش کنید.
آقا MPmsoft سلام؛
چندباره ببخشید.
میشه این خط از پروژه رو بهم نشون بدید:
هرچی می گردم نیست.نقل قول:
در پروژه من به دنبال واژه Conn.Open بگردید و نحوه باز شدن بانک اطلاعاتی رو ببینید