Занесение информации в Базу данных 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д