У меня возник еще один вопрос! Как мне сделать так чтобы с помощью данных, вводимых пользователем, заполнялась база данных. Расскажите пожалуйста или скиньте ссылку на ресурсы, где можно поподробнее узнать об этом!

ну как-как..
На основе введных пользователем данных создается строка запроса и отправляется в БД..
Что конкретно Вас интересует?

Ну вот допустим при запуске выдается форма с просьбой ввести свои данные(имя, адре и т.д.) Вводятся они в TextBoxы. Нужно чтоб при этом если фамилия новая создавалась ноая запись, если же запись уже есть, то ничего не создается. Затем человек проходит некоторое тестирование с одним фиксированным баллом оценки. Нужно чтоб этот балл тоже был занесен в базу. Ну в общем все. Звучит несложно, но просто опыта работы с БД у меня 5 дней

вот посмотри пример вот так вот я с базой данных работал, это я в школу делал недоделал ну надеюсь поймёшь там хотя и написанно не понашему ну может поможет...
http://servak.wz.cz/_sklad.rar

Спасибо, щас буду разбираться!

Не знаю подойдет ли тебе, но я делаю таk:
1 Создаешь кнопки добавить и обновить
2 Если у тебя на форме элемент data то в кнопке добавить пишешь:

Код

data1.recordset.add new

а если adodc, то тоже самое, только вместо data1 пишешь adodc1

3 В кнопке обновить пишешь:

Код

Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified

Ну вот и все, надеюсь поможет

С уважением Graf

PS : да кстати помни, что textbox должен быть связан с используемым элементом управления (Data или Adodc)

Это сообщение отредактировал(а) Igor Graf - 23.4.2005, 08:36

Цитата(Igor @ 23.4.2005, 07:33)

Не знаю подойдет ли тебе, но я делаю таk:

у меня там в примере так и написано

Да, ну тогда извяняюсь за повтор, просто хотел помочь.

Цитата(Igor @ 23.4.2005, 08:23)

Да, ну тогда извяняюсь за повтор, просто хотел помочь.

да нормально всё.. ты ему сразу написал и это правельние ему код выслал ... так продолжай ;)помогать надо всем ;)

Спасибо огромное за помощь Только у меня еще вопрос. У кого-нибудь есть список операторов для работы с БД, хотя бы самых основных? А то у меня даже MSDNа нет (вырезали его).

здесь почитай http://vb.hut.ru/ там в меню выбери базы данных ;)

Цитата(Oldknight12 @ 26.4.2005, 01:55)

у меня даже MSDNа нет (вырезали его).

А инет есть? msdn.microsoft.com

Вот накинул примерчик:
Access:

Кинь на форму Data1:
Кнопки который тебе нужны будет: Найти, Добавить, Удалить и т.д. (на свой вкус)

Текстовые поля, куда будешь заносить инфу и т.п.

Код

Private Sub Command1_Click() ' Search Button Dim SearchStr as String SearchStr = Input("Твой запрос....", "Заголовок окна") namePole.Recordset.Index = "то что ты ищешъ" namePole.Recordset.Seek "=", SearchStr if namePole.Recordset.NoMatch Then   namePole.Recordset.MoveFirst End If End Sub Private Sub Command2_Click() ' Add Button Dim Question as Integer Question = MsgBox ("Введи свою запись", vbOkCancel, "Adding Record") if Question = vbOk Then Text1.SetFocus namePole.Recordset end if End Sub Private Sub Command3_Click() ' Delete Record Button namePole.Recordset.Delete namePole.Recordset.MoveFirst End Sub

Но до этого у тебя должна бьыть база даннных Access:


Число столбцов "N" в БД Access = Числу TextN.Text текстовых полей в твоей проге , i строк (1-ый столбец - есть счетчик).

Объект Data должен быть связан с файлом *.mdb:
вот его свойства:
Name: namePole
Caption: MyDB.mdb
Connect: Access
DatabaseName: c:\MyDB.mdb
ReadOnly: False
RecordSource: МойИсточник (сохрани БД Access c именем Мой источник, файл MyDB.mdb например)

Это сообщение отредактировал(а) Voldemar2004 - 26.4.2005, 15:06

Voldemar2004 Сделал как Вы написали, но при нажатии кнопки Command1(Search) выдается error "13" (несовпадение типов), а при нажатии на другие кнопки - error"424"(необходим объект)

В том примере было много ошибок, писал без VB и Access по памяти.

Пример:

Создай БД в Access: (только сохрани ее как Access 97): Сервис--> Служебные программы --> Преобразовать Базу Данных --> Access 97. Сохрани с именем sample_one.mdb.
Создай таблицу с 4-мя столбцами: Порядковый Номер, Фамилия и инициалы, Возраст, Зарплата. Ключевое поле - Порядковый Номер - имеет тип Счетчик. Фамилия и инициалы соответственно тип Текстовый, Возраст и Зарплата - числовой тип. Эту таблицу сохрани как "Сотрудники". Прежде чем приступать к работе с VB6 внеси в базу данных какую-либо инфу хотя бы об одном человеке, счетчик не трогай; Фамилия например: Иванов Иван Иваныч, Возраст - 30, Зарплата - 10000.

В обекте Data1:
Имя = Staff, Connect = Access, DataBaseName, RecordSource = Сотрудники.
У всех 4-x Text.Text DataSource = Staff, DataField соответственно у Text1.Text - Порядковый номер, у Text2.Text - Фамилия и Инициалы, и т.д. У Text1.Text Locked = True.

Код

Option Explicit Private Sub Command2_Click() ' Add Dim Question As Integer Question = MsgBox("Enter your record", vbOKCancel, Adding") If Question = vbOK Then Text1.SetFocus Staff.Recordset.AddNew End If End Sub Private Sub Command3_Click() 'Delete Dim Question As Integer Question = MsgBox("Delete record?", vbYesNo, "Delete record") If Text1.Text = "" Then MsgBox "DB is empty" Else     If Question = 6 Then     Staff.Recordset.Delete     Staff.Recordset.MoveFirst     End If End If End Sub

Кнопка "Поиск" действительно не работает, вместо Input("Твой запрос....", "Заголовок окна") надо было писать InputBox("Твой запрос....", "Заголовок окна"). Но это я еще посмотрю как она работает.

Уф.

Если тебя интересует, то могу показать как создавать тоже самое с помощью мастера DataBase в VB6, где будут кнопки: Add, Delete, Update, Refresh, Close.

Это сообщение отредактировал(а) Voldemar2004 - 11.5.2005, 18:56