[Thewolf]

س !!!!

من یه دیتابیس ساختم، اما تعداد Column ها فقط 2 تا است. من می خوام 5 تا باشه. باید چه کاری رو انجام بدم ؟

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

[Kei armin]

یه خورده صریح تر شرح میدین ؟ با چی DB میسازین ؟؟ و در ارتباط با VB چه مشکلی هست ...

[Thewolf]

ببخشید از ...

من یه دیتابیس با Adodc ساختم و از DataGrid برای نمایش اطلاعات اون استفاده کردم. اما در دیتاگرید تعداد Column ها فقط 2 تا است که من می خواهم 5 تا باشه . مشکل من فقط کم بودن Column ها است که می خواهم بیشتر باشه .

[Thewolf]

اطلاعاتش رو دادم، کسی نیست کمک کنه؟

[Amin_Mansouri]

س !!!!

من یه دیتابیس ساختم، اما تعداد Column ها فقط 2 تا است. من می خوام 5 تا باشه. باید چه کاری رو انجام بدم ؟

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

This example shows how to use ADO to add and drop columns from a database in Visual Basic 6. The program executes SQL ALTER TABLE statements to add or remove columns.

download:


  howto_ado_add_drop_column(www.pxr.ir).zip (اندازه 17.19 KB / تعداد دانلود: 9)

[Thewolf]

دوست عزیز از کمکتون ممنون!!!
اما ... !!!

اما منظور من این نبود !!!
من منظورم در دیتاگرید بود. << همون طور که خودتون می دونید اگه در نام Column از فاصله استفاده شود، برنامه خطا می دهد. >>

من تو یه سورس دیدم که تعداد Column ها در دیتاگرید 4 تا بود.

برای همین من می خواهم << وقتی وارد قسمت Custom دیتاگرید شوم و به قسمت Column ها بروم تعداد Column ها از 2 تا به 5 تا تغییر پیدا کند. >>

[Amin_Mansouri]

کد:

DataGrid1.Columns.Add (2)

[Thewolf]

خیلی ممنون !!!

اما این کد فقط Column به دیتاگرید اضافه کنه، من می خواهم که در آن Coumn خاصیت Caption و DataField را نیزتغییر بدهم.

[Amin_Mansouri]

اینم سه سمپل دیگه :

کد:

Private Sub Form_Load()
DataGrid1.ColumnHeaders = True
For i = 0 To 4
    DataGrid1.Columns.Add (i)
Next
DataGrid1.Columns(0).Caption = "wolf"
DataGrid1.Columns(1).Caption = "wolf2"
DataGrid1.Columns(2).Caption = "wolf3"
DataGrid1.Columns(3).Caption = "wolf4"
DataGrid1.Columns(4).Caption = "wolf5"
End Sub

[Thewolf]

دوست عزیز از کمک هایی که کردید ممنون

در پایان کد به صورت زیر در آمد:

کد:

DataGrid1.Columns(2).Caption = "The Wolf"
DataGrid1.Columns(2).DataField = "Thewolf"