Рад всех приветствовать! С наступающим Новым Годом! Всех благ и семь футов под килем в ваших нужных делах!
Вот такой вопрос на обсуждение, если можно.
При приеме абитуриентов на учебу в ВУЗ, они сдают фото.
Если эти фото сканировать, и потом, кто будет зачислен, файлы фото занести в БД MSAccess вместе с остальными данными на каждого поступившего (в дугой связанной таблице).
Потом на форме "Карточка читателя" где-нибудь в уголке отображалось фото данного читателя.
Сама программа работает, а вопрос про фото. Если это большие заморочки, то не буду вас затруднять. Как хранить файлы фото в БД я не знаю, искал что-нибудь- не нашел. Как их вытаскивать с остальными данными на форму? И куда, в TextBox, PictureBox, Image? Пробовал - не получается.
Если что подскажете словом и делом - буду благодарен.
С уважением Flotskiy
Sk k

Модератор: Тебя тоже с наступающим!

По этому адресу (у меня по крайней мере )
C:\Program Files\Microsoft Visual Studio\VB98
есть файл под названием
nwind.mdb
в нем есть картинки в таблице
categories.

Это стандартный пример. Посмотри, поизучай, как они это сделали. Помоему когда я когда-то это делал у меня база офигенно распухла после того, как я вставил в нее пару картинок но это ты и сам заметишь.

Успехов!

Доброе утро всем!
Cardinal, спасибо за ответ. Я уже пробовал с этой базой познакомиться. Смысл простой, как мне кажется, только я не понял, в какой элемент вставляется картинка, описания нет, пробовал скопировать и вставить на форму - не получается.
Может кто-нибудь знает?
С уважением Flotskiy
Sk k

Привет! Всех с наступившим Новым годом!!!


Flotskiy, есть три подхода.
1. Создать в БД, в таблице с инфой абитуриентов, поле OLE
потом связать его с PictureBox'ом и готово!
2. Создать в БД, в таблице с инфой абитуриентов, поле OLE
Затем програмно читать файл и загружать в это поле(практически нет разницы какой файл ты там будешь хранить). Также можно и считывать отуда данные и записать в файл, который потом загрузить в PictureBox.
3. Создать текстовое поле в БД и в него записывать название файла фото. Т.е. фотки будут храниться где нибудь в програмной субдиректории, а в БД будут храниться только имена этих файлов.

С 1ым вариантом - никогда не пробывал.
2ой - делал, прога с таким вариантом, где-то у меня валяется в архиве.
3ий - думаю ты сам разберешься, но если что, милости просим

Я бы наверно особо не замарачивался и сделал бы все по третьему вараинту. Его недостаток заключается в том, что у тебя будет не одна бд, а бд и много всяких фоток. Его преимущество заключается в простоте реализации (и как мне почему то кажется экономией места на диске, но это только предположение ).

А может в папку поместить файлы с номером 1, 2, 3...? Ну я так делала кнопку и счетчик.

Цитата

А может в папку поместить файлы с номером 1, 2, 3...?

Это уже не суть важно Главное сначала выбрать подход, а реализация может быть разной.

Вечер добрый всем!
Благодарю всех за участие в решении моего вопроса.
-Mikle-, на Ваш 1-й подход: давно пробовал, но ничего не получается, выдает

Код

Invalid Picture

2-й подход: перепробовал в БД картинки цеплял и в поле OLE, и гиперссылкой- в БД все открывается, а на форму не выводит.
А за 3-й подход - не знаю, как все это сделать.
Мне бы небольшой пример, а дальше попробую разобраться.
В БД NWIND.mdb есть работа с картинками, как подсказывал cardinal, добавлял свою-все нормально, но выводится в "Присоединенная рамка объекта: Picture", что это такое?
С уважением Flotskiy.
Sk k

Цитата(Flotskiy @ 6.1.2005, 13:10)

что это такое?

Зайди на форму, которую ты делаешь в режиме конструктора и увидишь где-нибудь на экране панель элементов (если ее не видишь, то поставь галочку в меню, которую ты можешь вызвать нажатием правой кнопкой мыши нажав где-нибудь на сером фоне наверху экрана рядом с кнопками ). На ней ты и найдешь элемент под названием "Присоединенная рамка объекта"... В этот элемент ты и можешь вставить свою картинку.

cardinal, благодарю за подсказку.
Это объект OLE, в который выводятся картинки. Работает. Попробую усовершенствовать.
Тему пока не закрывайте, наверное, будут еще вопросы.
С уважением ко всем.


Это сообщение отредактировал(а) Flotskiy - 6.1.2005, 16:39

3 подход

Добрый день всем!
Bom, программа, предложенная вами, хороша.

Немного подредактировал к своим условиям я взял часть кода, которым вставляю в БД фото.
У меня БД имеет таблицы:
Glavnaja
Поле счетчик- GlavID,
поле Family и т. д.
и Photo
c индексированным полем - PID, куда програмно вставляются данные GlavID каждого студента.
поле Photo, где хранятся пути фото.
Таблицы связаны по полям GlavID и PID.
Выполняется отдельной формой. Все хорошо.
Есть другая форма, на которую следует вывести данные из первой таблицы и фото из другой.
Примерный код:
в модуле Glogal.bas

Код

Public Declare Function SendMessageByString& Lib "user32" _    Alias "SendMessageA" (ByVal hwnd As Long, _    ByVal wMsg As Long, ByVal wParam As Long, _    ByVal lParam As String) Public Const LB_SELECTSTRING = &H18C Public gFindString As String 'Public Const gDataBaseName = "\\Server\Baza_danny\Arm\Arm.mdb" Public Const gDataBaseName = "C:\ARM\Arm.mdb"

В форме

Код

Option Explicit Dim abitClass As dataClass Dim photoClass As dataClass Private Sub cmdButton_Click(Index As Integer)    abitClass.ProcessCMD Index    photoClass.RecordSource = "SELECT * FROM Photo WHERE PID= " _ & Data1.Recordset!GlavID End Sub Private Sub Form_Load() Data1.DatabaseName = gDataBaseName Data1.RecordSource = "Glavnaja" Data2.DatabaseName = gDataBaseName Data2.RecordSource = "Photo" Set abitClass = New dataClass Set photoClass = New dataClass With abitClass Set .FormName = Me    'pass in the current form Set .dataCtl = Data1  'the data control to manage   .dbName = gDataBaseName   .Buttons = "cmdButton"   .RecordSource = "SELECT * FROM Glavnaja "   .LabelToUpdate = lblRecordCount   .FindRecordSource = "SELECT Family FROM Glavnaja ORDER BY Family"   .FindMatchField = "Family"   .Tag = "1"         'identifies the controls   .ProcessCMD 0     'default to the 1st record End With With photoClass Set .FormName = Me Set .dataCtl = Data2   .dbName = gDataBaseName   .RecordSource = "SELECT * FROM Photo WHERE PID = " _    & Data1.Recordset!GlavID End With End Sub Private Sub Form_Resize() On Error Resume Next Height = 5280 Width = 5985       Left = (Screen.Width - Width) / 2    Top = (Screen.Height - Height) / 2 End Sub Private Sub Form_Unload(Cancel As Integer)    Unload Me End Sub

Навигация проводится модулем Class Module

Код

Option Explicit 'local variable(s) to hold property value(s) Private mvardataCtl As Object 'local copy Private mvarButtons As String 'local copy Private mvardbName As String 'local copy Private mvarFormName As Object 'local copy Private mvarLabelToUpdate As String 'local copy Private mvarProgressBar As Object 'local copy Private mvarRecordSource As String 'local copy Private mvarTag As String 'local copy Private mvarTotalRecords As Long Private Enum cmdButtons  cmdMoveFirst = 0  cmdMovePrevious = 1  cmdMoveNext = 2  cmdMoveLast = 3  cmdAddNew = 4  cmdEdit = 5  cmdSave = 6  cmdDelete = 7  cmdUndo = 8  cmdFind = 9  cmdDone = 10 End Enum 'local variable(s) to hold property value(s) Private mvarFindCaption As String 'local copy Private mvarFindRecordSource As String 'local copy Private mvarFindMatchField As String 'local copy Private Function BuildCriteria() As String Dim sCriteria As String Dim fField As Field Dim sMessage As String Dim iIndx As Integer Set fField = mvardataCtl.Recordset.Fields(mvarFindMatchField) Select Case fField.Type   Case dbInteger, dbLong, dbCurrency, dbSingle, dbDouble     BuildCriteria = "" & mvarFindMatchField & " = " & gFindString   Case dbDate     BuildCriteria = "" & mvarFindMatchField & " = #" & gFindString & "#"   Case dbText     BuildCriteria = "" & mvarFindMatchField & " = '" & gFindString & "'"   Case Else     sMessage = "Sorry, you can't use the find feature on fields"     sMessage = sMessage & " of type: " & fField.Type     iIndx = MsgBox(sMessage, vbCritical, App.EXEName) End Select End Function Public Property Let FindMatchField(ByVal vData As String)    mvarFindMatchField = vData End Property Public Property Let FindRecordSource(ByVal vData As String)    mvarFindRecordSource = vData End Property Public Property Let FindCaption(ByVal vData As String)    mvarFindCaption = vData End Property Private Sub updateLabel(sLabelString As String) Dim iIndx As Integer With mvarFormName  For iIndx = 0 To .Controls.Count - 1    If (.Controls(iIndx).Name = mvarLabelToUpdate) Then        .Controls(iIndx).Caption = sLabelString        Exit Sub    End If  Next End With End Sub Private Sub updateButtons(Optional vLockEm As Variant) On Error Resume Next Dim sLabelString As String Select Case mvardataCtl.Recordset.EditMode   Case dbEditNone     If (mvarTotalRecords > 1) Then       If (mvardataCtl.Recordset.BOF) Or _          (mvardataCtl.Recordset.AbsolutePosition = 0) Then             navigateButtons ("00111101011")       ElseIf (mvardataCtl.Recordset.EOF) Or _ (mvardataCtl.Recordset.AbsolutePosition = mvarTotalRecords - 1) Then             navigateButtons ("11001101011")       Else             navigateButtons ("11111101011")       End If     ElseIf (mvarTotalRecords > 0) Then       navigateButtons ("00001101001")     Else       navigateButtons ("00001000001")     End If     If (Not IsMissing(vLockEm)) Then       lockTheControls (vLockEm)     End If  Case dbEditInProgress    'we are editing a current record     Call lockTheControls(False)     navigateButtons ("00000010100")  Case dbEditAdd           'we are adding a new record     Call lockTheControls(False)     navigateButtons ("00000010100") End Select mvarProgressBar.Value = mvardataCtl.Recordset.PercentPosition sLabelString = mvardataCtl.Recordset.AbsolutePosition + 1 sLabelString = sLabelString & " of " & mvarTotalRecords Call updateLabel(sLabelString) End Sub Private Sub navigateButtons(sButtonString As String) Dim iIndx As Integer Dim iButtonLength As Integer sButtonString = Trim$(sButtonString) iButtonLength = Len(sButtonString) For iIndx = 1 To iButtonLength  If (Mid$(sButtonString, iIndx, 1) = "1") Then    mvarFormName.Controls(mvarButtons)(iIndx - 1).Enabled = True  Else    mvarFormName.Controls(mvarButtons)(iIndx - 1).Enabled = False  End If Next DoEvents End Sub Private Sub lockTheControls(bLocked As Boolean) On Error Resume Next Dim iIndx As Integer With mvarFormName  For iIndx = 0 To .Controls.Count - 1    If (.Controls(iIndx).Tag = mvarTag) Then      If (TypeOf .Controls(iIndx) Is TextBox) Then        If (bLocked) Then          .Controls(iIndx).Locked = True          .Controls(iIndx).BackColor = vbWhite        Else          .Controls(iIndx).Locked = False          .Controls(iIndx).BackColor = vbYellow        End If      ElseIf (TypeOf .Controls(iIndx) Is DBGrid) Then       If (bLocked) Then        .Controls(iIndx).AllowAddNew = False        .Controls(iIndx).AllowDelete = False        .Controls(iIndx).AllowUpdate = False        .Controls(iIndx).BackColor = vbWhite               Else        .Controls(iIndx).AllowAddNew = True        .Controls(iIndx).AllowDelete = True        .Controls(iIndx).AllowUpdate = True        .Controls(iIndx).BackColor = vbYellow             End If      End If    End If  Next End With End Sub Public Sub ProcessCMD(Index As Integer) Static vMyBookMark As Variant On Error Resume Next Select Case Index     Case cmdMoveFirst      '--- move first ---    mvardataCtl.Recordset.MoveFirst    Call updateButtons Case cmdMovePrevious       '--- move previous ---    mvardataCtl.Recordset.MovePrevious    Call updateButtons Case cmdMoveNext       '--- move next ---    mvardataCtl.Recordset.MoveNext    Call updateButtons Case cmdMoveLast   '-- move last ---    mvardataCtl.Recordset.MoveLast    Call updateButtons '-- Now we are modifying the database -- Case cmdAddNew  '-- add a new record    With mvardataCtl.Recordset        If (.EditMode = dbEditNone) Then             If (mvarTotalRecords > 0) Then               vMyBookMark = .Bookmark             Else               vMyBookMark = ""             End If             .AddNew             Call updateButtons             updateLabel ("Adding New Record")        End If    End With Case cmdEdit '-- edit the current record     With mvardataCtl.Recordset        If (.EditMode = dbEditNone) Then            vMyBookMark = .Bookmark            .Edit            Call updateButtons            updateLabel ("Editing")        End If    End With Case cmdSave '-- save the current record     Dim bMoveLast As Boolean     With mvardataCtl.Recordset     If (.EditMode <> dbEditNone) Then        If .EditMode = dbEditAdd Then          bMoveLast = True        Else          bMoveLast = False        End If        .Update        If (.EditMode = dbEditNone) Then          mvarTotalRecords = .RecordCount          If (bMoveLast = True) Then             .MoveLast          Else             .Move 0          End If          updateButtons True        End If     Else        .Move 0     End If     End With Case cmdDelete  '-- delete the current record    Dim iResponse As Integer    Dim sAskUser As String    sAskUser = "Are you sure you want to delete this record?"    iResponse = MsgBox(sAskUser, vbQuestion + vbYesNo + _       vbDefaultButton2, "Publishers Table")    If (iResponse = vbYes) Then      With mvardataCtl.Recordset         .Delete         mvarTotalRecords = .RecordCount         If (mvarTotalRecords > 0) Then           If mvarTotalRecords = 1 Then                .MoveNext            ElseIf .BOF Then             .MoveFirst           Else             .MovePrevious           End If         End If      End With    End If    Call updateButtons Case cmdUndo '-- undo changes to the current record     With mvardataCtl.Recordset       If (.EditMode <> dbEditNone) Then           .CancelUpdate           If (Len(vMyBookMark)) Then              .Bookmark = vMyBookMark           End If           updateButtons True       Else           .Move 0       End If     End With     updateButtons True  Case cmdFind '-- find a specific record     Dim iReturn As Integer     gFindString = ""     With frmFind       .addCaption = mvarFindCaption       .RecordSource = mvarFindRecordSource       .Show vbModal     End With     If (Len(gFindString) > 0) Then       With mvardataCtl.Recordset        .FindFirst BuildCriteria()        If (.NoMatch) Then          iReturn = MsgBox(mvarFindMatchField & " " & gFindString & _                " was not found.", vbCritical, App.EXEName)        End If       End With     End If     updateButtons  Case cmdDone  '-- Done. Unload the form     Unload Me     Unload mvarFormName       End Select End Sub Public Property Let Tag(ByVal vData As String)    mvarTag = vData End Property Public Property Let RecordSource(ByVal vData As String) On Error Resume Next    mvarRecordSource = vData        If (mvardataCtl Is Nothing) Then       Exit Property    End If        mvardataCtl.DatabaseName = mvardbName    mvardataCtl.RecordSource = mvarRecordSource    mvardataCtl.Refresh     '-- Are there any records? --    If (mvardataCtl.Recordset.RecordCount < 1) Then      mvarTotalRecords = 0      Exit Property    End If '-- There is at least 1 record --    Screen.MousePointer = vbHourglass    mvardataCtl.Recordset.MoveLast    mvarTotalRecords = mvardataCtl.Recordset.RecordCount    mvardataCtl.Recordset.MoveFirst    updateButtons  'added for child    Screen.MousePointer = vbDefault End Property Public Property Set ProgressBar(ByVal vData As Object)    Set mvarProgressBar = vData End Property Public Property Let LabelToUpdate(ByVal vData As String)    mvarLabelToUpdate = vData End Property Public Property Set FormName(ByVal vData As Object)    Set mvarFormName = vData End Property Public Property Let dbName(ByVal vData As String)    mvardbName = vData End Property Public Property Let Buttons(ByVal vData As String)    mvarButtons = vData End Property Public Property Set dataCtl(ByVal vData As Object)    Set mvardataCtl = vData    mvardataCtl.RecordsetType = 1  'ensure a dynaset for absposition End Property

Что нужно добавить из вашего примера, чтобы можно было считать фото
на форму?

Сам я не смогу (пытался долго)



Это сообщение отредактировал(а) Flotskiy - 13.1.2005, 10:32

Цитата

Что нужно добавить из вашего примера, чтобы можно было считать фото на форму?

Код больно запутанный
Может выложешь гденить свой рабочий исходник с примерной юазой или на мыло [email protected] вышли, а я попробую прикрутить руление картинками
И давай на ты

Это был я Сорри, забыл авторизоваться.

Всем добрый день! Bom, Соберу в кучу исходник и БД и переброшу не мыло. А насчет "ты" - прошу прощения, это флотская привычка, вьелась на всю жизнь, буду отвыкать.

Это сообщение отредактировал(а) Flotskiy - 14.1.2005, 06:29