Из поле со списком в запрос

@slame · Регистрация: 25.12.2009

Author24 — интернет-сервис помощи студентам

Ребят такой вопрос: у меня есть на форме поле со списком в котором выбирается какое то значение. Так вот это значение я хочу запихнуть в 3 таблицы.
Так вопрос состоит в том что бы как это значение "Поле со списком" перенести в sql запрос на добавление?

@vint2 · 29.12.2011, 00:34

Можно так

Visual Basic

Private Sub dobavitVtablicu_1()
 
    Dim rstCurr As DAO.Recordset
    Dim dbsCurr As Database
    Set dbsCurr = Access.CurrentDb
    Set rstCurr = dbsCurr.OpenRecordset("tvoya_tablica_1", dbOpenDynaset)
    
    Me!ПолеСоСписком1.SetFocus
    rstCurr.Fields("pole_tablici_1").Value = Me!ПолеСоСписком1.Text
    
    rstCurr.Update
    rstCurr.Close
    Set rstCurr = Nothing
    
End Sub

а можно через INSERT INTO

SQL

1	INSERT INTO <название таблицы> ([<Имя столбца>, ... ]) VALUES (<Значение>,...)

Добавлено через 11 минут
может не совсем понял вопрос
если ты хочешь взять это значение в переменную а потом использовать в запросе
то

Visual Basic

Private Sub ПолеСоСписком1_AfterUpdate()
Dim f As String
If Not IsNull(Me![ПолеСоСписком1]) And (Me![ПолеСоСписком1] <> "") Then
    f = Me![ПолеСоСписком1]
End If
End Sub

и далее используй в запросе (не забудь о типе данных текст\число)

Добавлено через 2 минуты
блин, вместо Dim f As String надо глобальную переменную Public f As String

@slame · 29.12.2011, 00:38 **[ТС]**

Спасибо большое)
Но мне надо как бы соеденить эти 2 кода)
Я хочу что б при нажатии кнопки, аксес брал мой текст ПолеСоСписком1 и вставлял в запрос Инсерт Инто.
Вот могу показать что я хочу только на делфи:

Delphi

If (edit2.text<>'')and(edit3.text<>'')and(edit4.text<>'')and(edit5.text<>'')and(edit6.text<>'')and(edit7.text<>'')and(edit8.text<>'')and(edit9.text<>'')and(edit10.text<>'')and(edit11.text<>'')and(edit12.text<>'')and(edit13.text<>'') then
begin
for i:=1 to strtoint(Edit2.text) do begin
  mmm.Active:=false;
  mmm.SQL.Clear;
  mmm.SQL.Add('INSERT INTO Билет  ( [Дата вылета], [Время вылета], [Дата прибытия], [Время прибытия], [Цена билета], [Место билета], [Класс билета], [Страна прибытия], [Город прибытия], [Аэропорт прибытия] )');
  mmm.SQL.Add('VALUES ('''+Edit5.Text+''','''+Edit6.Text+''','''+Edit7.Text+''','''+Edit8.Text+''','''+Edit9.Text+''','''+inttostr(i)+''','''+inttostr(1)+''','''+Edit12.Text+''','''+Edit13.Text+''','''+Edit14.Text+''')');
  mmm.ExecSQL;
  f:=f+1;
end;

Просто сказали курсак на Аксесе делать)

@vint2 · 29.12.2011, 00:50

ну както так соедени

Visual Basic

Private Sub Кнопка1_Click()
 
Me!ПолеСоСписком1.SetFocus
Dim f AS String
IF NOT IsNull(Me![ПолеСоСписком1]) AND (Me![ПолеСоСписком1] <> "") Then
    f = Me![ПолеСоСписком1]
Else
MsgBox "выберите значение"
Exit Sub
End IF
 
INSERT INTO <название таблицы> ([<Имя столбца>, ... ]) VALUES f
 
End Sub

или опять же вмето INSERT INTO поставь рекордсет

Visual Basic

Private Sub Кнопка1_Click()
 
Me!ПолеСоСписком1.SetFocus
Dim f AS String
IF NOT IsNull(Me![ПолеСоСписком1]) AND (Me![ПолеСоСписком1] <> "") Then
    f = Me![ПолеСоСписком1]
Else
MsgBox "выберите значение"
Exit Sub
End IF
 
    Dim rstCurr AS DAO.Recordset
    Dim dbsCurr AS DATABASE
    SET dbsCurr = Access.CurrentDb
    SET rstCurr = dbsCurr.OpenRecordset("tvoya_tablica_1", dbOpenDynaset)
    
 
    rstCurr.FIELDS("pole_tablici_1").Value = f
    
    rstCurr.UPDATE
    rstCurr.Close
    SET rstCurr = Nothing
 
 
End Sub

Извини Делфи я незнаю

@slame · 29.12.2011, 00:56 **[ТС]**

Большое человеческое спасибо!
Сечас пойду пробывать)

@vint2 · 29.12.2011, 01:09

извини сплю уже наверно, еще поправка вместо одной строки (12) INSERT INTO..... надо чуть изменить

Visual Basic

1
2
3

Dim  strSQL As String
strSQL = "INSERT INTO <название таблицы> ([<Имя столбца>, ... ]) VALUES f ;"
CurrentDb.Execute strSQL

как то так, если что завтра поправлю

@slame · 29.12.2011, 01:11 **[ТС]**

Код

INSERT INTO <Êëèåíò-ýêñêóðñèÿ> ([<Øèôð ýêñêóðñèè>]) VALUES f

Ошибка :end of statement
неподскажешь что не так?

@vint2 · 29.12.2011, 01:15

Visual Basic

1
2
3

Dim  strSQL AS String
strSQL = "INSERT INTO [Клиент-экскурсия].[Шифр экскурсии] VALUES " &  f & ";"
CurrentDb.Execute strSQL

а так?

@slame · 29.12.2011, 01:28 **[ТС]**

Visual Basic

1
2
3

Dim strSQL As String
strSQL = "INSERT INTO 'Êëèåíò-ýêñêóðñèÿ' ([Øèôð ýêñêóðñèè]) VALUES f;"
CurrentDb.Execute strSQL

Делал как вы предложили, било ошибку Команды Инсерт Инто.Сделал так как я написал теперь пишет "неполное предложение запроса"

@vint2 · 29.12.2011, 01:39

кстати вначале Вы говорили "запихнуть в 3 таблицы" тогда сделай так

Visual Basic

Dim  strSQL AS String
strSQL = "INSERT INTO [таблича1].[поле] VALUES " &  f & ";"
CurrentDb.Execute strSQL
strSQL = "INSERT INTO [таблича2].[поле] VALUES " &  f & ";"
CurrentDb.Execute strSQL
strSQL = "INSERT INTO [таблича3].[поле] VALUES " &  f & ";"
CurrentDb.Execute strSQL

может как-то можно одной строкой но я не знаю сам делаю так

Добавлено через 3 минуты

Сообщение от slame

"неполное предложение запроса"

смотрите внимательно неправильно кавычки скобки

Visual Basic

1	strSQL = "INSERT INTO [таблича1].[поле] VALUES " & f & ";"

Добавлено через 7 минут
пишу по памяти, посмотреть некуда ничего под рукой нет,должно работать
ну если что может вместо [таблича1].[поле] попробуй так таблича1([поле])

@slame · 29.12.2011, 01:44 **[ТС]**

Ну я пробую если для одного заработает, значит потмо сделаю для трёх )
Пока мучаюсь с самим запросом.Как бы я его не делал всеравно бьёт "неполное предложение запроса".
Вот добавил базу,если не сложно посмотри Форма1 Кнопка 7

@vint2 · 29.12.2011, 02:09

вот так работает

Visual Basic

Private Sub Кнопка7_Click()
Me!ПолеСоСписком5.SetFocus
Dim f As String
If Not IsNull(Me![ПолеСоСписком5]) And (Me![ПолеСоСписком5] <> "") Then
    f = Me![ПолеСоСписком5]
Else
MsgBox "выберите значение"
Exit Sub
End If
 
Dim strSQL As String
strSQL = "INSERT INTO [Клиент-экскурсия]([Шифр экскурсии]) VALUES " & "('" & f & "');"
CurrentDb.Execute (strSQL)
 
End Sub

кстати не используйте в названиях полей пробелы, удивляюсь как оно вообще работает лучше символ "_", да и русский шрифт тоже нежелательно

@slame · 29.12.2011, 02:52 **[ТС]**

Вы, можно сказать, спасли мой курсак )
Очень благодарен,Спасибо)

@slame 0 / 0 / 0 Регистрация: 25.12.2009 Сообщений: 12
		1
	Из поле со списком в запрос 28.12.2011, 23:51. Показов 2441. Ответов 12 Метки нет (Все метки) Ребят такой вопрос: у меня есть на форме поле со списком в котором выбирается какое то значение. Так вот это значение я хочу запихнуть в 3 таблицы. Так вопрос состоит в том что бы как это значение "Поле со списком" перенести в sql запрос на добавление? 0

@slame 0 / 0 / 0 Регистрация: 25.12.2009 Сообщений: 12
	29.12.2011, 00:56 [ТС]	5
	Большое человеческое спасибо! Сечас пойду пробывать) 0

@slame 0 / 0 / 0 Регистрация: 25.12.2009 Сообщений: 12
	29.12.2011, 01:11 [ТС]	7
	Код INSERT INTO <Êëèåíò-ýêñêóðñèÿ> ([<Øèôð ýêñêóðñèè>]) VALUES f Ошибка :end of statement неподскажешь что не так? 0

@slame 0 / 0 / 0 Регистрация: 25.12.2009 Сообщений: 12
	29.12.2011, 02:52 [ТС]	13
	Вы, можно сказать, спасли мой курсак ) Очень благодарен,Спасибо) 0