اساتيد محترم وي بي پاسخ دهند

[siamak-s]

با سلام

چند تا سوال داشتم كه اساتيد وي بي اگر جواب بدن ممنون ميشم

1- وقتي كه مي خوام متود Refresh ر و از ADO Data Control اجرا كنم با اين ارور ها مواجه ميشم
Syntax Error in FROM Clause
و بعد در ارور ديگه اي
Run time Error -2147217900(80040e14)
Method Refresh of Object 'IAdodc failed.

و بعد به اين سطر از برنامه مياد
Adodc1.Refresh

2- مي خوام مقدار چند تا متغير رو طوري مقدار رهي كنم كه با بستن برنامه مقدارشونو از دست ندن و فقط و فقط بشه مقدار اون ها رو از داخله برنامه يا حذف كرد يا تغيير داد (نكته اينكه در هر بار اجراي يرنامه مقدار از بين نمي رود)
3- چه جوري ميشه پنجره هاي Child رو داك كرد ( يعني طوري باشن كه وقتي به هم نزديم مي شن به هم بچسبن)
4- يك نمونه به من بگيد كه چه جوري ميشه از دستور Select SQL و با دستور WHERE مقدار فيلد ها رو به چند تا متغير نسبت بديم
يعني بگيم فيلد فلان برابر باشه با فيلد فلان در عين حال فيلد فلان برابر باشه با فيلد فلان در عين حال ... و به ما ركوردي رو نشون بده كه ما مقادير فيلدهاشو تعيين كرديم
5- چه جوري ميشه هنگامي كه كرسر روي يه شيي ميره ما عبارتي رو روي Status Bar برنامه نشون بديم

با تشكر
سيامك

[Iron_Fist]

1.بلد نيستم
2.مقدار متغير رو تو ريجستري يا يك فايل INI بريز و موقع نياز اون مقدار را فراخواني كن
3.بلد نيستم
4.بلد نيستم
5.تو رويداد موس موو شيت بنويس كه تو Status Bar چيز دلخواهت رو قرار بده

[mRizvandi]

سلام

آقاي siamak-s اگه از اين عنوان استفاده نمي كردي آدم راحتر مي تونست بياد توي تاپيك بي خيال بابا ما كه استاد نيستيم

اساتيد محترم وي بي پاسخ دهند

سوال اول: دستور قبل از Refresh داراي اشكال هست و مطمنان شما از يك دستور SQL استفاده كردي و حتما داخل اون اشكال SQL داري. براي رفعش بايد SQL رو بگي چيه تا دوستان راهنمايي كنند. ((پيشنهاد مي كنم سوالت رو در بخش بانك اطلاعاتي بپرسي))
سوال دوم: Iron_Fist توضيح دادند توي سايت هم جستجو كد كد زياد هست
سوال سوم: آدرس هر پنجره رو در لحظه تغيير مكان مي گيري و با آدرس پنجره هاي ديگه چك مي كني اگر اختلافشون مثلا كمتر از 10 بود اون اختلاف رو صفر ميكني. تا اونجايي كه يادم هست داخل سايت سورس موجود هست
سوال چهارم: در بخش بانك اطلاعاتي اگر مي پرسيدي بهتر بود ولي چون اين بخش تازه راه افتاده::

کد:

"SELECT * FROM tblNAME WHERE fld1=" & VAL(txtValue1.text) & " AND fld2=#" & txtDate.text & "# AND fld3='" & txtString.text & "'"

سوال پنجم: حداقل اينه كه در رويداد mousemove هر كدي رو كه مي خواي بنويس
:wink:
ديدي من استاد نيستم ولي جواب سوالات رو تقريبا دادم
موفق باشي
:wink:

[ako]

سلام دوست عزيز
جواب سوال اول:اگه شما از قسمت كاستوم اي دي او استفاده مي كنيد و يك جدول را انتخاب مي كنيد بايد بگم اشتباه است و بايد دستور اس كيو ال بنويسي
Adodc1--->RecordSource----->CommandType=8-adCMDUNKNOW ***** CommandText=SqlCommand

سوال 2: به نظر من مي توني مقدار ها را توي يه فايل ذخيره كني با هربار لود شدن برنامت بري و اون هارو بخوني و در همون متغيير ها قرار بدي

سوال 3: نمي دونم

سوال 4: متوجه نشدم چطوري مي گي

سوال 5: طو متد ماوس موو اون شي مقداري كه مي خواهي نمايش داده ش.د به استاتيوست اضافه كن

[siamak-s]

سلام دوستان

از پاسخ هاتون ممنوع ، من هر جا وسوال اولم رو پرسيدم نتونستن جواب بدن به خاطر همين موضوع رو اين گذاشتم و مقداري هم جنبه ي اغراق داشت !
ميشه بگيد كه من چه جوري ميتونم مقدار يك متغير رو توي رجيستري بريزم و يا به من كدي بديد
آقاي mRizvandi من از يك دستور WHERE قبل از Refresh استفاده كردم فكر مي كنيد مشكل از كجاست
آقاي ako ميشه در مورد اين يه خط SQL توضيحي بديد من تا حالا چنين چيزي توي SQL نديدم !

با تشكر از بچز
سيامك

[ako]

آقاي simak-s اين خط كه نوشتم دستور اس كيو ال نيست بلكه مسيري است كه شما در اونجا بايد دستور اس كيو ال بنويسي

[siamak-s]

دوستان مشكل من خيلي مهم الان چند جاي برنامه سر همين متد ريفرش گير كردم
آقايون ميشه در مورد سوال من يه راه حل بديد بابا يكم توضيح بيشتر بديد ما تازه كاريما
با تشكر
سيامك

[mRizvandi]

سلام

دوست عزيز شما بايد لطف كني و قسمت كد قبل از خطا و بعد از خطا رو (حداقل 3 خط از كدت رو) بذاري تا من بتونم ببينم كه مشكل از كجاست.
:wink:

[siamak-s]

دوستان اين هم تمامي كد :
ممنون ميشم مشكلش رو بگيد


Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT * From tblOnvan " & " WHERE Last Name =" & strBookmark
Adodc1.RecordSource = strSQL
Adodc1.Refresh
End Sub
زمان اجرا
وقتي كه مي خوام متود Refresh ر و از ADO Data Control اجرا كنم با اين ارور ها مواجه ميشم
Syntax Error in FROM Clause
و بعد يه ارور ديگه اي
Run time Error -2147217900(80040e14)
Method Refresh of Object 'IAdodc failed.

و بعد به اين سطر از برنامه مياد
Adodc1.Refresh

[mRizvandi]

سلام

دوست عزيز شما يك مشكل كوچولو داري اون هم در نام فيلد هست:
:idea: هيچ وقت در نام فيلد از Space استفاده نكنيد
اگر از فاصله در نام فيلد استفاده كردي بايد در زمان نوشتن SQL اون فيلد رو در [] قرار بدي كه البته پيشنهاد من اينه كه اصلا اون فاصله رو حذف كني تا مشكلات ديگه بروز نكرده

کد:

strSQL = "SELECT * From tblOnvan WHERE [Last Name] ='" & strBookmark & "'"

:wink: