| Вопрос: MS ACCESS (помогите, иначе... даже не хочется ду.. | Добавлено: 13.05.05 07:42 |
Автор вопроса:  psinetron | ICQ: 218945948 |
|
Работаю с базами даных MS Acces. Пишу дипломную, поэтому ответ нужен как воздух. Мой вопрос такой:
Как програмно через VB6 создать новую таблицу? Как создайть в ней столбцы? Оч. нужен ответ, просьба скидывать ответы на e-mail: psinetron@mail.ru Если можно, то с исходниками. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #1 | Добавлено: 13.05.05 08:20 |
| "CREATE TABLE [Название таблицы] (Поле_1 LONG, Поле_2 TEXT (50), Поле_3 DATE)" | ||
|
Номер ответа: 2 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #2 | Добавлено: 13.05.05 14:25 |
|
Можно с помощью CreateTableDef
(C) MSDN Sub CreateTableDefX()  im dbsNorthwind As Database
im tdfNew As TableDef
im prpLoop As Property
Set dbsNorthwind = OpenDatabase("Northwind.mdb" 
' Create a new TableDef object. Set tdfNew = dbsNorthwind.CreateTableDef("Contacts"
With tdfNew ' Create fields and append them to the new TableDef ' object. This must be done before appending the ' TableDef object to the TableDefs collection of the ' Northwind database. .Fields.Append .CreateField("FirstName", dbText) .Fields.Append .CreateField("LastName", dbText) .Fields.Append .CreateField("Phone", dbText) .Fields.Append .CreateField("Notes", dbMemo) ebug.Print "Properties of new TableDef object " & _
"before appending to collection:" ' Enumerate Properties collection of new TableDef ' object. For Each prpLoop In .Properties On Error Resume Next If prpLoop <> "" Then Debug.Print " " & _ prpLoop.Name & " = " & prpLoop On Error GoTo 0 Next prpLoop ' Append the new TableDef object to the Northwind ' database. dbsNorthwind.TableDefs.Append tdfNew ebug.Print "Properties of new TableDef object " & _
"after appending to collection:" ' Enumerate Properties collection of new TableDef ' object. For Each prpLoop In .Properties On Error Resume Next If prpLoop <> "" Then Debug.Print " " & _ prpLoop.Name & " = " & prpLoop On Error GoTo 0 Next prpLoop End With ' Delete new TableDef object since this is a ' demonstration. dbsNorthwind.TableDefs.Delete "Contacts" dbsNorthwind.Close End Sub |
||
|
Номер ответа: 3 Автор ответа: programmernaVB Вопросов: 5 Ответов: 4 |
Профиль | | #3 | Добавлено: 16.05.05 19:51 |
| А я чего-то не могу... Он какую-то ошибку выдает, че делать? | ||
Страница: 1 |