Вопрос : Сохраньте данные для того чтобы достигнуть dbase с инструментом VB6

Здравствулте! все, потребность

I ваша помощь сохранить данные от textbox и ярлыков для того чтобы получить сохранили в доступе db.
Everytime которым я щелкну дальше сохраняю кнопку, он сохранит всю коробку txt и ярлыки на новой линии в table.
How могу я сделать это для того чтобы угодить?

This будет Кодий куда я кладу данные в textbox и ярлыки: "" Then
Dim sSQL1 <>

If Des_prod.Text как String
затемняет oRST1 по мере того как ADODB.Recordset
установленные oRST1 = новое ADODB.Recordset
затемняют oConnect1 по мере того как ADODB.Connection
установленные oConnect1 = новое ADODB.Connection

sSQL1 = «ВЫБИРАЮТ [Produits], [пробка], [Bouchon], [колцеобразное уплотнение], [Opération 1], [Opération 2], [Opération 3] ОТ [produit описания] «
oConnect1.Open «Provider=Microsoft.ACE.OLEDB.12.0; « & данные по Source=» & Form4.txt BaseDe.Text _
" &»; «

oRST1.Open sSQL1, oConnect1

If Des_prod > "" Then
oRST1.Filter = «Produits = «» & Des_prod.Text & «» «
установленное txtComposante1.DataSource = oRST1
txtComposante1.DataField =

«пробки " установленное txtComposante2.DataSource = oRST1
txtComposante2.DataField =

«Bouchon " установленное txtComposante3.DataSource = oRST1
txtComposante3.DataField =

«колцеобразного уплотнения " установленное lblOring.DataSource = oRST1
lblOring.DataField = «

Opération 1 " установленное lblVissé.DataSource = oRST1
lblVissé.DataField = «

Opération 2 " установленное lblStérille.DataSource = oRST1
lblStérille.DataField = «конец If
Else

Opération 3 " Концу If


It/> нужно быть за исключением в другой вызванной таблицы: «Inventaire».


So например, данные txtComposante1 идет в колонку 2 таблицы «Inventaire», txtComposante2 идет в


Thanks колонки 3 ....... для вашего help. class=

Ответ : Сохраньте данные для того чтобы достигнуть dbase с инструментом VB6

Hi, Wilder1626.

Я верю что «датой» будет сдержанное слово.  Синтаксис смотрит отлично за исключением дороги, котор вы пытаетесь ввести содержание поля текста.  Линия должна прочитать

SQL = «ВСТАВКА В ЗНАЧЕНИЯ Inventaire (даты) ("» & txtComposante1.Text & «") «