پایگاه داده در وبی

[mina1110]

سلام.یه برنامه وی بی دارم.در این برنامه باید افراد مختلف لاگین کنند.پایگاه داه اش با اکسس نوشتم وکلید اونو
user name قرار دادم.
یک ado براش قرار دادم ولی وقتی میخوام توی دکمه ok اون دستورات sql قرار بدم پیغام خطا میده.
میشه بگین اصلا چه دستوری باید قرار بدم؟؟

[hrj1981]

اين شايد كمكت كنه...

Private Sub command1_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Database Path;Persist Security Info=False"
.RecordSource = "SElECT * from T_user where username = '" & Trim(Text1.Text) & "' AND userpass = '" & Trim(Text2.Text) & "'"
.Refresh
End With
Select Case Adodc1.Recordset.RecordCount
Case Is = 1
"وقتي نام كاربري و اسم رمز درست بود اين دستورات اجرا شود"
Case Is <> 1
"وقتي نام كاربري و اسم رمز غلط بود اين دستورات اجرا شود"
end select
end sub

[mina1110]

این کدی که دادین پیغام خطا میده پیغامش هم از تابع Refresh اون هست میشه بگین چرا؟
http://barnamenevis.org/forum/<a href=

mehod Refresh of object iadodac failed
این هم پیغامه خطا شه

[hrj1981]

در بانك اطلاعاتيان نوع فورمت فيلد پسورد چيست؟ اگر بصورت عددي بود كاراكترهايي كه قرمز رنگ مي باشند از خط دستور برداريد

userpass = '" & Trim(Text2.Text) & "'"

[majjjj]

این کدی که دادین پیغام خطا میده پیغامش هم از تابع Refresh اون هست میشه بگین چرا؟
http://barnamenevis.org/forum/<a href=

mehod Refresh of object iadodac failed
این هم پیغامه خطا شه

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

[mina1110]

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


نه از نوع متنی هست نفهمیدم منظورتونو.این که تکس باکس ها را به ado متصل کنیم.
این کارو کردم

[hrj1981]

دوست عزيز در SQL نويسي اگر بانك اطلاعاتي حاوي مقادير متني باشد حتمابايد ا زكاراكتر ' استفاده گردد و اگر از نوع مقادير عددي بود بايد كاركتر ' حذف گردد .
شما اگر پروژه تان سبك مي باشد روي تايپيك بگذاريد تا سريعا براي شما درستش كنم.

[hrj1981]

اين سورس را هم امتحان كنيد

Private Sub command1_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Database Path;Persist Security Info=False"
.RecordSource = "SElECT * from T_user "
.Refresh
End With
with Adodc1
.Recordset.Filter = "user='" & Trim(Text1.Text) & "'" & " and uspass= '" & Trim(Text2.Text) & "'"
Select Case .Recordset.RecordCount
Case Is = 1
"وقتي نام كاربري و اسم رمز درست بود اين دستورات اجرا شود"
Case Is <> 1
"وقتي نام كاربري و اسم رمز غلط بود اين دستورات اجرا شود"
end select
end with
end sub

[mina1110]

پایگاه داده ام با اکسس هست.من اصلا پایگاه داده کار نکردم تو وی بی.
واینکه اینجور که شما کد دادین من هم یوزر وهم پسورد را کلید کردم.
واینکه اگه از خود تنظیمات ado بیایم بانک اطلاعاتیشو وصل کنیم مشکلی پیش میاد؟
کدی ندارم که خواسته باشم بزارم همون کدی هست که خودتون گفتین:گیج:

[hrj1981]

ببينيد احتباجي به كليد كردن هر دو نيست (كليد زماني بكار مي رود كه شما بخواهيد يوزر براي برنامه خودتان تعريف كنيد كه آيا يوزر جديد مي تواند پسورد تكراري داشته باشد يا خير )كد بالا درون بانك اطلاعاتي شما سرچ مي كند كه آيا نام يوزر و پسورد وارد شده درون بانك اطلاعاتي اعتبار دارد يا خير (اگر اعتبار داشت جمع ركورد 1 مي شود و در غير اينصورت عددي # 1)اگر 1 باشد يعني يوزر مشخصات خود را درست وارد كرده و مي تواند به برنامه لوگين شود.

[mina1110]

خوب من کلید برداشتم.اون کد جدید هم گذاشتم ولی باز پیغام خطا refersh میده.
شما خودتون این کد را امتحان کردین.من همین لاگین شدنه ساده هست.اگه جواب گرفتیم میشه فرمشو بزارین من ببینم.مرسی
این هم کد من


Private Sub command1_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= F:\vb11\things1.mdb;Persist Security Info=False"
.RecordSource = "SElECT * from user "
.Refresh
End With
With Adodc1
.Recordset.Filter = "username='" & Trim(Text1.Text) & "'" & " and password= '" & Trim(Text2.Text) & "'"
Select Case .Recordset.RecordCount
Case Is = 1
frm1.Show
Case Is <> 1
MsgBox "Invalid Password, try again!", , "Login"
End Select
End With
End Sub

[hrj1981]

اين هم نمونه پروژه انشاا... كه كمكتان كند

[hrj1981]

اين هم با نمونه سورس كد دوم

[mina1110]

مرسی ولی اگه با دکمه بود بهتر بود.من یه سوال دیگه هم داشتم
میخوام تو فرم پایگا همو نشون داده بشه و با زدن دکمه جدید و یا حذف به پایگاهم داد ها ویرایش بشه ولی پیغام خطا میده
میشه کمکم کنید
تا من سوال بعدیمو بزارم:لبخند:
با data grid درستش کردم

[hrj1981]

در sampel دومي با دكمه مي باشد
در مورد سوالتان كمي بيشتر توضيح دهيد

[mina1110]

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

[mina1110]

سلام من این فایل دومی که شما گذاشتید را در برنامه ام گذاشتم که با دکمه به فرم بعدی میره.در خود برنامه vb مشکلی نداره ولی وقتی از اون setup درست میکنی پیغام خطا میده که فایل پایگاهم که اکسسه را نمی تونه پیدا کنه.
یک db دیگه هم دارم که مشکلی نداره.
حالا شما خودتون همون فایل ضمیمه شده را setup اونو درست کنید پیغام خطاشو می بینید.
ممنون میشم کمکم کنید.

[hrj1981]

منظور شما از SETUP فايل كامپايل شده مي باشد؟

[mina1110]

بله.با خود برنامه package and deployment که برای خود وی بی هست پیغام خطا میده.
با برنامه setup factory نسخه هفتش هم پیغام خطا میده.
یعنی setup را درست میکنه تو کامپیوتر خودم چند دفعه اول اجرا میشد خطا نداشت.
ولی برای امتحان توی کامیتور دیگه run کردم خطا داد.

[hrj1981]

من الان SETUP آن را تهيه كردم ولي هيچگونه مشكلي نداشت.
با توجه به پيغام اين سوال پيش مي آيد كه شما بانك اطلاعاتي خود را كجا قرارداده ايد!

[mina1110]

ولی من همین الان دوباره اون مثالو دانلود کردم و ستاپشو درست کردم پیغام خطا داد.

این هم پیغام خطاش
could not find file d:\program file\porject 1\db1.mdb


http://i35.tinypic.com/2s0l6jc.jpg[/IMG]

[hrj1981]

بررسي كن ببين در اين مسير d:\program file\porject 1 فايل db1.mdb وجود دارد يا نه؟

[mina1110]

نه وجود نداره.اگه با همین برنامه package ستاپ درست کنی.جایی خاص باید فایل های پایگاه را پیوند بدیوممنون میشم کمک کنید.یا اموزش با برنامهsetup factory بگین

[majjjj]

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

[mina1110]

فهمیدم مرسی از راهنماییتون. ولی باز پیغام خطا میده این بار بخاطر پایگاه دوممه.
این هم code

Private Sub Form_Load()
'Adodc Setting
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Access Bank\things1.mdb"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "things"
Adodc1.Refresh
End Sub

http://i38.tinypic.com/260pguf.jpg[/IMG]

[mina1110]

کسی نیست در مورد این پیغام خطا کمکم کنه:گریه:

[اوبالیت به بو]

اين پيغام مي گه كه آدرس يا Path مورد نظر يافت نشده. آدرس دقيق رو وارد كنيد.
در مورد آدرس دهي بانك اطلاعاتي زياد بحث شده.
كلمه App.Path رو در تالار جستجو كنيد.

[mahmood3d]

mina1110 عزيز اشكال شما در ارتباط برنامه با بانكتون هست . براي اينكه مشكلي نداشته باشين در قسمتي از ADO كه آدرس بانك اطلاعاتيتو كه ميدي آدرس رو حذف كن و فقط اسم پايگاهت باقي بمونه كه در اين صورت برنامه مي آيد و بانك رو از كنار فايل اجرايي برميداره . يعني به جاي اينكه آدرس رو d:\program file\porject 1\db1.mdb وارد كني ، db1.mdb وارد كن .
انشاء الله كه مشكلت حل بشه

[mina1110]

mina1110 عزيز اشكال شما در ارتباط برنامه با بانكتون هست . براي اينكه مشكلي نداشته باشين در قسمتي از ADO كه آدرس بانك اطلاعاتيتو كه ميدي آدرس رو حذف كن و فقط اسم پايگاهت باقي بمونه كه در اين صورت برنامه مي آيد و بانك رو از كنار فايل اجرايي برميداره . يعني به جاي اينكه آدرس رو d:\program file\porject 1\db1.mdb وارد كني ، db1.mdb وارد كن .
انشاء الله كه مشكلت حل بشه

میشه بگین دقیقا منظورتون کجاست؟من ارتباط با بانک را از peropertios تنظیم نکردم

[mahmood3d]

اگه از properties تنظيم نكردين توي كد هاتون آدرس رو به صورت

App.path & "db1.mdb"
وارد كنيد .

[فاطمه وطن دوست]

اگه از properties تنظيم نكردين توي كد هاتون آدرس رو به صورت

App.path & "\db1.mdb"
وارد كنيد .

سلام

اولا یه \ جا افتاده من اضافش میکنم !!!!!

این آموزش رو ببینید.

http://102.ir/yellow/35.gif

[mahmood3d]

بله ببخشيد .
من هميشه تو قسمت نوشتن اين كد \ يادم ميره بزارم و هميشه بعد از يك بار اجراي برنامه يادم ميفته .
:)

[mina1110]

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


Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Access Bank\things1.mdb"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "things"
Adodc1.Refresh

[فاطمه وطن دوست]

سلام

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

[mina1110]

نمی دونم از چیه.با برنامه setup factory با wise با خود وی بی اذیت میکنه.
ولی توی خود محیط برنامه vb اجرا میشه ومشکلی نداره:گریه:http://i34.tinypic.com/5040vr.jpg

[فاطمه وطن دوست]

سلام
لطفا اینو هم تست کنید .

توضیحات :


::::…… Files 2-1

این گزینه جهت مدیریت فایل ها و اکتیوایکس ها ی مورد نیاز میباشد که از یک صفحه چهر قسمتی تشکیل شده است، در قسمت سمت چپ بالا لیست درایوها و شاخه های موجود در کامپیوتر نمایش داده شده که با انتخاب هر یک از آنها فایل های موجود در ان شاخه ها در قسمت سمت راست بالا نمایش داده میشود ، سپس از قسمت راست بالا میتوان فایل های مورد نیاز را انتخاب و با زدن دکمه add file انها را به پروژه اضافه نمود، ضمنا در قسمت سمت چپ پائین تعیین میشود که این فایل ها به کدام قسمت اضافه شود یعنی در فهرستی که برنامه را نصب نمود ایم یا فهرستی ویندوز ، شاخه فونت ویندوز، شاخه سیستم ویندوز و یا هر فهرست دلخواه دیگر که میتوان با کمک دکمه New Folder آن را ایجاد نمود.

فکر کنم شما باید این کارو انجام بدین
مثلا فکر کنید میخواین برنامهتون تو پوشه ی My_Program باشه ، پس همه فایل ها و پوشه ها تون باید تو این قسمت اضافه بشن ( منظورم ocxs و pictures و .exe و .... ) است . فونتاتون هم که باید تو شاخه ی فونتا باشه !!!

تا اینجا مشکلی نیست .

ولی اگه دقت کنید میبینید که پوشه ای با اسم Access Bank تو مسیر نیست !!!!
پس باید تو پوشه ای که قراره برنامتون توش قرار بگیره مثلا my_program ، یه پوشه ی دیگه با عنوان Access Bank درست کنید و بعد فقط ، فایل اکسس رو تو اون پوشه add کنید !!!!


مــــــــــــــــــــــــ وفق باشید

[mina1110]

من اون فولدری که به اسم اکسس بانک بود را پاک کردمو پایگاهمه توی همون فولدر اصلی قرار دادم.دیگه خطا نداد.:متعجب:
ببخشید خانم وطن دوست من نمی تونستم جواب نام تونو بدم.(پستام باید به 20 برسه):گیج: