اضافه کردن فیلد به دیتابیس اکسس

[UpgradeVB6Code]

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

[فاطمه وطن دوست]

سلام
http://www.systemgroup.net/admin/images/attachs/BDA125.pdf
مطالبش واقعا مفیده . پاسخ سوالتونو تو این pdf پیدا میکنید.

[UpgradeVB6Code]

من نتونستم این کارو بکنم !
میشه کدشو به من بگید !

البته منظورم اضافه کردن یه Table هست با فیلد های مشخص !

ممنون

[shahpari]

)create table table1(field1 int, field2 var char(20),field3 var char null


field1 & field2 & field3 سه فیلدی هستند که شما در جدول table1 قرار دادین
البته این دستورات مربوط به اس کیو ال میشه و نمی دونم چرا توی وی بی می خوایید ازش استفاده کنید؟؟!!!!

[فاطمه وطن دوست]

سلام
یه تاپیک هست با عنوان آموزش پایگاه داد ه برای مبتدیان
تو اون تاپیک تو درس 10 کامل گفته (بدون نقص ) به صورت دستور SQL جدول ساخته .
میتونید کامل ازش استفاده کنید.
خودتون فکر کنم این تاپیکو دیدین (سرچ کنید )
اینجا رو هم لطف کنید نگاه کنید .
http://barnamenevis.org/forum/showthread.php?t=99454

[UpgradeVB6Code]

سلام
من تا حالا با SQL کار نکردم میخوام با اکسس این کارو بکنم
من با این کد از طریق کد نویسی یه دیتابیس اکسس درست میکنم با تیبل ها و فیلدهای مورد نیاز

اما من الان دیتا بیس رو دارم فقط میخوام توش تیبلی رو اضافه یا کم کنم !؟؟

میشه این کدو نگاه کنید چه جوری این کارو بکنم !



Sub CreateDb(Path As String)
Dim db As Database
Dim table As TableDef
Dim soru As Field
Dim pic As Field
Dim zorlukderecesi As Field
Dim ders As Field
Dim sinif As Field
Dim unite As Field
'Create Database
Set db = CreateDatabase(Path, dbLangGeneral, dbEncrypt)
'Create Table
Set table = db.CreateTableDef("Deneme")
'Create Fields.
'For see all datatypes press F2. Library "DAO" and Classes "DataTypeEnum"
Set soru = table.CreateField("Soru", dbMemo, 0)
Set pic = table.CreateField("Pic", dbMemo, 0)
Set zorlukderecesi = table.CreateField("zorlukderecesi", dbText, 20)
Set ders = table.CreateField("Ders", dbText, 50)
Set sinif = table.CreateField("Sinif", dbText, 50)
Set unite = table.CreateField("Unite", dbText, 10)

'Add Fields to Table
table.Fields.Append soru
table.Fields.Append pic
table.Fields.Append zorlukderecesi
table.Fields.Append ders
table.Fields.Append sinif
table.Fields.Append unite

'Add Table to Database
db.TableDefs.Append table

MsgBox "Your Database which name is " & table.Name & " And which version is " & db.Version & vbCrLf & _
"created at " & table.DateCreated & " has " & table.Fields.Count & " Fields", vbInformation, "Create Database"

End Sub
Private Sub Command1_Click()
CreateDb App.Path & "\" & "Data.mdb"
End Sub

[mpmsoft]

Alter Table Tblname Add Column TName Text(50)

Create Table Tblname
ID counter,name Text(50)

[UpgradeVB6Code]

Alter Table Tblname Add Column TName Text(50)

Create Table Tblname
ID counter,name Text(50)


ممنون
میشه بگی این کدها رو کجا وارد کنم ؟

مثلا میخوام با کلیک روی یه دکمه این تیبل درست بشه.

[shahpari]

Alter Table Tblname Add Column TName Text(50)

Create Table Tblname
ID counter,name Text(50)



تا جایی که می دونم این کد در اس کیو ال باعث ایجاد یه جدول میشه

فکر نمی کنم به شما کمکی کنه(به نظر من) شاید اشتباه می کنم

[فاطمه وطن دوست]

سلام
فقط اینکه با زدن دکمه (create table ) فقط یک بار باید جدول ساخته بشه با نام table 2
اگر این تیبل وجود داشته باشه تو بانک اطلاهاتیتون پیغام میده که این جدول وجود داره .
یعنی بعد از اینکه دکمه create table رو زدین ، برین بانک اطلاعاتی db12 رو باز کنید میبینید که این جدول table2 ساخته شده .
از تو ی همون دو تا تاپیک میتونید نحوهی (حذف و اضافه و............ جدول و فیلد و .....) رو یاد بگیرین .
در ضمن شما باید به پروژه تون از طریق project \refrence یک سری dll رو به پروژتون اضافه کنید
تو همین پروژه من اضافه کردم شما هم تو پروژه خودتون ازهمین مسیر dll هایی که باید اضافه کنین رو میتونین بفهمین و اضافشون کنید .

[UpgradeVB6Code]

ممنون
مشکل حل شد .