قطع ارتباط با بانک اطلاعاتی (Access)

[abolfazl-z]

سلام دوستان :لبخندساده:

من بصورت زیر به بانک اطلاعاتی وصل شدم :



Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\...Desktop\db1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "t1"
Text1.DataField = "f1"


چطوری میشه ارتباط ام رو قطع کنم و به یک دیتابیس دیگر وصل شوم؟

سوال دوم ام این است که چطوری میشه با کد نویسی یک جدول بسازیم و فیلدی برای آن تعریف کنیم؟

[abolfazl-z]

دوستان کمک کنیییییییید :گریه:

دوستان چطوری میشه فیلد اضافه کرد ؟

[abolfazl-z]

دوستان خودم فهمیدم :بامزه:

فقط لازم است همان اتصال جدید رو انجام بدیم بعد بروز رسانی کنیم.

[Hashemvp]

به این میگن خودکفایی ها :لبخند:

[M.T.P]

این تاپیک رو به بخش مباحث بانک اطلاعاتی منتقل کنید

برای ساخت بانک اکسس نسخه 2003 و جدول هاش می تونید از کد زیر استفاده کنید

ابتدا از رفرنس Microsoft DAO 3.6 Object رو به پروژه اضافه کنید.

تابع زیر رو صدا بزنید و نتیجه رو ببینید.


Sub CreateNewDatabase()
Dim objEngine As New DAO.DBEngine
Dim objDatabase As Database

Set objDatabase = objEngine.CreateDatabase( _
"c:\db.mdb", dbLangGeneral)
objDatabase.Execute "CREATE TABLE tblUser(" & _
"ID AUTOINCREMENT PRIMARY KEY)"
objDatabase.Close
Set objDatabase = Nothing
Set objEngine = Nothing
End Sub

کد بالا یک دیتابیس در مسیر c:\db.mdb با یک جدول به اسم tblUser و یک فیلد با عنوان ID براتون می سازه

حالا اگه خواستید فیلد های بیشتر بسازید کافیه با ویرگول جدا و بعد از ID فیلد های بیشتری بسازید.

برای مثال:


objDatabase.Execute "CREATE TABLE tblUser(" & _
"ID AUTOINCREMENT PRIMARY KEY ," & _
"FName TEXT ," & _
"LNAme TEXT ," & _
"Address TEXT , " & _
"Phone TEXT ," & _
"AGE INTEGER)"


به همین راحتی می تونید بانک اکسس با تعداد جداول و فیلد های دلخواه ای جاد کنید.

[abolfazl-z]

مرسی از دوستان :قلب:

--------------------------------------------
پایان
-------------------------------------------