Страница: 1 |
|
Вопрос: Ошибка - несоответствие типов
|
Добавлено: 11.03.07 10:53
|
|
Автор вопроса: w-master007
|
Всем привет.
Срочно нужна помощь!
Вопрос 1.
У всех стандартно установлена БД BIBLIO, она находится по этому адресу:
"C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.mdb"
В прикеплённом файле находится код проекта. Смысл программы заключается в том, чтобы вывести поля таблицы Authors в соответствующих элеентах формы.
При запуске програмы, происходит ошибка: "Несоответствие типов".
Незнаю что и делать, поэтому обращаюсь к вам.
Вопрос 2.
Не могу добавить поле FOTO в БД BIBLIO с помощью Access, в смысле не активна кнопка "Сохранить". При открытии БД в Access выводится диалоговое окно, что типо БД создана в более ранней версии и нужно её преобразовать, но такогобыт не может, у ня ОФИС - 2003. Преобразовывал бесполезно.
А вот в БД NWIND всё нормально сохраняется:
"C:\Program Files\Microsoft Visual Studio\VB98\NWIND.mdb"
Это поле необходио для вывода картинок в этом же проекте в элементе OLE.
Может можно как добавить поле Foto c типом поля - поле объекта OLE в VB, записав программный код.
Option Explicit
Dim vldmsg(4) As String 'объявить масив сообщений
Private Sub cmdRestore_Click()
Data1.UpdateControls 'восстановить значение текстового поля
End Sub
Private Sub cmdupdate_Click()
Data1.UpdateControls
End Sub
Private Sub Form_Load()
OpenDB 'открыть БД,установить динамический набор
BindControls 'связать элементы управления с полями данных
makevldmsgarray
End Sub
Public Sub OpenDB()
Dim bdNAME As String
Dim cdbNAME As String
Dim ctb1NAME As String
Dim BExclusive As Boolean 'объявить логическую переменную
Dim breadonly As Boolean
Dim dbDenyWrite As Boolean
cdbNAME = "C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.mdb"
ctb1NAME = "Authors" 'указать на таблицу данных
BExclusive = True 'установить эксклюхивный режим
breadonly = True 'установить режим только для чтения
Data1.DatabaseName = cdbNAME 'задать свойство DatabaseName
Data1.RecordSource = ctb1NAME 'задать свойство RecordSource
Data1.Exclusive = BExclusive
Data1.ReadOnly = dbDenyWrite + breadonly
Data1.Refresh 'обнорвить совйства элемента data
End Sub
Public Sub BindControls()
Dim cfield1 As String
Dim cfield2 As String
Dim cfield3 As String
cfield1 = "Author"
cfield2 = "Au_ID"
cfield3 = "Year Born"
Text1.DataField = cfield1
Label1.DataField = cfield2
Check1.DataField = cfield3
End Sub
Public Sub Data1_Reposition()
MsgBox "перемещение указателя..."
End Sub
Public Sub Data1_Validate(Action As Integer, save As Integer)
MsgBox vldmsg(Action) 'выдать сообщение в зависимости от действия пользователя
End Sub
Public Sub makevldmsgarray()
vldmsg(vbDataActionMoveFirst) = "MoveFirst"
vldmsg(vbDataActionMovePrevious) = "MovePrevious"
vldmsg(vbDataActionMoveNext) = "MoveNext"
vldmsg(vbDataActionMoveLast) = "MoveLast"
End Sub
Кто может оставьте мыло, я вышлю исходник.
Жалко нет на форуме функции добавления файлов
Ответить
|
Страница: 1 |
Поиск по форуму