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

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

Ну вот допустим при запуске выдается форма с просьбой ввести свои данные(имя, адре и т.д.) Вводятся они в 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

http://www.hiprog.com/vb/article.asp?id=317

хорошие примеры

Я у себя тоже нашел ошибки!
Вот я сделал кнопку поиска

Код

Private Sub cmdSearch_Click() 'поиск strFamilia = InputBox("Введите искомую фамилию", "Поиск") Data1.Recordset.FindNext "[Фамилия] = strFamilia" If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End Sub

но она почему-то не работет, выдается ошибка:
Run-time error '3070';

The Microsoft Jet database engine does not recognize 'strFamilia' as a valid field name or expression

С другими кнопками все понятно. И еще ОГРОМНОЕ Вам спасибо за помощь, Voldemar2004

Код

Private Sub cmdSearch_Click() 'поиск strFamilia = InputBox("Введите искомую фамилию", "Поиск") Data1.Recordset.FindNext "[Фамилия] =" & strFamilia  '''' ошибка здесь If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End Sub

третью строку исправь на ту, которая выше

Цитата

И еще ОГРОМНОЕ Вам спасибо за помощь, Voldemar2004

Всегда пожалуйста.

Код

Data1.Recordset.FindNext "[Фамилия] = strFamilia"

Вообще-то

Код

Data1.Recordset.FindNext "[Фамилия] = " & strFamilia

Все равно почему-то не работает

Цитата(Oldknight12 @ 16.5.2005, 23:32)

Все равно почему-то не работает

Не происходит ничего или вылазит ошибка? Ты хоть говори, что изменилось чтоли...

Ничего вообще не происходит Сделал так как мне советовали немного выше.

А sql не катит?

А что такое sql, я с ним еще ни разу не работал.

Привет всем, Oldknight попробуй в конце кода поиска вставить

Код

data1.Refresh

тогда сразу поймешь работает ли твой код

Цитата

А что такое sql

Sql это так сказать язык запросов, насколько я в нем разабрался , хотя и не только
запрос для поиска выглядит так:
data1.record sourse="select имя поля from имя таблицы where имя поля по которому выбираешь=значение"
вот кусок из моей проги:

Код

Data1.RecordSource = "SELECT * FROM preoods2  WHERE fish = '" & Text1.Text & "'""

здесь значек * означает, что выбрать надо все записи из таблицы.

С уважением Graf

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

Проблема решена! Спасибо Всем! Прошу закрыть эту тему закрыть!