سوال از vahid_69 : می خواستم در مورد اتچ کردن بانک SQL راهنمایم کنید. پروژه ای که می زارین هیچ کدوم بانک SQLاش کار نمی کنه
جواب : با توجه به حساسیت دیتابیس SQL شما می بایست برای استفاده از سورس های با بانک SQL بانک ( دیتابیس SQL ) را به خود SQL سرور بشناسونید
یعنی باید بانک را اول در مسیر زیر کپی کنید
C:\Program Files\Microsoft SQL Server کپی کنید
سپس از قسمت SQL Server Management تنظیمات اتصال را انجام بدهید ( به زودی فیلم آموزشی از این مبحث بر روی سایت بارگزاری می شود )
سوال iranboys:
1-اگه ممکنه یک توضیحاتی راجع به username,password در موقع ورود به یک برنامه را هم بدهید.چون من برنامه ای میخواهم داشته باشم با username,password برای ورود امکان پذیر هست ولی سئوال من اینکه :من چطور میتونم یک یوزر و پسوورد بگیرم و پس از تأیید کاربر در بانک بمونه که برای مراجعه بعدی کاربر با وارد کردن یوزر و پسورد خود وارد بشه و اگر اشتباه بود ارور بده؟
2-من میخوام تاریخ شمسی رو توی برنامه داشته باشم ولی به اینصورت که بنویسه:
امروز شنبه 1390/02/28
جواب :
1 - شما باید اول یک بانک بسازید با فیلد های مثلا ( UserName , Password , OnvanName) نوع بانک مهم نیست ( اکسس یا ....)
من جواب شما رو در حالت بان اکسس می دم نام بانک هم می زاریم ( bank.mdb ) و نام فیلد اصلی ( userpass )
فایل های استفاده شده : Command1 - Text1, text2 , Text3, text4- Timer1 -ado ,ado1
توجه منظور از ado و ado1 همان Adodc1 می باشد حال تکست 3 و 3 را توسط اکتیوایکس ADo1 به بانک اتصال داده به صورت دستی ( یعنی روی Ado کلیک راست کرده و سپس گزینه adodoc properties را انتخاب کرده و در قسمت use connection string مسیر بانک را انتخاب و سپس recordsource کادر commadn Type گذینه 2 را انتخاب و سپس در قسمت tabel or stored نام بانک را انتخاب می کنید )
سپس روی تکست 3 و یا 4 کلیک کرده و در قسمت properties گذینه datasource را به ado1 تغییر داده وگزینه datafilde را به نام بانک تغییر دهید ( برای تکست 3 می شود username و تکست 4 می شود password ) در این قسمت بانک شما به صورت دستی اتصال یافت
خب حالا بان رو بارگزاری می کنی با دستور زیر :
Private Sub Form_Load()
ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Bank.mdb;"
ado.RecordSource = "Select * from userpass"
ado.Refresh
End Sub
حالا برای روی یک کامند کلیک کرده و شرط زیر را قرار می دهیم
Dim x As String
If Text1.Text = "" Or Text2.Text = "" Then
x = MsgBox("Error", vbExclamation, "Error")
Exit Sub
End If
If Text1.Text <> "" Then
ado.RecordSource = "Select *from userpass where name='" & Text1.Text & "'"
ado.Refresh
Timer1.Enabled = True
Exit Sub
End If
خب حالا در تایمر 1 کد زیر را قرار می دهیم ( تایم تایمر به خودتون بستگی داره )
If Tex1.Text = Text3.Text And Text2.Text = Text2.Text Then
Form_menu.show
end if
جواب 2 : برای این کار شما می توانید از OCX های موجود استفاده کنید که در سایت هم وجود دارد یک جستجو بکنید
خب امیدوارم از این جواب ها راضی باشید ( در صورت لذوم نظرات خود را به ما اعلام کنید )
با تشکر
