کمک در بانک اطلاعاتی [بایگانی]

nokhod

03-21-2007, 04:29 AM

سیلام
اول از همه سال نو مبارک
اولین سوالم در سال 1386 :big_smile:
چطوری میشه یه ارتباط مستقیم با بانک اطلاعاتیمون به طور مستقیم داشته باشیم
البته بدون شی data
آیا میشه از شی Recordset و متدهای مختلف استفاده کرد؟

مکل بنده با اضافه کردن یه داده به جدول است تو کتاب مرجع بنده همچین دستوری است:
Data1.recordset.addnew
که خوب برای اضافه کردن به فیلد است و باید حتما شی Data بروی فرم باشه و اتصالات مخصوص
با تکس باکس ها هم برقرار باشه...
شما لطفا یه راه حلی بگید تا بدون استفتده از شی data بشه داده اضافه کرد ممنون
فعلا
بای

balabala

03-21-2007, 11:20 AM

میتونی با ADODB و DAO بصورت تمام کد، متصل بشی.

http://www.timesheetsmts.com/adotutorial.htm

/
سال نو هم مبارک :}

nokhod

04-03-2007, 06:46 PM

یکم توضیح میخوام
اگه میشه لطفا

balabala

04-03-2007, 07:52 PM

توضیح؟ :}
بهتره چندتا مثال ببینید تا بهتر متوجه بشید. توی اون لینکه کلا یه آموزش هست در موردش. ولی بطور مختصر:

اول باید یه رفرنس بدیم به ADODB :
Project menu -> Reference -> Microsoft ActiveX Data Object 2.0 Library
یه شی Connection لازمه برای اتصال و یه شی RecordSet اگر میخواید محاوره ای داشته باشیم.

برای اتصال باید connectionstring رو تنظیم کنیم که بسته به اینکه به اکسس میخوایم وصل بشیم یا MSSQL یا اصلا به یه DSN میتونه خیلی فرق داشته باشه. یکی از ساده تریناش اینجوری میشه:

dim strConn as String
strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\test.mdb;"

Dim conn as ADODB.Connection
Set conn= New ADODB.Connection

conn.Open strConn

حالا الان متصل شدید به دیتابیس c:\test.mdb
برای فرستادن کوئری میشه از فانکشن Execute استفاده کرد. مثلا اگر یه جدول با دوتا فیلد داشته باشیم:

conn.Execute "INSERT INTO Table1 (field1, field2) VALUES ('value1', 'value2')"
اصولا تمامی دستورات SQL مثل SELECT, INSERT, DELETE, UPDATE رو میشه با این فانکشن صدا زد.
حالا اگر دستوری شبیه یه SELECT باشه و برگشتی داشته باشه. ما میتونیم مقادیر برگشتی رو بریزیم توی یه رکوردست:

Dim rec As ADODB.Recordset
Set rec = conn.Execute("SELECT * FROM Table1")
Do While Not rec.EOF
MsgBox rec("field1") & " - " & rec("field2")
rec.MoveNext
Loop
و در پایان هم میتونیم اتصال رو ببندیم و شی ها رو نابود کنیم:

rec.Close
Set rec = Nothing
conn.Close
Set conn = Nothing

البته شی ADODB.Command هم هست که میشه باهاش محاوره انجام داد که اگر اون لینک رو ببینید یه مثال زده. در واقع ما بجای اون از فانکشن Execute کمک گرفتیم.
فکر کنم این ساده ترین توضیح بود :] حالا اگر توضیح بیشتر میخواد بگید کدوم قسمتش، تا بگم.

nokhod

04-03-2007, 08:04 PM

خوب بهتره من یه توضیح مختصر بدم
ما تو درس ذخیره و بازیابی اطلاعات استاد یه پروژه خواسته
منم مدیریت کتابخانه رو انتخاب کردم(موضوع پروژه انتخابی بود به دلخواه)
حالا یه جاهایی رو طراحی کردم سعی می کنم تا امشب فایل vb و مشتقاتش رو(بانک اطلاعاتی مو اینجا بزارم) تا یه نگاهی بندازین و کمکم کنید.

پیوست 1 : این پروژه برام خیلی مهمه (مسئله آبرو این وسطه میخوام به برنامه توپ تحویلش بدم) پس کمکم کنید ...
پیوست 2: این پروژه اونقدر که برام از نظر بالا مهمه از یه نظر دیگه هم مهمه و اون اینه که من میخوام خودم یاد گیرم و دستم روون شه تو برنامه نویسی

میـــــــــــــــــــــــ سی

balabala

04-03-2007, 08:11 PM

باشه، حالا شما بذارید نگاهش بکنم ، تا جایی که میتونم و سرم شلوغ نباشه کمک میکنم ;)

nokhod

04-03-2007, 08:13 PM

اینم فایل :http://nokhod.persiangig.com/Porojeh%20asli.rar
مسیر فایل بانک اطلاعاتی هم :
C:\Documents and Settings\reyhaneh\My Documents\Book.mdb

زحمت میشه ممنون ...

balabala

04-04-2007, 01:00 PM

اینم فایل :http://nokhod.persiangig.com/Porojeh%20asli.rar
مسیر فایل بانک اطلاعاتی هم :
C:\Documents and Settings\reyhaneh\My Documents\Book.mdb

زحمت میشه ممنون ...
خب یه نگاهی انداختم. البته شما دیتابیس رو ندادید که بتونم تستش کنم :d
منتها به نظر خیلی کار داره :d شما بگید کجاهاش رو میخواید تا کمکتون کنم، از یه جایی باید شروع کرد دیگه :d
مثلا برای شروع اگر میخوایم از کد استفاده کنیم بهتره یه connection سراسری توی یه ماجول تعریف کنیم با دوتا فانکشن، یکی کانکشن رو باز کنه و دیگری ببندتش. و بعد در شروع کار بازش کنیم و با بستن کل فرمها ببندیمش...

nokhod

04-04-2007, 07:23 PM

تشکر که وقت گذاشتی
می دونم خیلی کار داره واسه همین کمک خواستم
چشب دیتابیس رو میزارم دیشب عجله کردم یادم رفت
مشکل من الان با قسمت درج کتاب هست وقتی می خوام یه کتاب اضافه کنم خطا میده
گیجم کرده یه مقدار.

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

باز تشکر

balabala

04-04-2007, 07:55 PM

آره شما دیتابیسم بفرست تا یه بررسی بکنم. در ضمن شما با فارسی ساز تایپش کردید؟ چرا از فارسی ساز و فونتهای خود ایکس پی استفاده نکردید چون برای من اینجوری مینویسه نوشتهای روی فرم رو
Çíä áíÓÊ ÍÇæí ˜ÊÇÈåÇí ãæÌæÏ ÏÑ ˜ÊÇÈÎÇäå ãí ÈÇÔÏ

nokhod

04-04-2007, 11:49 PM

من از فونت خود Xp استفاده کردم و اغلب فونتهام b koodak است.
رو pc من مشکلی نداره
راستی در مورده نذاشتن دیتابیس باید بگم من از سرور Persiangig استفاده می کنم
الان هرچقدر سعس کردم کانکت شم نشد
هر موقع تونستم به سرور دسترسی پیدا کنم حتما میذارم

فعلا . . .

nokhod

04-07-2007, 06:40 AM

اینم بانک اطلاعاتی :http://rapidshare.com/files/24715105/Book.mdb
و اینم فایل جدید vb قسمت سرچ رو یه کارایی کردم قسمت اضافه کردن رکورد جدید مشکل داره :
http://rapidshare.com/files/24715586/Porojeh_asli.rar

balabala

04-07-2007, 01:59 PM

اول از همه اینکه من اکثر متنها مثل تکستهای رو دکمه ها رو نمیتونم بخونم چون همونطور که گفتم روی سیستم من فارسی نشون نمیده. بهتره از tahoma استفاده کنید.

به هر حال فکر کنم در مورد تب دوم از فرم Tab1 صحبت میکنید؟ خب من یه تغیراتی دادم توی فرم و دوتا فانکشی که گفته بودم رو اضافه کردم و کد اضافه کردن رکورد رو هم نوشتم که ببینید چشکلیه. البته شما یه فیلدی به نام sath نوشته بودید که من اررور میگرفتم و فهمیدم که اصلا توی دیتابیس وجود نداره و اسمش باید rade باشه؟

درضمن مسیر دیتابیس هم در فانکشن connect_database تغییر دادم به فولدر برنامه. این فانکشن رو توی index.frm صدا میزنیم که لازم نباشه توی هر فرم هی یه کانکشن بسازیم.

http://rapidshare.com/files/24752139/Porojeh_asli.zip.html

nokhod

04-08-2007, 06:40 AM

ممنون یه نگاه می اندازم تا اگه مشکلی بود دوباره مزاحم شم
پس تا فردا
فعلا
بای

nokhod

04-09-2007, 08:04 AM

سلام نیگاه کردم تشکر
خوب من کلی سوال دارم و نظر خواهی واسه بخشهای دیگه
اول اینکه وقتی یه داده اضافه میشه لسیتی که در تب اول هست به روز نمیشه حتما باید از برنامه خارج بشی و بعد دوباره وقتی اجرا شد به روز میشه ؟
راستی فونتها رو هم عوض کردم البته فونهای تب1 در اولین فرصت میام می ذارم

nokhod

04-09-2007, 08:11 AM

http://rapidshare.com/files/25033946/Porojeh_asli.rar
اینم یه نمه کامل شده بخش جستجو رو نوشتم
و فونتهاشم همونجور که گفتم عوض کردم وtahoma گذاشتم
تا بعد بای

balabala

04-09-2007, 02:04 PM

باید REBINDش کنید تا توی گرید نشون بده. البته فکر میکنم راه دیگه ای هم بود (که رکوردستش رو auto-rebind میکرد) ولی یادم نیست دقیقا! میشه این حقه رو زد بعد از هر دستور آپ دیت:
درست قبل از خط
MsgBox "Added!"
اینو اضافه کنید:

Set MSHFlexGrid1.DataSource = datPrimaryRS
MsgBox "Added!"

nokhod

04-09-2007, 08:59 PM

شما با این دستور : db_path = App.Path & "\Book.mdb"
کاری کردید که هرجا فایل vb بود اگه بانک هم همونجا باشه اجرا بشه آیا من می تونم این دستورو
تو قسمت سرچ بزارم تا دیگه اون آدرس دهی رو نداشته باشم
و اینکه با دستور بالا فایل به بانک book دسترسی پیدا میکنه شما از کجا جدول book رو بهش نشون داد . چون این پایگاه داده book فقط یه جدول هستش بعدا باید 4 تا جدول بشه
اون موقع چطوری مشخص میشه که با کدوم جدول از این بانک کار داره

nokhod

04-09-2007, 09:03 PM

راستی به نظر شما قسمت ویرایش و حذف چطور باشه خوبه؟
من یه نظر دارم اونم اینه که اکه بشه یه جدول از اونی که تو تب اول هست تو تب ویرایش یا خذف باشه و با انتخاب رکورد و زدن کلید خذف اون رکورد حذف شه یا اینه برای قسمت ویرایش
چند تا تکس باک مربوط باشه تا با انتخاب رکورد امکان ویرایش اطلاعات باشه و با زدن کلید ذخیره
اون اطلاعات ثبت شه(اصلا شدنی هست) منتظر نظرتون هستم ؟
تا بعد . . .

balabala

04-09-2007, 09:42 PM

خب نه نمیشه! چون شما از روش دیگه ای توی اون بخش استفاده کردید نمیشه از dfwConn که من ساختم استفاده کنید. ولی اگر متغییر db_path رو از اون فانکشن بیارید بیرون و بذارید بالای ماجول:

Public db_path as string
اونوقت میتونید ازش بجای مسیر دهی در ()OpenDatabase ها استفاده کنید ولی بازم روش دیگه ای رفتید و شی dfwConn رو که اول برنامه باز کردیم بی استفاده میمونه. میل خودتونه.

روش دیگه اینکه از همون کانکشن dfwConn استفاده کنیم. باید از کوئری استفاده کنید نه از OpenDatabase و FindFirst و NoMatch و غیر.

اوله اول اینکه، شما هیچ متغییری رو تعریف نکردید!!! و این خیلی بده. مثلا متغییر rs تعریف نشده! ولی حدس میزنم باید یه رکوردست ADODB.RecordSet باشه.

باید اول تعریف بشه! وگرنه بعدا اررور ها رو نمیشه پیدا کرد. پیشنهاد میکنم بالای همه فرمها بنوسید:
Option Explicit
تا ویبی اجازه متغییر تعریف نشده موقع اجرا نده.

دوم. مثلا برای پیدا کردن یه سرچ باید این کار رو کرد:

Dim rs As ADODB.Recordset
Set rs = dfwConn.Execute("SELECT * FROM book WHERE name='" & Text10.Text & "'")
If Not rs.EOF Then
MsgBox ("found!")
Else
MsgBox ("record not found")
End If
میبینمید که کدش کمتره چون قبلا کانکشن رو اول کار انجام دادم.

حالا این شی rs رو میتونید اگر چیزی پیدا شد ، bind کنید به یه دیتاگرید توی اون فرم سرچ.... و غیر :d

nokhod

04-14-2007, 06:25 AM

شی dfwConn رو که اول برنامه باز کردیم بی استفاده میمونه. میل خودتونه.
این یعنی چه ؟ یکم plz توضیح ...:pudency:

Dim rs As ADODB.Recordset
Set rs = dfwConn.Execute("SELECT * FROM book WHERE name='" & Text10.Text & "'")
If Not rs.EOF Then
MsgBox ("found!")
Else
MsgBox ("record not found")
End If
این سرچی که شما گذاشتی فقط واسه فیلد نام صدق میکنه ؟ یا اینکه همه اون فیلد های که من میخوام تو عمل جستجو باشن رو ؟ البته سرچ من واسه ای طولانیه که 4 یا 5 بار تکرار شده اون واسه 4یا 5 فیلد. اگه دستور شمام فقط فیلد نام رو پشتیبانی کنه من باید 4-5 بار اونو تکرار کنم پس اینم زیاد میشه ...
حالا شما منظورت اینه که از نظر برنامه نویسی اینطوری بهتره ؟ یا هر دو جواب میده و دلخواه؟

این یعنی چه ؟چرا من هیچی نمی گیرم؟:pudency:
حالا این شی rs رو میتونید اگر چیزی پیدا شد ، bind کنید به یه دیتاگرید توی اون فرم سرچ

راستی نظرتون در مورده این یادتون نره ::big_smile:
راستی به نظر شما قسمت ویرایش و حذف چطور باشه خوبه؟

balabala

04-14-2007, 02:57 PM

شی dfwConn رو که اول برنامه باز کردیم بی استفاده میمونه. میل خودتونه
توضیح؟ خوب شما اول تاپیک گفتید با کد میخواید کار کنید نه با کنترل. با کد کار کردن یعنی با ADO کار کردن. با کنترل کار کردنم میشه DAO که شما بعضی جاها شعی Data استفاده کردید. من اوله اوله برنامه اگر فرم Index رو سورسش رو ببینید، دیتابیس رو باز کردم. خب یه کانکشن برای سرویس دهی به همه فرمها کافیه... منتها نمیشه این کانکشنی که من باز کردم رو برای فانکشن OpenDatabase که یه DAO هست استفاده کنید. منظورم همین بود.
/
Set rs = dfwConn.Execute("SELECT * FROM book WHERE name='" & Text10.Text & "'")

نه! اون name بعد از where یه شرطه! یعنی رکوردهایی که با اون name مچ بشن بر میگرده. چون ما تو دستور select از * استفاده کردیم ، کل فیلدهای همه رکوردها بر میگرده. یعنی:
rs("name")
name رو بر میگردونه.
rs("code")
code رو بر میگردونه.... تا آخر... البته برای رفتن به رکورد بعدی باید rs.MoveNext رو صدا بزنید. (پیشنهاد میکنم یه کتاب آموزش ADO / یا ebookش رو بگیرید چون نمیشه همش رو اینجا توضیح داد).
/
میتونید اگر چیزی پیدا شد ، bind کنید

یعنی الان این رکورد ست rsرو میتونید bind (فکر کنم میشه مقید!) کنید به یه کنترل مثل دیتاگرید. یه چیزی شبیه Set datagrid1.Datasource=rs
به این کار میگن bind کردن. اینم توی هر کتابی توضیح داده... جزو اصول اولیهس که باید یاد بگیری.
/
راستی به نظر شما قسمت ویرایش و حذف چطور باشه خوبه؟

قسمت ویرایش باید کل فیلدها رو داشته باشه با یه لیست از رکوردها /یا یه Data کنترل که بشه یک رکورد رو انتخاب کرد و ادیت کرد. بعد یه دکمه ذخیره که بشه تغییرات رو ذخیره کرد.
قسمت حذف هم میتونه یه لیست باشه که از توش یه رکورد رو انتخاب کنید و حذف کنید. یا میتونه یه تکست باکس باشه که شماره رکورد رو برای حذف کردن بدید.

balabala

04-14-2007, 02:59 PM

اگر کمی انگلیسی بلد باشید این منبع خیلی ساده ADO رو آموزش داده:
http://www.w3schools.com/ado/default.asp

nokhod

04-15-2007, 07:16 AM

تشکر از توضیحاتت
مطلب رو گرفتم(اونجاهایی رو که مشکل داشتم)
من تا فردا نرم افزار کتابخانه رو مب بینم باز چیزا زیادتری میاد دستم
تشکر از ایکه وقت میذاری

قسمت ویرایش باید کل فیلدها رو داشته باشه با یه لیست از رکوردها
منم همین مد نظرم هست که وقتی ریکوردی انتخاب میشه اطلاعاتش توی تکس باکسها ریخته شده بعد هم بشه اونا رو ویرایش کرد

برای قسمت حذف هم فکر کنم اینطوری بهتر باشه

پیوست1 : مهلت پروژم تا 1 خرداده :pudency: می ترسم با این سره شلوغی که من دارم نرسم
حالا نمره هیچی آبروم میره:baffle:

balabala

04-15-2007, 02:50 PM

تشکر از توضیحاتت
مطلب رو گرفتم(اونجاهایی رو که مشکل داشتم)
من تا فردا نرم افزار کتابخانه رو مب بینم باز چیزا زیادتری میاد دستم
تشکر از ایکه وقت میذاری

منم همین مد نظرم هست که وقتی ریکوردی انتخاب میشه اطلاعاتش توی تکس باکسها ریخته شده بعد هم بشه اونا رو ویرایش کرد

برای قسمت حذف هم فکر کنم اینطوری بهتر باشه

پیوست1 : مهلت پروژم تا 1 خرداده :pudency: می ترسم با این سره شلوغی که من دارم نرسم
حالا نمره هیچی آبروم میره:baffle:
خواهش میکنم. به هرحال فکر میکنم بتونی توی یک ماه بنویسیش :d

nokhod

04-16-2007, 06:36 AM

الان دیگه میرم دنبال قسمت برنامه نویسی ویرایش و حذف به مشکلی برخوردم مزاحم میشم
بتونی توی یک ماه بنویسیش
خدا از دهنت بشنونه جوونhttp://www.my.blackmice.com/images/smilies/biggrin.gif
پس تا بعد
. . .

nokhod

04-17-2007, 06:56 AM

سلام

من رفتم نرم افزار کتابخونه رو ديدم wow چقدر گسترده است من تا بخوام اونقدر بنويسم جدم در مياد
خيلي خيلي زياد بود پس من به همين چيز ميز کمي که دارم قناعت کردم
چند تا مورد نظرمو خيلي جلب کرد :
1- جستجو سريع : زير يه جدول که شامل اسامي کتاب ها بود يه جستجوي سريع بود که با نوشتن کلمات جستجو مي کرد مثلا مي خاستيم کتابي رو جيتجو کنيم با عنوان باران
ب مي زديم ليست کتابهاي که با ب شروع ميشد ميومد بعد ا که ميزديم ليست کتابهايي که با "با" شروع ميشد و همين جور هر کلمه که وارد ميکرديم لسيت جستجو به اون چيزي که ميخواستيم نزديک تر ميشد ...چطوري ميشه يه همچين جستجوي سريع درست کرد؟
2-نحوه طراحي فرمهاش (من تازه فهميدم طراحي من چقدر درب داقونه چون خيلي فرم زياد و بدون استفاده)از سبک طراحيشم خوشم اومد تا يه همچين سبکي درست کنم.

راستي شما جواب يکي از سوالهاي منو نداديد :
شما با اين دستور : db_path = App.Path & "\Book.mdb"
کاري کرديد که هرجا فايل vb بود اگه بانک هم همونجا باشه اجرا بشه آيا من مي تونم اين دستورو
تو قسمت سرچ بزارم تا ديگه اون آدرس دهي رو نداشته باشم و
سوال دوم ===> اينکه با دستور بالا فايل به بانک book دسترسي پيدا ميکنه شما از کجا جدول book رو بهش نشون داديد . چون اين پايگاه داده book فقط يه جدول هستش بعدا بايد 4 تا جدول بشه
اون موقع چطوري مشخص ميشه که با کدوم جدول از اين بانک کار داره؟
(شما جواب قسمت اول رو داديدولي دومي هنوز مونده)

balabala

04-17-2007, 05:06 PM

دستور بالا OpenDatabase دیتابیس رو باز میکنه. به تیبلها کاری نداره. شما با دستورات SQL مثل SELECT تیبل رو انتخاب میکنید مثل SELECT * FROM table1 و همچنین با دستور OpenRecordset در DAO.
/
جستجو سریع : میشه توی ایونت change اون تکست باکس یه کوئری ساخت SELECT * FROM table_name WHER field_name LIKE '......که با عوض شدن تکس اجرا بشه...

nokhod

04-18-2007, 06:33 PM

ميشه يه مثال برام مزاريد ممنون
اگه وقت داريد . . .
فعلا ...

balabala

04-18-2007, 11:05 PM

ميشه يه مثال برام مزاريد ممنون
اگه وقت داريد . . .
فعلا ...
یعنی مثلا اگر تکست باکس Text1 باشه:

Private Sub Text1_Change()
Dim rs As ADODB.Recordset
Set rs = dfwConn.Execute("SELECT * FROM book WHERE name LIKE %" & Text1.Text & "%")
End Sub
حالا این rs همون رکوردستی هست که میشه ازش استفاده کرد و لیست کرد سرچ رو.

nokhod

04-23-2007, 08:31 AM

سلام
:pudency: :pudency:
vb منو خسته کرد چرا نمیشه؟
هر کاری میکنم که یه جدول بزارم بعد با کلیک کردن روی ابتدای رکورد ها اون رکورد
نمایش داده بشه تو تکس باکسها نمیشه:pudency:

چند روزم بود که نمی دونم چرا اصلا نمی تونستم بیام اینجا سایت خطا میداد
کلی عقب افتادم:cryb: :cryb:

کمک لطفا

balabala

04-23-2007, 12:38 PM

nokhod

04-24-2007, 04:18 PM

تو همون فایلهای که مربوط به پروژه است
میتونید وارد کنید؟
اگه میشه ..
ممنون
فعلا
...

balabala

04-24-2007, 04:46 PM

توی قسمت ویرایش مشخصات یدونه DataGrid گذاشتم. موقع لود شدن فرم هم درست بعد از MSFlex بایندش کردم:
Set DataGrid1.DataSource = datPrimaryRS
حالا توی ایونت DataGrid1_RowColChange میشه مشخصات همه ستونها رو نشون داد. من 3تاشو انجام دادم به عنوان مثال.

DivShare File - Porojeh_asli.zip (http://www.divshare.com/download/473211-910]DivShare File - Porojeh_asli.zip)

nokhod

04-25-2007, 07:23 AM

تشکر...
نمیشه DataGrid رو قفل کرد تا وقتی روی داده ها کلیک میشه از اونجا تغییر نکنه
فقط نمایش داده بشه توی تکس ها

امیدوارم حوصله ات از دست پروژه ای من سر نرفته باشه :ی

فعلا ...

balabala

04-25-2007, 12:01 PM

تشکر...
نمیشه DataGrid رو قفل کرد تا وقتی روی داده ها کلیک میشه از اونجا تغییر نکنه
فقط نمایش داده بشه توی تکس ها

امیدوارم حوصله ات از دست پروژه ای من سر نرفته باشه :ی

فعلا ...
AllowUpdate = False
AllowDelete = False...

nokhod

04-26-2007, 06:58 AM

مثله اینکه یه چیز یادتون رفت

وقتی تکس باکسها تغییر میکنه تغیراتش ذخیره نمیشه یه دکمه updata می خواد

balabala

04-26-2007, 12:30 PM

مثله اینکه یه چیز یادتون رفت

وقتی تکس باکسها تغییر میکنه تغیراتش ذخیره نمیشه یه دکمه updata می خواد
خوب اونو گذاشتم خودتون بنویسیدش دیگه :d
کاری نداره درست مثل Add کردن ولی اولش دیگه AddNew نمینویسید:

With datPrimaryRS
.Fields("name") = txtname.Text
.Fields("code") = txtcode.Text
.Fields("about") = txtabout.Text
.Update
End With

nokhod

04-30-2007, 07:51 AM

من برای سه بخش دیگه نرم افزار هم همین کارا رو انجام بدم؟

راستی توضیح که برای جستجوی سریع داده بودی خطا میده قسمت link
آیا من تو برنامه میخوام استفاده کنم باید تغییرش بدم؟

ممنون... بای

balabala

04-30-2007, 11:36 AM

من برای سه بخش دیگه نرم افزار هم همین کارا رو انجام بدم؟

راستی توضیح که برای جستجوی سریع داده بودی خطا میده قسمت link
آیا من تو برنامه میخوام استفاده کنم باید تغییرش بدم؟

ممنون... بای
کوئری جستجوری سریع رو من کامل ننوشتم ها! چندتا نقطه گذاشته یعنی میتونی WHEREش هر چیزی بگذاری. اگر یه مطالعه روی دستور SELECT داشته باشی حتما میتونی درستش کنی:
http://www.w3schools.com/sql/sql_select.asp
http://www.w3schools.com/sql/sql_where.asp
http://www.w3schools.com/sql/sql_intro.asp

قسمت های دیگه هم بنظر من میشه همین کار رو تکرار کرد. در کل شما باید طراح برنامه ای نه من. :d ولی بنظرم مشابه هستن.

nokhod

05-01-2007, 07:14 AM

دستور Select va where رو بلدم
ولی نحوه استفاده رو نمی دونم
منبع هایی رو که دادی حتما نگاه می کنم تا بتونم از اونام کمک بگیرم
اگه اینم اضافه کنم خوب میشه

balabala

05-01-2007, 06:42 PM

آره اونها رو بخونی خودت میفهمی چشکلی میشه ساخت. آسونه. توی ایونت Change یه کد میذاری که همچین کوئری رو اجرا کنه

set rec=con.Execute("SELECT * FROM books WHERE name='" & Text1.Text & "'")
که این رکورد ست رو میتونی بایند کنی به یه گرید تا جستجو رو نشون بده.

nokhod

05-01-2007, 07:09 PM

سلام
راستی من توی یه مسابقه تو دانشکده مون شرکت کردم (مهارت -عملی

هست)
دروس مورد امتحان هم اینا هستن : مباحث ویژه وپایگاه داده و ساختمان

داده و برنامه نویسی
تازه امروز فهمیدم مسابقه مون شنبه است و من اصلا آمادگی

ندارم:pudency: چیکار باید بکنم
داره گریه ام می گیره (آخه این دانشکده ما اینقدر بی برنامه است که تازه

اعلام کرده شنبه مسابقه داریم راستی من دارم تمام این پروژه رو نگاه می

کنم( خط به خط تا حداقل رو پایگاه داده و برنامه نویسی با وی بی کمی

تسلط داشته باشم) پس منتظر سوالات زیاد من باش
چون تا الان فقط نکرده بودم کامل بهش نگاه کنم (مخصوصا جاهایی رو

که شما لطف اضافه کردین
رو بیشتر نگاه کنم )تا زیرو بمش دستم بیاد)

واقعا ببخشید اگه خیلی بهتون زحمت دادم شرمنده

....:pudency:

balabala

05-01-2007, 07:37 PM

ممنون.
اگر سرم شلوغ نبود سر میزنم زود جواب میدم.
پیشنهاد میکنم یه کتاب آموزش ADO و SQL بگیرید از انتشارات نشرعلوم... اسم کتابهاش کامل یادم نیست ولی حتی بعضیهاش در 24 ساعت آموزش میده چی به چیه. حتما بگیرید.

nokhod

05-01-2007, 07:40 PM

تا شنبه یعنی میر سم تا حداقل مرحله اول رو رد کنم (سی دی آموزشی چی خوب نیست) ؟

balabala

05-01-2007, 07:59 PM

تا شنبه یعنی میر سم تا حداقل مرحله اول رو رد کنم (سی دی آموزشی چی خوب نیست) ؟
من چون خودم با کتاب شروع کردم، کتاب پیشنهاد کردم :d
اگر سیدیش خوبه، خوب چرا که نه! :d
تندتند بخونی میرسی :d

nokhod

05-01-2007, 08:14 PM

datPrimaryRS -1؟ (یعنی چه)
Dim datPrimaryRS As ADODB.Recordset
مثلا اینجام اینطوری استفاده شده (Set MSHFlexGrid1.DataSource = datPrimaryRS)
اصلا این چه که به همه جا چسبیده و کلا اکثره کارا با اینه (من این یه دو نه رو بگیرم مسئلشو تا نصفه راه رفتم :ی )

2- من داشتم اشیاء بکار رفته در پروژه رو نگاه میکردم ADODB رو پیدا نکردم ولی adodc این بود
چه فرقی باهم دارن یا اصلا یکی هستن؟

3- من با این بیند کردن هنوز مشکل دارم . من اینطوری فهمیدم : « اون رکور یا هر چیزی که rs داره بهش اشاره میکنه رو set میکنه به اونجایی که ما میگیم :
مثلا مثل دستوری که خودتون مثال زدید: Set datagrid1.Datasource=rs
اینم یعنی datagrid1 منبع اطلاعاتیش rs باشه( نمی دونم تا چه حد اون مطلبی که از bind کردن گرفتم ) لطفا بگید آیا درست متوجه شدم یا نه و یا کجاش اشتباست ؟

4-
نقل قول:
مثلا برای شروع اگر میخوایم از کد استفاده کنیم بهتره یه connection سراسری توی یه ماجول تعریف کنیم با دوتا فانکشن، یکی کانکشن رو باز کنه و دیگری ببندتش. و بعد در شروع کار بازش کنیم و با بستن کل فرمها ببندیمش...
خوب قسمت ماجول رو نگاه کردم
راه دیگه نیست تا از ماجول اسفاده نکنیم (استفاده ماجول حتمی است ؟ چون تا حالا با ماجول کار نکردم یکم برام یه جوریه)
شما در ابتدای فرم index این دستور رو گذاشتید .:
Private Sub Form_Load ()
If Not connect_database Then End
End Sub
شما کجا فانکشن connect رو فراخوانی کردید ؟ بااین دستور شما فقط میگین اگه نبود (کانکت نشده بود)از برنامه خارج بشه ....سوال : کجا صداش کردین؟
5- با این متغیر هم مشکل مفهومی دارم :
Public dfwConn As ADODB.Connection
dfwConn << این قراره چیکار کنه ؟
6-انتخاب Sub یا Function برای تعریف تابع ها دلیل خاصی داره؟چرا از هردوتا sub استفاده نکردین یا از هردوتا Function نبودند؟
7-این Exit Function واسه چیه وقتی داره کارشو درست انجام میده چرا باید از زیربرنامه خارج بشه؟

8- این چند خط هم . . .
db_path = App.Path & "\Book.mdb"
App.path & "masir" ثابته(یعنی واسه وصل شدن به پایگاه داده از این استفاده می کنیم؟

Dim db_path As String
db_path = App.Path & "\Book.mdb"
set string داره چیکار میکنه؟
' set strings
sConnect = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=Admin;Data Source=" _
& db_path & ";Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Global Partial Bulk Ops=2"

' open connection
Set dfwConn = New Connection
dfwConn.Open sConnect
(dfwConn)همون متغیری که میگم باهاش مشکا مفهومی دارم :ی

خیلی خیلی ببخشید(اگه زیاده)با شرمندگی زیاد ادامه دارد ...(روم سیاه به خدا شرمندتون)

nokhod

05-01-2007, 08:21 PM

خدا به دادم برسه من چطوری تند تند بخونم ...
سعی می کنم تا فردا بگیرم راستی اصلا سی دی آموزشی چی بگیرم من که به فریادم برسه
نمی خوام رو چند تا برنامه با هم متمرکز بشم حداقل یه دو نه رو خوب بلد باشم کافیه همین VB
و ارتباطش با اکسس ر دستم بیاد بقیه حلــــــــــــــه
چون بخش ساختمان داده رو مشکا ندارم برنامه نویسی الگوریتم ها با پاسکال یا سی هست که تا حدودی تسلط دارم این VB رو بلد باشم خیالم راحت تره

balabala

05-01-2007, 08:51 PM

نخودددد!! اینا که کل برنامن! http://fool.exler.ru/sm/mpr.gifhttp://fool.exler.ru/sm/mpr.gif

تو یه کتاب بگیر بخون.. تمام اینارو میفهمی.

1. یه ADODB.Recordset رکورد ست هست دیگه. اینو استفاده میکنم تا اطلاعات کوئری هارو بریزیم توش. بعد از نسبت بدیم به DataSource در واقع بایندش کردیم تا اطلاعات رو نشون بده.

2. ADODB یه تکنولوژیه. همون سوال بالایی رو نگاه کن ADODB.Recordset... توی reference ها هم به اسم Active Data Object تیک خورده.

3. آره به نسبت دادن یه رکورد ست به یه شیء میگن بایند کردن.

4. کانکت رو توی form_load فرم اصلی صدا زدم %}

5. این کانکشن اصلیه دیگه! بدون کانکشن که نمیشه وصل شد. اول با کانکشن وصل میشیم بعد توسط اون کوئری درست میکنم تبدیل میکنم به رکوردست و غیر.

6. فانکشن مقدار بر میگردونه. من این کار رو کردم که اگر دیتابیس پیدا نشد اررور رو نشون بده و false برگردونه تا فرم اصلی رو ببندیم. (توی فرم اصلی)

7. از exit استفاده کردم که برنامه نره کد اررور رو اجرا کنه دیگه :}

8. برای اکسس ثابته. برای هر دیتابس فرق میکنه. البته هر قسمتش هم ممکنه بنا به کاری که میخوای از دیتابیس، تغییر کنه. توی اون لینکا یکیشون کامل همه پارامترهاش رو توضیح داده.

http://fool.exler.ru/sm/mpr.gifhttp://fool.exler.ru/sm/mpr.gifhttp://fool.exler.ru/sm/mpr.gif

nokhod

05-01-2007, 11:25 PM

100 بار تنکس بزنم کمه بخدا تشششششششششششکر

نخودددد!! اینا که کل برنامن!

تو یه کتاب بگیر بخون.. تمام اینارو میفهمی.

این نخود بیچاره یه سر داره با هزار و 1 سودا باور یه روز خالی تو برنامه هفتگیم نیست
حتما باید کتابشو بخرم(چون به غیر مسابقه و پروژه خیلی خیلی دوست دارم یاد بگیرم)
الانم که میبینید دارم mp3 کار میکنم واسه وقت کم با سره شلوغه اگه سرم خلوت بود اینقدر مزاحم نمی شدم یه کتاب می گرفتم . . .

balabala

05-02-2007, 01:14 PM

منظورم مزاحم بودن یا نبودن نیست... خیلی چیزها رو نمیشه با چندتا پست توضیح داد، اگر با یک کتاب یاد بگیری بهتره، چون من برنامه نویسم (مثل شما) ولی کسی که کتاب رو نوشته آموزش دهندست و شغلش همینه :d
به هرحال اگر سوالی بود بپرس همونطور که گفتم سر فرصت جواب میدهییییییییم %}

nokhod

05-02-2007, 09:25 PM

eBook در این رابطه (فارسی) سراغ ندارین؟

balabala

05-02-2007, 09:38 PM

eBook در این رابطه (فارسی) سراغ ندارین؟
نه متاسفانه. :/

nokhod

05-19-2007, 06:52 PM

بعد از یه مدت طولانی سیلام
خوب من تو این مدت بقیه قسمتهای رو هم یه دستی کشیدم

راستی برای قسمت لیست گیری یه فکرهای کردم توی یه کتاب یه کدی بود اونو می زارم
من با ایک کد مشکل دارم چون هر چقدر تغییرش میدم تا با برنامه من کار کنه ، کار نمیکنه
private sub dbgtitle-headclick(by val colindex as integer)
dtctitles.recordsource="select 8from titels order by["&_dbgtitle.cloumns(colindex).datafield&"] ASC"
dtctitle.refresh
end sub

این کد رو میگم میشه واسه یه DataGrid تبدیل کرد ؟

balabala

05-19-2007, 07:11 PM

این کد اصلا بنظر اشتباه میاد. سورسش رو بگذار ببینم...

nokhod

05-19-2007, 07:46 PM

سورس نداشت همین چند تا خط تو کتاب نوشته بود منم انتقال دادم

balabala

05-19-2007, 08:21 PM

سورسش بنظر باید اینجوری باشه...

private sub dbgtitle_headclick(byval colindex as integer)
dtctitle.recordsource="select * from titles order by "& dbgtitle.cloumns(colindex).datafield &" ASC"
dtctitle.refresh
end sub

ولی کاری که میکنه فکر کنم اینه که اگر روی هدر header کلیک کنی، مرتب سازی رو تغییر بده به اون ستون.

nokhod

05-19-2007, 09:21 PM

کارشو که می دونم چیکار میکنه وقتی روی هر فیلدی کلیک بشه جدول بر اساس همون فیلد مرتب بشه
مشکل من اینه که نمیتونم تبدیلش کنم به اون چیزی که من می خوام و متصل کردن به DataGrid
و براساس DataGrid کار کنه
و همونجا یه دکمه پرینت هم باشه تا لیست مرتب شده رو چاپ کنه این آخرین مرحله از پروژه است ...

balabala

05-19-2007, 09:31 PM

دیتاگرید event بخصوصی برای columnهاش نداره که بشه این رو گذاشت توش. ولی دستور SQLش رو اگر توی یه دکمه بگذاری میتونه کار کنه. دکمه بذار روی columnها که این کار رو شبیه سازی کنه. بعد با همون دستور ORDER BY xxx DESC میتونی مرتب کنی.

nokhod

05-19-2007, 10:10 PM

همون دستور ORDER BY xxx DESC میتونی مرتب کنی.
یعنی :
"& dbgtitle.cloumns(colindex).datafield &" ASC"

همین کافیه یا کار دیگه ام باید انجام بدم؟

balabala

05-19-2007, 10:25 PM

من که نمیدونم کوئری که استفاده میکنی چیه؟ الان میخوای مرتبش کنی. ولی هرچی هست، مثلا اگر
SELECT * FROM books WHERE x=z
هست آخرش میتونی بر اساس یکی از فیلدها مرتب کنی. مثلا اگر در کوئری بالا فیلد name داشته باشی. میتونی اینجوری sort صعودی کنی:
SELECT * FROM books WHERE x=z ORDER BY name DESC
اگر میخوای نزولی sort کنی:
SELECT * FROM books WHERE x=z ORDER BY name ASC
حالا اگر یه دکمه روی ستون name بگذاری و رکورد ست رو بسازی و همچین کوئری رو بگیری و بریزی توی گرید. بر اساس name sort میشه. اگر یه دکمه دیگه بگذاری برای ستون xx و ORDER BY xx بکنی بر اساس اون میشه و بگیر برو تا آخر... در واقع باید حتما records رو بسازی. با دستور Execute کانکشنت یا هر جور دیگه که دوست داری.

nokhod

05-19-2007, 11:24 PM

میشه لطفا اگه وقت داری
یکی از فیلدهای رو مثلا نام واسه همون پروژه ای که قبان گذاشتم سورسشو بزاری چون من اینطوری نمی گیرم باید کدشو کامل ببینم تا یاد بگیرم
اگه وقت نداری که هیچی بگین خودم یه کاری میکنم

balabala

05-20-2007, 03:30 PM

nokhod

06-10-2007, 10:21 PM

بعد از یه مدت سلام
خوب........... حالا که پروژه رو دارم استرس پروژه ندارم تازه دارم یاد میگیرم
خوب برم سراغ سوالام
من آخرین نمونه رو که گذاشته بودید نیگاه کردم
خوب یه مشکلی هست این دستور شما درست و من به جای دکمه ها از یه لیست باکس استفاده کردم ولی مشکلی که اره دستورات شما اول از همه میاد datpramiryRS رو میبنده و این ایجاد مشکل کرده و وقتی به تب های دیگه برمی گردیم دیگه datagrid هامون به جدولامون متصل نیستن و نمی تونن اطلاعات بگیرن اینمشکلو چطوری میشه حل کرد ؟

تشکرات فراوان

balabala

06-10-2007, 10:24 PM

میتونید یه recordset دیگه برای اینکار توی همون فرم بسازید و از اون استفاده کنید.

nokhod

06-10-2007, 10:29 PM

و اون رکورد ست جدید فقط با همون جدول در ارتباط باشه ؟ درسته؟
ودر مورد ایجادش تمام ارتباطی که به قبلیه دادم به این بدم. درسته؟

balabala

06-10-2007, 10:31 PM

و اون رکورد ست جدید فقط با همون جدول در ارتباط باشه ؟ درسته؟
ودر مورد ایجادش تمام ارتباطی که به قبلیه دادم به این بدم. درسته؟
آره. هیچیش فرق نمیکنه فقط یدونه جدید بساز.

nokhod

07-11-2007, 08:35 AM

توی فرم Tab1 ، تب آخر یه مثال گذاشتم...
DivShare File - Porojeh_asli.zip

این فایل از روی سیستم من پاک شده و من بهش احتیاج دارم اگه زحمتی نیست یه بار دیگه آپ لودش کنید

ممنون

balabala

07-11-2007, 12:23 PM

متاسفانه برای منم پاک شد توی حادثه انفجار هاردم :...(

nokhod

07-12-2007, 07:09 AM

از دستوراتش چیزی یادتون نیست؟

دستوراتش یادم رفته

balabala

07-12-2007, 12:49 PM

هرچی توی پروژه بود تو تاپیک هرچی هم گفته بودم.

nokhod

07-13-2007, 08:40 AM

هرچی توی پروژه بود تو تاپیک هرچی هم گفته بودم.

متوجه منظورتون نشدم

balabala

07-13-2007, 12:12 PM

اشتب شد! میخواستم بگم هرچی تو پروژه هست توی تاپیک هم گفتم %}
لینکهای قبلی رو تست کنید شاید کار کنن. یه لینک توی persiangig گذاشته بودم. اون باید کار بکنه ها!

balabala

07-13-2007, 12:16 PM

این لینکه توی پرشین گیگ منه، پاکش نکردم هنوز ولی برای اولای کاره. اگر میذاشتی همش رو اینجا آپ کنم الان داشتیمشون :| تمام لینکای دیگه پریده :|
http://persianstorage.persiangig.com/vb/nokhod.zip

nokhod

07-14-2007, 06:26 AM

من فقط مثال آخری رو می خواستم برای مرتب کردن بقیه رو دارم همین آخریرو به اشتباه پاک کردم و حالا از دوباره بهش نیاز دارم

nokhod

07-14-2007, 06:29 AM

این فایلی که گذاشتید واسه اینجا نبود اصلا سوالم تو پی تی که شما لطف کردین جواب دادین

balabala

07-14-2007, 08:09 PM

ای بابا من فکر کردم همونه :d
/
من فقط مثال آخری رو می خواستم برای مرتب کردن بقیه رو دارم همین آخریرو به اشتباه پاک کردم و حالا از دوباره بهش نیاز دارم

کدوم پست دقیقا؟

nokhod

07-15-2007, 10:47 AM

از اون جایی که یکم شانس داشتم تو کامپیوتر محل کارم آخرین مثال رو داشتم دیروز رفتم اونجا و فایل رو پیدا کردم

اون مثال که فایل ها رو مرتب می کرد مثلا بر اساس کد و نام حالا چند تا سوال دارم که در اولین فرصت میام و می پرسم

nokhod

07-16-2007, 12:52 PM

سوال اولم در باره گزارشگیری بود من برای گزارشگیری باید چیکار کنم؟ از چه نرم افزاری استفاده کنم؟

سوال دومم هم اینه که آیا من می تونم از لیستها print بگیرم (به عنوام مثال در تب آخر که لیستگیری هست کابر بتونه بر حسب هر فیلدی که مرتب کرد از اونها print بگیره)

سوال سومم درمورده جستجوی سریع است تو چند پست قبل یه چیزایی گفته بودید ولی من متوجه نشدم؟اگه میشه یکم واضح تر توضیح بدید

باز بسیار ممنون
فعلا ...

balabala

07-16-2007, 02:11 PM

میتونی از کامپوننت DataReport خود ویبی یا از Crystal Report استفاده کنی. از لیستها هم میتونی پرینت بگیری ولی به سادگی نیست که من شرح بدم باید یه repeater بسازی برای reportتت و اون رکوردها رو bind کنی بهش.
در مورد جستجو سریع هم نمیدونم چی رو منظورته، اگر مثال آپلود کنی بهتره.

nokhod

07-16-2007, 10:19 PM

جستجو سریع : میشه توی ایونت change اون تکست باکس یه کوئری ساخت
کد:
SELECT * FROM table_name WHER field_name LIKE '......که با عوض شدن تکس اجرا بشه...

این جواب شما تو چند صفحه قبل بود...
برام یه جوریه هر کاریش میکنم نمی گیرمش دیگه:pudency:

راستی شمام همچین جوابی دادین :

یعنی مثلا اگر تکست باکس Text1 باشه:

کد:
Private Sub Text1_Change()
Dim rs As ADODB.Recordset
Set rs = dfwConn.Execute("SELECT * FROM book WHERE name LIKE %" & Text1.Text & "%")
End Sub

حالا این rs همون رکوردستی هست که میشه ازش استفاده کرد و لیست کرد سرچ رو.

این الان جواب نمیده ...

balabala

07-16-2007, 10:28 PM

این جواب شما تو چند صفحه قبل بود...
برام یه جوریه هر کاریش میکنم نمی گیرمش دیگه:pudency:

راستی شمام همچین جوابی دادین :

یعنی مثلا اگر تکست باکس Text1 باشه:

کد:
Private Sub Text1_Change()
Dim rs As ADODB.Recordset
Set rs = dfwConn.Execute("SELECT * FROM book WHERE name LIKE %" & Text1.Text & "%")
End Sub

حالا این rs همون رکوردستی هست که میشه ازش استفاده کرد و لیست کرد سرچ رو.

این الان جواب نمیده ...
سورست رو بفرست من یه مثال میذارم توش.

nokhod

07-16-2007, 10:40 PM

فایل (http://www.divshare.com/download/1280935-b43)

تشکرات...

nokhod

07-16-2007, 10:42 PM

داشتم تو سایتی که قبلا داده بودین به عنوان یاد گیری گشتی میزدم
دیدم تو اغلب دستوراتش server رو دارهمثلا

set objConnection=Server.CreateObject("ADODB.connection")

اون سرور یهنی این دستوراتش واسه نت هست؟
و به درد vb نمیخوره؟ چون اکثره مثالاش اینجوریه...

mammad81

07-16-2007, 11:30 PM

اساتید با عرض معذرت یه نگاهی هم به اینجا (http://my.blackmice.com/showthread.php?t=12595) بندازید :)

balabala

07-16-2007, 11:31 PM

داشتم تو سایتی که قبلا داده بودین به عنوان یاد گیری گشتی میزدم
دیدم تو اغلب دستوراتش server رو دارهمثلا

اون سرور یهنی این دستوراتش واسه نت هست؟
و به درد vb نمیخوره؟ چون اکثره مثالاش اینجوریه...
اون دستور برای ساختن اشیا توی asp3 هست. ویبی خودش با Dim میتونه بسازتشون.
این مثالی که گذاشتی DAOئه نه ADO. من دقیق نمیدونم LIKE توی DAO چیه... ولی اون مثالی که توی تب 2، قسمت سرچ گذاشتم همون ایده منه:
http://rapidshare.com/files/43292879/Porojeh2.zip.html
/
در ضمن divshare برای من فیلتره دیگه اونجا آپلود نکن، با ف*لتر شیکن رفتم X}

nokhod

07-17-2007, 12:05 AM

nokhod

07-17-2007, 12:08 AM

در ضمن divshare برای من فیلتره دیگه اونجا آپلود نکن، با ف*لتر شیکن رفتم X}

باشه چشم.از این به بعد سعی می کنم تو همین رپید بزارم

balabala

07-17-2007, 01:32 PM

گزارشگیری توسط رو یاد گرفتم فقط یه سوال تنظیمات یا برامه نویسی میشه کرد واسه همین ریپورتی که تو وی بی درست میشه یا نه این گزارشگیری میاد کل فیلد ها رو نشون میده نمیشه براش یه فیلتر هایی گذاشت؟...

یا اینکه از لحاظ گرافیکی و نمایش بشه براش کاری کرد ؟

ببخشیدا ....
خیلی سوال میکنم...
سوالتون رو متوجه نشدم. توی گزارش ساختن شما خودتون گزارش رو طراحی میکنید درست شبیه یه فرم. بعد با همون دستورات SQL هرچی که میخواید رو میسازید و بهش میدید که نشون بده، یعنی با SQL میشه شرط و فیلتر و اینا گذاشت براش

nokhod

07-19-2007, 06:53 AM

سوالتون رو متوجه نشدم. توی گزارش ساختن شما خودتون گزارش رو طراحی میکنید درست شبیه یه فرم. بعد با همون دستورات SQL هرچی که میخواید رو میسازید و بهش میدید که نشون بده، یعنی با SQL میشه شرط و فیلتر و اینا گذاشت براش

دستوراتش کجای ریپورت نوشته میشه؟ مثلا من میخوام که به صورات یه تیبل نمایش داده بشه..

balabala

07-19-2007, 01:25 PM

دستوراتش کجای ریپورت نوشته میشه؟ مثلا من میخوام که به صورات یه تیبل نمایش داده بشه..
نخود به این راحتیا نیست من بتونم شرحش بدم. خودش یه کتابه!
توی این سایت کلی مثال ریخته که کمکت میکنه:

http://planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabet ical&txtCriteria=datareport&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1

/
مثلا این یکی از مثالهاشه:
http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=33143&lngWId=1

nokhod

07-22-2007, 08:29 AM

یه مثالی بود د ال کردم . یه جورایی اونچیزی بود که من میخواستم
بازم دستتون درد نکنه

nokhod

07-22-2007, 08:32 AM

راستی یه کتاب برای sql server 2000 می خواستم ...
اگه کتابی در این رابطه میشاسی لطفا معرفی کن سطح کتاب هم بالا باشه (واسه خودم نمی خوام واسه استادمه)

balabala

07-22-2007, 11:56 AM

راستی یه کتاب برای sql server 2000 می خواستم ...
اگه کتابی در این رابطه میشاسی لطفا معرفی کن سطح کتاب هم بالا باشه (واسه خودم نمی خوام واسه استادمه)
متاسفانه گفتم من کتاب زیاد نمیشناسم :/

nokhod

08-31-2007, 03:30 PM

اول سلام
دوم سوالاتم

جناب بلا بلا تو مثالی که گذاشته بودم و شما ادیتش کرده بودید که ماژول به فایلم اضافه کردید واسه ارتباط درست پایگاه با vb یعنی (Provider=Microsoft.Jet.OLEDB.3.51) <- قسمتی از ماژول بود.

حالا من چطوری میتونم یه همچین ماژولی واسه چیزای دیگه بنویسم. منظورم اینه که برای دیتا ریپورت هم میخوام یه هنچین ماژولی بنویسم که دیکه بهش مسیر ندم از مسیر ریشه فایل ، فایل پایگاه داده رو بخونه؟

سوال دوم نمیدونم این سوال رو تا الان پرسیدم یا نه که چطوری میتونم نتیجه سرچ رو (حالا سرچ معمولی یا همون سریع که شما نوشته اید) رو به یه دیتا گرید بایندش کرد؟ یا با این مدل سرچ کردن مشکل داره...

باز ممنون...
فعلا...

اگه فایل رو ندارید اینجا براتون گذاشتم:
دریافت فایل (http://www.divshare.com/download/1805629-8ea)

balabala

08-31-2007, 03:43 PM

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

Data Source=
حالا کاری که من کردم این بود که قبلش مسیر دیتابیس رو با App.Path پیدا کردم و بعد به اون کانکشن استرینگ دادم. دستور App.Path مسیر پروژه رو برمیگردونه که اگر بعدش اسم دیتابیس رو هم بگذاری مسیر فایل دیتابیس توی فولدر پروژهت رو میده. تو هم میتونی هر جا لازم بود بجای c:\xyz و غیره از App.Path بعلاوه اسم فایل استفاده کنی.
/
در مورد دیتا گرید هم اگر پراپرتی DataSource داره (الان یادم نیست) میتونی Recordset رو بهش بدی که بایند بشه وگرنه باید یکی یکی عناصر recordset رو با MoveNext بریزی توش.

nokhod

08-31-2007, 04:00 PM

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

کد:
Data Source=حالا کاری که من کردم این بود که قبلش مسیر دیتابیس رو با App.Path پیدا کردم و بعد به اون کانکشن استرینگ دادم. دستور App.Path مسیر پروژه رو برمیگردونه که اگر بعدش اسم دیتابیس رو هم بگذاری مسیر فایل دیتابیس توی فولدر پروژهت رو میده. تو هم میتونی هر جا لازم بود بجای c:\xyz و غیره از App.Path بعلاوه اسم فایل استفاده کنی.
/

جناب بلا بلا اینا رو همه رو متوجه شدم... سوالم این بود که چطوری یه ماژول دیگه میتونم بنویسم کهProvider=Microsoft.Jet.OLEDB.4.0 با این ارتباط برقرار کنه ...چون فک می کنم پراپرتیشون با هم فرق داره و باید تغییر بدم ماژول رو واسه همین نمی دونستم که چه پراپرتی داره و واسه این رفرنس چطوری میشه ماژول نوشت که برای ریپورتم ازم مسیر نخواد.؟

nokhod

08-31-2007, 04:03 PM

پراپرتیشون با هم فرق داره و باید تغییر بدم ماژول رو واسه همین نمی دونستم که چه پراپرتی داره و واسه این رفرنس چطوری میشه ماژول نوشت

حالا نه تنها برا این ، واسه یه سری رفرنسهای دیگه که میخوان ماژول بنویسم از کجا بفهمم که چه پراپرتی دارن که بهشون مقدار دهی کنیم؟

balabala

08-31-2007, 04:06 PM

جناب بلا بلا اینا رو همه رو متوجه شدم... سوالم این بود که چطوری یه ماژول دیگه میتونم بنویسم کهProvider=Microsoft.Jet.OLEDB.4.0 با این ارتباط برقرار کنه ...چون فک می کنم پراپرتیشون با هم فرق داره و باید تغییر بدم ماژول رو واسه همین نمی دونستم که چه پراپرتی داره و واسه این رفرنس چطوری میشه ماژول نوشت که برای ریپورتم ازم مسیر نخواد.؟
منظورت رو متوجه نمیشم. یه مثال بیار

nokhod

08-31-2007, 04:29 PM

balabala

08-31-2007, 05:01 PM

ما وقتی میخوایم فایل پایگاه داده رو به یه Adodc اتصال بدیم شما واسه این بایند کردن ماژول نوشتی درسته؟
برای این بایند کردم احتیاج به یه رفرنس داشتیم (Microsoft.Jet.OLEDB.3.51)که باید از روش دستی
می رفتییم تو پراپرتی Adodc و بعد .... خلاصه کلام اینکه باید به صورت دستی ارتباط میدادیم و مسیری که می دایم فایل فقط از اونجا خونده میشد... و شما برای رفع تمام این مشکلا اومدی و یه ماژول نوشتی اینم ok؟

خوب حالا من برای اینکه بتونم بخش گزارشگیری رو اضافه کنم باز باید از یع رفرنس دیکه که نیاز به اتصال داره استفاده کنم و اونم Microsoft.Jet.OLEDB.4.0 اینه. باز باید بهش به صورت دستی مسیر بدم و فایل رو از اونجا بخونه در صورتی که با تغییر محل فایل در هنگام نشون دادن گزارش از من مسیر درست رو میخواد...
حالا من میخوام یه همچین ماژولی که بالا واسه اتصال vb و فایل پایگاه داده نوشتید یه همچین چیزی واسه این بنویسم...همین!! :ی

پست آخرمم رو فعلا هیچ... حالا مشکل بالا حل بشه اونو بعدا می پرسم:ی
خب واقعا این جواب میخواد الان نخود؟ http://qsmile.com/qsimages/sp/var/amazed.gif
خودت یه ماژول درست کن. تمام فانکشنهایی که من توی اون ماژول ساختم رو هم بذار توش، منتها با یه تغییر نام کوچیک. بعد از اون دوتا فانکشن برای اتصال به دیتابیس استفاده کن. مثلا اینطوری:

Option Explicit
Public sConnect As String
Public dfwConn2 As ADODB.Connection
Function connect_database2() As Boolean
On Local Error GoTo errs1
Dim path As String
path = App.path & "\Book.mdb"
' set strings
sConnect = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=Admin;Data Source=" _
& path & ";Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Global Partial Bulk Ops=2"

' open connection
Set dfwConn2 = New Connection
dfwConn2.Open sConnect
connect_database = True
Exit Function
errs1:
MsgBox "Can not connect to " & path, vbExclamation
connect_database = False
End Function
Sub disconnect_database2()
On Local Error Resume Next
dfwConn2.Close
Set dfwConn2 = Nothing
End Sub

خب! این چیش مشکله؟ یه کپی برداریه دیگه. connect_database2 رو صدا بزن. بعدش DataSource ریپورت رو برابر dfwConn2 قرار بده. آخر سرم disconnect_database2 رو صدا بزن.

منتها میتونی کانکشن رو از 3.51 بکنی 4.0 هیچ فرقی نمی فوکوله.

nokhod

08-31-2007, 05:09 PM

خوب یعنی تمام پراپرتی هاشون یکیه؟

من فک می کردم پراپرتیشون با هم فرق داره....

خوب من اینکارو کردم ولی....
باز یه بار دیگه امتحان می کنم بعد میام....

tnx

balabala

08-31-2007, 05:13 PM

خوب یعنی تمام پراپرتی هاشون یکیه؟

من فک می کردم پراپرتیشون با هم فرق داره....

خوب من اینکارو کردم ولی....
باز یه بار دیگه امتحان می کنم بعد میام....

tnx
اصلا توی ماژول پراپرتی نداریم. اون کلاسه که ممکنه پراپرتی داشته باشه. اینجا دوتا متغییر سراسری داریم که باید اسماشون رو تغییر بدی که با اونیکی ماژول تداخل نداشته باشه. با دوتا فانکشن که باید اسم اونها رو هم تغییر بدی (و هرجا تو کد اسماشون امده هم تغییر بده).... امتحان کن حتما جواب میده ;)

balabala

08-31-2007, 05:23 PM

نخود اگر از کلاس بلدی استفاده کنی بجای دوباره ساختن یه ماژول میتونی این کد رو استفاده کنی:

http://rapidshare.com/files/52466168/New_Folder.zip.html

میتونی هر تعداد که دلت خواست از کلاس myDB بسازی و از کانکشن و فانکشنهاش استفاده کنی... فرم 1 یه مثال کوچیک از ساختن و صدا زدن کلاسه.

nokhod

08-31-2007, 05:24 PM

خب! این چیش مشکله؟ یه کپی برداریه دیگه. connect_database2 رو صدا بزن. بعدش DataSource ریپورت رو برابر dfwConn2 قرار بده. آخر سرم disconnect_database2 رو صدا بزن.

منتها میتونی کانکشن رو از 3.51 بکنی 4.0 هیچ فرقی نمی فوکوله.

خوب نمیشه بخدا وگرنه من دیگه اونقدر....:pudency:
نمیشه....:adore:

من تو یه فایل جدا ریپورت گرفتم و این ماژولم اضافه کردم ولی خو جواب نمیده
وقتی می رم تو DataEnvironment1 , قسمت کانکشن و پراپرتی وقتی آدرس رو پاک کنم طبیعتا
باید طبق اون ماژول کارکنه ولی باز پنجره باز میشه و مسیر میخواد

برنامه (http://www.divshare.com/download/1806476-a04)

فعلا ...

nokhod

08-31-2007, 05:26 PM

اصلا توی ماژول پراپرتی نداریم. اون کلاسه که ممکنه پراپرتی داشته باشه. اینجا دوتا متغییر سراسری داریم که باید اسماشون رو تغییر بدی که با اونیکی ماژول تداخل نداشته باشه. با دوتا فانکشن که باید اسم اونها رو هم تغییر بدی (و هرجا تو کد اسماشون امده هم تغییر بده).... امتحان کن حتما جواب میده ;)

نه منظورم پراپرتی ماژول ها نیست...
منظورم پراپرتی اون رفرنساس که بجای 3.5 بشه 4.0 فرقی نمیکنه؟

balabala

08-31-2007, 05:31 PM

خوب نمیشه بخدا وگرنه من دیگه اونقدر....:pudency:
نمیشه....:adore:

من تو یه فایل جدا ریپورت گرفتم و این ماژولم اضافه کردم ولی خو جواب نمیده
وقتی می رم تو DataEnvironment1 , قسمت کانکشن و پراپرتی وقتی آدرس رو پاک کنم طبیعتا
باید طبق اون ماژول کارکنه ولی باز پنجره باز میشه و مسیر میخواد

برنامه (http://www.divshare.com/download/1806476-a04)

فعلا ...
اهان! پس بگو! از DataEnvroment استفاده کردی http://qsmile.com/qsimages/sp/var/amazed.gif
خب این DataEnvrioment تمام کارهای کانکت و غیره رو انجام میده! اصلا دیگه recordset نمیخاد که!
دیگه لازم نیست از سورس من استفاده کنی که! منتها موقع اجرا باید ConnectionStringش رو بصورت کد تغییر بدی که بجای مسیر c:\فلان فلان، مسیر پروژه باشه. اینطوری:

Private Sub Command1_Click()
Dim path As String
path = App.path & "\Book.mdb"
DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=Admin;Data Source=" _
& path & ";Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Global Partial Bulk Ops=2"
DataReport1.Show
End Sub

در صورتی دکورد ست میخواستی که از اون استفاده نمیکردی و دستی DataSource ریپورتت رو می ساختی.

balabala

08-31-2007, 05:34 PM

نه منظورم پراپرتی ماژول ها نیست...
منظورم پراپرتی اون رفرنساس که بجای 3.5 بشه 4.0 فرقی نمیکنه؟
نه! فرقی نمیکنه. هرچی ورژن جدیدتر بپذیره بهتره. (اگر اررور نداد)

nokhod

08-31-2007, 05:36 PM

بسیار بسیار تنکس.
منظورم این بود از اول باید همینو می نوشتم....

ببخشید بدجوری شرح مسئله کردم.....

فعلا...

balabala

08-31-2007, 05:40 PM

فهلا http://qsmile.com/qsimages/sp/doofywave[1].gif

nokhod

10-11-2007, 11:29 PM

می باز اومدم...

جناب بلا بلا از اون جایی که ترم آخرم واحد پروژه رو برداشتم و می خوام بانک اطلاعاتی رو که (شما بهم خیلی خیلی) کمک کردین رو یه دستی بکشم بدم تا ببینم استاد چی میگه... و من چه چیزایی باید اضافه کنم....
در اولین فرصت فایل کلی رو که تغییراتی توش اعمال کردم رو براتون پ.خ می زنم ... تا نظرتونو بگین بعد بدم به استاد....

با تشکرات فراوان ...

nokhod

10-20-2007, 03:40 PM

:cryb::cryb::cryb:
تو همین پست قبلی گفتم باید پروژه رو به استاد نشون بدم:pudency:

و امروز نشون دادم....:nothing_to_say:

از اونجایی که شنیده بودم استاده خیلی خیلی سخت گیره و دکتره حدس میزدم که چیزای سختی ازم بخواد..............:pudency:

ولی نه اینو....... نا امیدم کرد....

میگه یه کاری کن که بشه از طریق اینترنت درخواست کتاب کنه.......خوب اینی که گفت یعنی چی؟
از یکی از استادا پرسیدم گفت باید بری vb.net کار کنی.....خو من vb.net بلد نیسم.... بخدا وقتشم ندارم برم یاد بگیرم با این هم کاری که ریخته سرم............. وگرنه از خدامه یاد بگیرم.......:adore:

به نظر شما من چیکار کنم..... اصلا این چی میگه؟ راستی گفت چندتا pdf هم بذار تنگش واسه درخواستای اینترنتی؟؟؟؟؟؟؟

جناب بلا بلا شدیدا احتیاج به کمک دارم تا الان اینطوری نمونده بودم:cryb::cryb:

تا بعد بای

balabala

10-20-2007, 03:54 PM

والا منم نفهمیدم منظورش چی بوده؟ یعنی از اینترنت دانلود کنه؟ یا کلا برنامهش web-base باشه؟ اگر web-base بخواد باید با ASP یا ASP.NET بنویسی (کلا از اول :d)

nokhod

10-20-2007, 10:44 PM

والا منم نفهمیدم منظورش چی بوده؟ یعنی از اینترنت دانلود کنه؟ یا کلا برنامهش web-base باشه؟ اگر web-base بخواد باید با ASP یا ASP.NET بنویسی (کلا از اول :d)

فک نکنم web-base باشه وگرنه میگفت باید اینو ول کنی بچشبی به زبان دیگه و از اول شروع کنی....
بهم گفت این خوبه .... ولی آماده است(فک کنم که فک می کنه من اینو ننوشته ام و از بیرون گرفتم) خلاصه گفت کاری کن که بتونه سفارش بده از طریق اینترنت... من ازش پرسیدم یعنی اینکه وقتی کاربر آن لاینه و برنامه هم در حال اجرا درخواست بده... اونم گفت آره.... :pudency:

این یعنی چی؟vb همچین قابلیتی رو داره؟:nothing_to_say:

:cryb::cryb::cryb:

فعلا...

nokhod

10-21-2007, 05:59 PM

جناب بلا بلا کجایییین؟؟؟؟؟؟ من چیکار کننننننننننم؟

فعلا...

balabala

10-21-2007, 06:03 PM

فک نکنم web-base باشه وگرنه میگفت باید اینو ول کنی بچشبی به زبان دیگه و از اول شروع کنی....
بهم گفت این خوبه .... ولی آماده است(فک کنم که فک می کنه من اینو ننوشته ام و از بیرون گرفتم) خلاصه گفت کاری کن که بتونه سفارش بده از طریق اینترنت... من ازش پرسیدم یعنی اینکه وقتی کاربر آن لاینه و برنامه هم در حال اجرا درخواست بده... اونم گفت آره.... :pudency:

این یعنی چی؟vb همچین قابلیتی رو داره؟:nothing_to_say:

:cryb::cryb::cryb:

فعلا...
خوب وقتی گفته آره یعنی web-base میخواد دیگه. برو ازش بیشتر سوال کن بفهمون بهش که اینو خودت نوشتی. برای سفارش آنلاین که نمیشه از یه برنامه windows application استفاده کرد باید web-base بنویسی اونوقت.

nokhod

10-21-2007, 06:28 PM

خوب وقتی گفته آره یعنی web-base میخواد دیگه. برو ازش بیشتر سوال کن بفهمون بهش که اینو خودت نوشتی. برای سفارش آنلاین که نمیشه از یه برنامه windows application استفاده کرد باید web-base بنویسی اونوقت.

:cryb:
یه چیز دیگه منظورش از گذاشتن pdf تو برنامه چی بود... به من گفت pdf بذار...
:cryb:

آخه دوسال دانشجو بودیم ترم آخر دارن دیگه..... ترم آخر هرکی یه چیزی میخواد .... هر استادی هم به فکر خودشه میگه پروژه منو باید برسوونی .....آخه اینجوووری....بعد انتظارم دارن از ما.....

من نمی خوام:adore:

فعلا...

balabala

10-21-2007, 06:57 PM

PDF شاید منظورش آموزش استفاده از برنامهست. بصورت PDF بساز.

nokhod

10-24-2007, 07:31 PM

سلام...

فعلا اون چیزی رو که استاد گفته کاری ندارم.... خودم میخوام یه سری تغییر و تحول بدم تو پروژه ام....

تغییر از این قراره میخوام واسه کسایی که عضو میشن عکس بزارم....
خوب بیکارم نموندم...تحقیق کردم.. کلی مثال و pdf هم گیر آوردم... ولی خوب ... چون وقت نبود نشد همه رو مرور کنم...
کلا یه سری سوال دارم:
1- بهتره واسه عکسا یه بانک دیگه ایجاد کنم یا نه؟
2- تا اینجایی که خوندم فهمیدم که باید آدرس عکسا ذخیره بشن... خو وقتی آدرس عکس ذخیره بشه مثله یه داده بیاریمش بیرون و متصلش کنیم به شی عکسمون؟ درسته آیا؟
3-فعلا.. همون دوتا....

تا شروع کنم باز سوالام شروع بشه.....

فعلا....

balabala

10-24-2007, 07:38 PM

میتونی هم توی دیتابیس ذخیره کنی هم توی یه فولدر بعد مسیرش رو توی دیتابیس اشاره کنی بهش. ذخیره توی فولدر راحت تره.
بعد توی picturebox لودش کنی.

nokhod

10-24-2007, 07:57 PM

یادم رفت عکسشو بزارم :
http://i24.tinypic.com/ipv2qg.jpg

راستی یه سوال موقعی که عکسا یه جا باشن و از قبل مشکلی نیست برای اینکه توسط open بازشه... مسیر اونو چطوری میتونم استخراج کنیم؟ تا بزاریمش توی بانک؟

پ.ن: منظورمو رسوندم یا نه؟ :(

balabala

10-24-2007, 08:02 PM

نفهمیدم چی گفتی. ولی فایلها رو مثالا به اسم id اون رکورد توی فولدر images ذخیره کن. بعد موقعی که فرم رو نشون میدی اینجوری لودشون کن:
Set PictureBox1.Picture= LoadPicture("C:\project\images\id123.jpg")
توی بانکم توی فیلد یه چیزی شبیه این میشه برای رکورد:
id123.jpeg
بعد تو C:\project\images رو دستی بهش اضافه میکنی.

nokhod

10-24-2007, 08:06 PM

قربان این درست... منظورم زمانی هست که کاربر داره یه عکس جدید از بیرون میزاره.... اون وقت از پنجره open باید عکسشو بزا کنه .... با عکسای جدید باید چیکار کرد.... :( بازم بد گفتم....؟ چطوری مسیر ذخیرهسازی عکسو در بیاریم....؟

balabala

10-24-2007, 08:13 PM

nokhod

10-24-2007, 09:30 PM

از CommonDialog استفاده کن برای انتخاب عکس. یه picture viewer سرچ بزن توی psc مثال هاش خوبن. درضمن توی تاپیک آموزش از روی مثال همین فروم (http://my.blackmice.com/showthread.php?t=8254)از common dialog استفاده کردم برای انتخاب فایل txt که با کمی تغییر میتونی برای انتخاب عکس با پسوند bmp و gif و jpeg استفاده کنی.

جناب بلا بلا

می دونم باید از کامان دیالوگ باید استفاده کنیم اون عکسی که از از بیرون پروژه لود میشه چطوری باید تو بانک ذخیره کنیم.. منظورم اینه.... http://qsmile.com/qsimages/306.gif چطوری باید آدرسشو در بانک ذخیره کنیم؟.....http://qsmile.com/qsimages/297.gif

فعلا...

balabala

10-24-2007, 10:00 PM

گفتم که! یه فیلد بساز براش از نوع text بعد مسیر فایل رو بده توش. وقتی رکورد رو خوندی با loadpicture تصویر رو بخون. یا کلا یه فیلد از نوع binary بساز و کل فایل تصویری رو بخون بریز توش که کار سختی میشه.

balabala

10-24-2007, 10:01 PM

برای ذخیره تصویر در اکسس:
http://www.google.com/search?q=save+picture+in+access&sourceid=ie7&rls=com.microsoft:en-US&ie=utf8&oe=utf8
مثال:
http://www.vbforums.com/showthread.php?t=335207
http://forums.devx.com/showthread.php?t=49906

nokhod

11-03-2007, 11:06 AM

سلام...

امروز بعد از دو هفته بالاخره استادو دیدم و کلا ازش پرسیدم چی میخواد:
میگه یه تکس باکس باشه یه کاربر درخواست کتاب رو اونجا انجان بده و از طریق یه دکمه این درخواست به یه آدرس ایمیل بشه... منم رفتم تو فرم برنامه نویس و پرسیدم 2تا سمپل برام گذاشتن لینک میدم یه نیگاه بندازین و ممنون میشم بگین من چیکار کنم با کمک این دو تاسمپل یه چیزای دیگه هم هست که من شروع میکنم تا اونا رو درست کنم تا این م شما بهم کمک کنید....ممنون...
http://barnamenevis.org/forum/showthread.php?p=410665

فعلا...

balabala

11-03-2007, 12:15 PM

من زیاد در مورد ارسال ایمیل کار نکردم منتها فکر کنم باید از کامپوننت MAPI استفاده کنی. توی psc هم سرچ کنی send mail کلی سمپل هستش.

nokhod

11-03-2007, 03:53 PM

من زیاد در مورد ارسال ایمیل کار نکردم منتها فکر کنم باید از کامپوننت MAPI استفاده کنی. توی psc هم سرچ کنی send mail کلی سمپل هسش.

جناب بلابلا نگو کار نکردی... :pudency:فقط این یه مورد کمکم کن....پروژه آخره ترممه امیدمم فقط به شماستو اینجا... دروغ نگم دارم کسایی رو که برام انجام بدن یا از آشناها که با استادم صحبت کنن.............:razz:
ولی من نمی خوام........ میخوام یاد بگیرم.... تو اون سایتی که قبلا معرفی کرده بودین رفتم یه سری سمپل دانلود کردم ولی دیگه به من اجازه نمیده.... اینجام که قبلا گفته بودی رفتم ولی چیزی دستگیرم نشد........
می چیکار کنم؟:cryb:

فعلا...

balabala

11-03-2007, 05:48 PM

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

اگر سرچ میکردی کلی آموزش هست.... فقط یک گوگل کافیه:
http://www.google.com/search?q=send+mail+using+VB6&sourceid=ie7&rls=com.microsoft:en-US&ie=utf8&oe=utf8
/
مثلا:
اموزش گام به گام استفاده از کامپوننت MAPI:
http://www.devarticles.com/c/a/Visual-Basic/Sending-Email-With-MAPI-Components-in-Visual-Basic/

http://www.freevbcode.com/ShowCode.Asp?ID=109

http://www.thescripts.com/forum/thread444603.html (مخصوصا پست شماره 8)

/
اونی که توی برنامه نویس گذاشته باید سرور داشته باشی. ولی با MAPI میتونی بوسیله outlook بفرستی. در ضمن برای تست باید حتما یه اکنت pop3 داشته باشی. با وب میل نمیشه (مثلا یاهو نمیشه باید گوگل استفاده کنی با pop3 فعال شده)

balabala

11-03-2007, 05:53 PM

اینم یه برنامه کامل که میتونی کلا بصورت DLL استفادش کنی. example هم داره.

nokhod

11-03-2007, 06:35 PM