تور لحظه آخری
امروز : سه شنبه ، 28 اسفند 1403    احادیث و روایات:  امام محمد باقر(ع):هرچیز بهاری دارد و بهار قرآن ماه رمضان است.
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

خرید پرینتر سه بعدی

سایبان ماشین

armanekasbokar

armanetejarat

Future Innovate Tech

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

پی جو مشاغل برتر شیراز

خرید یخچال خارجی

بانک کتاب

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

قیمت فرش

خرید بلیط هواپیما

بلیط اتوبوس پایانه

خرید از چین

خرید از چین

خرید سرور اچ پی ماهان شبکه

خودارزیابی چیست

رزرو هتل خارجی

تولید کننده تخت زیبایی

سی پی کالاف

دوره باریستا فنی حرفه ای

چاکرا

استند تسلیت

کلینیک دندانپزشکی سعادت آباد

پی ال سی زیمنس

دکتر علی پرند فوق تخصص جراحی پلاستیک

تعمیر سرووموتور

تحصیل پزشکی در چین

مجله سلامت و پزشکی

تریلی چادری

خرید یوسی

مهاجرت به استرالیا

ایونا

تعمیرگاه هیوندای

کاشت ابرو با خواب طبیعی

هدایای تبلیغاتی

خرید عسل

صندوق سهامی

تزریق ژل

خرید زعفران مرغوب

تحصیل آنلاین آمریکا

سوالات آیین نامه

سمپاشی سوسک فاضلاب

بهترین دکتر پروتز سینه در تهران

صندلی گیمینگ

دفترچه تبلیغاتی

خرید سی پی

قالیشویی کرج

سررسید 1404

تقویم رومیزی 1404

ویزای توریستی ژاپن

قالیشویی اسلامشهر

قفسه فروشگاهی

چراغ خطی

ابزارهای هوش مصنوعی

آموزش مکالمه عربی

اینتیتر

استابلایزر

خرید لباس

7 little words daily answers

7 little words daily answers

7 little words daily answers

گوشی موبایل اقساطی

ماساژور تفنگی

قیمت ساندویچ پانل

مجوز آژانس مسافرتی

پنجره دوجداره

خرید رنگ نمای ساختمان

ناب مووی

خرید عطر

قرص اسلیم پلاس

nyt mini crossword answers

مشاوره تبلیغاتی رایگان

دانلود فیلم

قیمت ایکس باکس

نمایندگی دوو تهران

مهد کودک

پخش زنده شبکه ورزش

 






آمار وبسایت

 تعداد کل بازدیدها : 1866270405




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

لطفا راهنمایی کنید(ویژوال بیسیک) -


واضح آرشیو وب فارسی:سایت ریسک: لطفا راهنمایی کنید(ویژوال بیسیک) Reza_Kashegarma 06 شهريور 1389, 14:48سلام خدمت دوستان عزیز : میخواستم ببینم وقتی پروژه را به صورت EXE در آوردیم چگونه میتوانیم به آن بانک اطلاعاتی اضافه کنیم . من اضافه کردن بانک اطلاعاتی را فقط به صورت Wizard بلدم . اگر میشود با کد نویسی آن را به پروژه اضافه کرد من را راهنمایی کنید . خیییییییییییییییییییییییی یییییییییییییییلی ممنون :oops: the_king 06 شهريور 1389, 15:23سلام خدمت دوستان عزیز : میخواستم ببینم وقتی پروژه را به صورت EXE در آوردیم چگونه میتوانیم به آن بانک اطلاعاتی اضافه کنیم . من اضافه کردن بانک اطلاعاتی را فقط به صورت Wizard بلدم . اگر میشود با کد نویسی آن را به پروژه اضافه کرد من را راهنمایی کنید . خیییییییییییییییییییییییی یییییییییییییییلی ممنون :oops: لطفا نسخه Visual Studio مورد استفاده تان (2005، 2008 و ...) و نیز نوع بانک اطلاعاتی (Microsoft Access ، SQL Server و ...) را مشخص کنید. Reza_Kashegarma 07 شهريور 1389, 00:35Microsoft Access و Microsoft Visual Basic 6.0 the_king 07 شهريور 1389, 02:20Microsoft Access و Microsoft Visual Basic 6.0 گمان می کنم که این مثال که توی اینترنت پیدا کردم کمک تون کنه، البته در این مورد مثال در اینترنت خیلی زیاده. یک پروژه جدید روی توی ویژوال بیسیک باز کنید، سپس در منوی Project روی گزینه References کلیک کنید. در لیستی که نمایش داده می شود، Microsoft ADO Ext. for DDL and Security رو پیدا کنید و تیک بزنید. اگر چند نسخه متفاوت ازش بود، صرفا یکی شان را تیک بزنید، در مثال ما مهم نیست که کدام یکی شان را انتخاب می کنید. حالا کد زیر را در فرم کپی کنید. بعد از اجرا کردن برنامه، یک فایل بانک اطلاعاتی Microsoft Access را در مسیر C:MyNewDatabase.mdb خواهد ساخت که یک جدول به نام Contacts دارد که درونش فیلد های ID و NumberColumn و FirstName و LastName و Phone و Notes تعریف شده اند. مشابه جدول یک دفترچه تلفن. Option Explicit Private Sub CreateAccessDatabase(sDatabaseToCreate) Dim catNewDB As ADOX.Catalog Set catNewDB = New ADOX.Catalog catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sDatabaseToCreate & ";Jet OLEDB:Engine Type=5;" Set catNewDB = Nothing End Sub Private Sub CreateAccessTable(sDatabaseToCreate) Dim catDB As ADOX.Catalog Dim tblNew As ADOX.Table Set catDB = New ADOX.Catalog catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sDatabaseToCreate Set tblNew = New ADOX.Table tblNew.Name = "Contacts" Dim col As ADOX.Column Set col = New ADOX.Column With col .ParentCatalog = catDB .Type = adInteger .Name = "ID" .Properties("Autoincrement") = True .Properties("Description") = "I am the Description " & _ "for the column" End With tblNew.Columns.Append col With tblNew With .Columns .Append "NumberColumn", adInteger .Append "FirstName", adVarWChar .Append "LastName", adVarWChar .Append "Phone", adVarWChar .Append "Notes", adLongVarWChar End With Dim adColNullable adColNullable = 2 With .Columns("FirstName") .Attributes = adColNullable End With End With catDB.Tables.Append tblNew Set col = Nothing Set tblNew = Nothing Set catDB = Nothing End Sub Private Sub Form_Load() Dim sDatabaseName As String sDatabaseName = "C:MyNewDatabase.mdb" CreateAccessDatabase sDatabaseName CreateAccessTable sDatabaseName MsgBox "Database has been created successfully!" End Sub منبع کد () سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 575]

bt

اضافه شدن مطلب/حذف مطلب







-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن