VBNet - Форум - Ошибка - несоответствие типов

Вопрос: Ошибка - несоответствие типов Добавлено: 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

Номер ответа: 1 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| \| #1	Добавлено: 11.03.07 16:47
	первое почему Check1.DataField = cfield3 может, нужно Text2.DataField = cfield3 как ты дату в Check1 выводишь? При открытии БД в Access выводится диалоговое окно, что типо БД создана в более ранней версии и нужно её преобразовать, но такогобыт не может, у ня ОФИС - 2003. Преобразовывал бесполезно. да хоть офис 2010 БД BIBLIO это формат 97, приведи его к 2003 или 2002 и там в режиме конструктора добавь FOTO а затем преобразуй опять в формат 97 и работай. Ответить

Страница: 1 |