Написать прогу, выдающую следующию информацию - VB

Узнай цену своей работы

Формулировка задачи:

Создать файл, содержащий сведения об ассортименте обуви в магазине. Каждая запись содежит поля: артикуль, наименование, кол-во, стоимость. Написать прогу, выдающую следующию информацию: - о наличии и стоимости обуви артикуля Х - ассортиментный список дамской обуви с указанием наименования и имеющегося в наличии числа пар каждой модели.
БД таблицу аксесс создала: C:\Documents and Settings\Admin\Рабочий стол\Документы\Катя_Информатика\KR1.accdb А как связать её и какие компонеты ставить незнаю

Решение задачи: «Написать прогу, выдающую следующию информацию»

textual
Листинг программы
Private Sub Command1_Click()
Dim strFileType As String
On Error GoTo ErrorHandler
CommonDialog1.CancelError = True
CommonDialog1.FileName = Empty
strFileType = "MS Access Database (*.mdb)|*.mdb|"
CommonDialog1.Filter = strFileType
CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = "Введите имя создаваемой БД"
CommonDialog1.InitDir = "c:\"
CommonDialog1.Action = 1
'***********************************************
'Инициализируем переменныю пути к БД
strDBPath = CommonDialog1.FileName
'Если БД существовала
'Закрываем БД и рабочее пространство
NewDB.Close
NewWs.Close
'Уничтожаем объекты
Set NewTbl = Nothing
Set NewDB = Nothing
Set NewWs = Nothing
'Устанавливаем опции
lngDBOpts = dbVersion30 + dbEncrypt
'Создаем рабочее пространство
Set NewWs = DBEngine.Workspaces(0)
'Создаем Базу Данных
Set NewDB = NewWs.CreateDatabase(strDBPath, dbLangCyrillic, lngDBOpts)
 
MsgBox "База Данных " & CommonDialog1.FileTitle & _
" создана.", vbInformation, "Создание Баз Данных"
'***********************************************
'Разрешение на дальнейшие дествия Шаг2.
Frame1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
 
'Запрет на действия Шаг3
Step3
'Запрет на действия Шаг4
Step4
'Запрет на действия Шаг5
Step5
bDBCreate = True
bNewStart = True
Exit Sub
 
ErrorHandler:
Select Case Err.Number
        'Пользователь нажал на Cancel CommonDialog
        Case 32755
        If bDBCreate = True Then
                'Разрешение на дальнейшие дествия Шаг2.
                Frame1.Enabled = True
                Command2.Enabled = True
                               
        End If
        Exit Sub
        'Если БД уже существует
        Case 3204
        MsgBox "База Данных под этим именем уже существует." & _
                vbCrLf & "Введите новое имя для Базы Данных.", vbExclamation, _
                "Создание Баз Данных"
        Command1_Click
        Frame1.Enabled = False
        Exit Sub
        Case 91
        Resume Next
 
End Select
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.133 из 5
Похожие ответы