محبوبترینها
مزایای آستر مدول الیاف سرامیکی یا زد بلوک
سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را تقویت کند؟
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1853993016
لطفا راهنمایی کنید(ویژوال بیسیک) -
واضح آرشیو وب فارسی:سایت ریسک: لطفا راهنمایی کنید(ویژوال بیسیک) 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]
[تعداد بازديد از اين مطلب: 570]
-
گوناگون
پربازدیدترینها