تبلیغات
تبلیغات متنی
آموزشگاه آرایشگری مردانه شفیع رسالت
دکتر علی پرند فوق تخصص جراحی پلاستیک
بهترین دکتر پروتز سینه در تهران
محبوبترینها
راهنمای انتخاب شرکت‌های معتبر باربری برای حمل مایعات در ایران
چگونه اینورتر های صنعتی را عیب یابی و تعمیر کنیم؟
جاهای دیدنی قشم در شب که نباید از دست بدهید
سیگنال سهام چیست؟ مزایا و معایب استفاده از سیگنال خرید و فروش سهم
کاغذ دیواری از کجا بخرم؟ راهنمای جامع خرید کاغذ دیواری با کیفیت و قیمت مناسب
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
آفریقای جنوبی چگونه کشوری است؟
بهترین فروشگاه اینترنتی خرید کتاب زبان آلمانی: پیک زبان
با این روش ساده، فروش خود را چند برابر کنید (تست‌شده و 100٪ عملی)
خصوصیات نگین و سنگ های قیمتی از نگاه اسلام
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1866270405
لطفا راهنمایی کنید(ویژوال بیسیک) -
واضح آرشیو وب فارسی:سایت ریسک: لطفا راهنمایی کنید(ویژوال بیسیک) 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]
-
گوناگون
پربازدیدترینها