Занесение информации в Базу данных Access из текстовых полей - VB

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

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

Возник такой вопрос, как занести информацию в БД из текстовых полей(например, TextBox)?

Решение задачи: «Занесение информации в Базу данных Access из текстовых полей»

textual
Листинг программы
Private Sub Command1_Click()
Const p As String = ",", s As String = "'"
Dim myBD As New ADODB.Connection
Dim rec As Recordset
myBD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& "здесь полный путь к базе и имя базы" & ";Persist Security Info=False"
myBD.Execute "INSERT INTO tabl (field1, field2, field3) SELECT " _
& s & Text1.Text & s & p & s & Text2.Text & s & p & s & Text3.Text & s
'здесь tabl - это имя таблицы, field1, field2, field3 - это имена полей
'в таблице, а s - это константа, обозначающая символ ' т.к.
'в sql-запросах 'строки' передаются именно в '. А т.к. в TextBox-ах данные
'типа String, то и в базе поле должно быть строкового типа.
'Если поле другого типа, то при передаче данных нужно их
'преобразовывать в нужный тип встроенными в vb функциями.
myBD.Close
Set myBD = Nothing
End Sub

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


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

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

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