| Вопрос: Возможности DAO | Добавлено: 20.04.05 12:26 |
Автор вопроса:  ooovtu
|
|
Как из 5-го Basic-а с помощью DAO можно поменять в базе данных Access следующие свойства полей: а). длину поля, б). тип поля.
Владимир oooVTU@yandex.ru |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  ⊗WaX⊗ Вопросов: 26 Ответов: 325 |
Web-сайт: Профиль | | #1 | Добавлено: 22.04.05 20:25 |
| А в Acces'e есть ALTER TABLE ALTER COLUMN? | ||
|
Номер ответа: 2 Автор ответа: ⊗WaX⊗Вопросов: 26 Ответов: 325 |
Web-сайт: Профиль | | #2 | Добавлено: 22.04.05 20:29 |
|
Держи
но имхо SQL Rules  )
Public Sub change_field_size(DBPath as string, _ tblName As String, fldName As String, fldSize As Integer)  im db As Database
im td As TableDef
im fld As field
On Error GoTo errhandler Set db = OpenDatabase(DBPath) Set td = db.TableDefs(tblName) If td.Fields(fldName).Type <> dbText Then db.Close Exit Sub End If If td.Fields(fldName).size = fldSize Then ' the field width is correct db.Close Exit Sub End If td.Fields.Append td.CreateField("temp", dbText, fldSize) td.Fields("temp"  .AllowZeroLength = True
td.Fields("temp" .DefaultValue = """"""
db.Execute "Update " & tblName & " set temp = " & fldName & " " td.Fields.Delete fldName td.Fields("temp" .Name = fldName
db.Close Exit Sub errhandler: MsgBox CStr(Err.Number) & vbCrLf & Err.Description & vbCrLf & "Change Field Size Routine", vbCritical, App.Title End Sub |
||
Страница: 1 |