Кулинарная книга

    Private Sub Combo_cat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo_cat.SelectedValueChanged

        List_rec.Items.Clear()

        Dim g As Integer

        DataRecept.MoveFirst()

       

        While DataRecept.EOF = False

            If Combo_cat.SelectedItem() = DataRecept.Fields("Категория").Value Then

                List_rec.Items.Add(DataRecept.Fields("Название блюда").Value)

                DataRecept.MoveNext()

            Else : DataRecept.MoveNext()

            End If

        End While

    End Sub 

    Private Sub List_rec_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles List_rec.SelectedIndexChanged

        PictureBox1.Hide()

        DataRecept.MoveFirst()

        Dim adress As String

        While DataRecept.EOF = False

            If List_rec.SelectedItem() = DataRecept.Fields("Название блюда").Value Then

                Text_sostav.Text = DataRecept.Fields("Состав").Value()

                Text_recept.Text = DataRecept.Fields("Приготовление").Value() & vbCrLf

                Label_time.Text = DataRecept.Fields("Время готовки").Value()

                adress = DataRecept.Fields("Адрес картинки").Value()

                PictureBox1.Image = New Bitmap(adress)

                PictureBox1.Show()

            DataRecept.MoveNext()

            If DataRecept.EOF = False Then

                DataRecept.MoveLast()

            ElseIf DataRecept.EOF = True Then

                Debug.Text = "end" 

            End If 

            Else : DataRecept.MoveNext()

            End If

        End While

    End Sub 

    Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) 

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim formMain As New Form4()

        Me.Hide()

        formMain.Show()

    End Sub 

    Private Sub Combo_cat_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo_cat.SelectedIndexChanged 

    End Sub

End Class

Форма 3. 

Public Class Form3

    Inherits System.Windows.Forms.Form

    'Объявляем новый экземпляр объекта Connection

    Public MyADOConnect As New ADODB.Connection()

    Public MyDataSet As New ADODB.Recordset()

    Public DataRecept As New ADODB.Recordset()

    Public work_dir As String 

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MyADOConnect.Open("Provider= Microsoft.Jet.OLEDB.4.0;Data Source=кулинария.mdb")

        DataRecept.Open("Рецепты", MyADOConnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

        MyDataSet.Open("Категории", MyADOConnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

        work_dir = CurDir()

        MyDataSet.MoveFirst()

       While MyDataSet.EOF = False

            Dim cat As String

            cat = MyDataSet.Fields("Название").Value()

            Combo_cat2.Items.Add(cat)

            MyDataSet.MoveNext()

        End While

        MyDataSet.Close()

    End Sub 

    Private Sub Form3_close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed

        'End

    End Sub 
 

    Private Sub Combo_cat2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo_cat2.SelectedValueChanged

        Dim g As Integer

        DataRecept.MoveFirst()

        While DataRecept.EOF = False

            If Combo_cat2.SelectedItem() = DataRecept.Fields("Категория").Value Then

                DataRecept.MoveNext()

            Else : DataRecept.MoveNext()

            End If

        End While 

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim path As String

        Dim full_path As String

        DataRecept.AddNew()

        DataRecept.Fields("Категория").Value = Combo_cat2.SelectedItem

        DataRecept.Fields("Название блюда").Value() = TextBox1.Text

        DataRecept.Fields("Состав").Value = Text_sostav2.Text

        DataRecept.Fields("Приготовление").Value = Text_recept2.Text

        DataRecept.Fields("Время готовки").Value = Text_time.Text 

        path = "Картинки\" & Combo_cat2.SelectedItem & "\" & Int(Rnd() * 9999 * Int(Rnd() * 66)) & ".jpg"

        full_path = work_dir & "\" & path

        FileCopy(Text_pic.Text, full_path)

        DataRecept.Fields("Адрес картинки").Value() = path

        DataRecept.Update()

        MsgBox("Рецепт сохранен")

        Dim formcl As New close_form()

        formcl.Show()