Архив форумов ЦИТФорума

[_ZooY_]

Как на VB выполнить SQL-запрос?
db.Execute strSQL не выдает ошибок, но и результата тоже нет

[Вячелав]

Больше кода в студию!

[_ZooY_]

Dim db As Database
Dim rst As Recordset
Dim strSQL As String

Set db = OpenDatabase(App.Path & "/data.mdb", False)

strSQL = "INSERT INTO [Tasks] ([Task]) VALUES ('" & txtTask.Text & "')"

db.Execute strSQL

db.Close
Set rst = Nothing
Set db = Nothing

[Вячелав]

правильный ответ
применительно к ADODB.Connection

Private Sub ......()
On Error GoTo errHandler
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "твоя строка подкл. и пр"
If con.State = adStateOpen Then
con.Execute "твой SQL и пр"
'
con.Close
End If

Set con = Nothing
Exit Sub
errHandler:
' твоя процедура обр. ошибки

End Sub

В референсах не забудь полключить ADO!

[Вячелав]

правильный ответ
применительно к ADODB.Connection

Private Sub ......()
On Error GoTo errHandler
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "твоя строка подкл. и пр"
If con.State = adStateOpen Then
con.Execute "твой SQL и пр"
'
con.Close
End If

Set con = Nothing
Exit Sub
errHandler:
' твоя процедура обр. ошибки

End Sub

В референсах не забудь подключить ADO!

[_ZooY_]

-

[_ZooY_]

-

[Вячелав]

Конечно можно! Переделай свой код и вперед

Ты вообще ирархию DAO смотрел?

метод OpenDatabase есть у DAO.Workspace и DAO.DBEngine нажми F2 в VB и подумай!

[_ZooY_]

Если просто создавать рекордсет, добавлять в него данные, потом записывать его, то все работает, а просто выполнить запрос не удается

[Вячеслав]

для начала определись что ты хочешь: получить рекордсет или просто выполнить запрос на доб. из твоего вопроса так и не понятно !
Добавить данные в таблицу множно разными способами - накладные расходы (блокировка, память и пр.) в каждом случае будут разные.
P.S. Настоятельно рекомендую посмотреть ирархию DAO - вопросы отпадут сами собой!

[_ZooY_]

-

[Вячеслав]

Применительно к DAO
Dim db As DAO.Database
Set db = DAO.DBEngine.OpenDatabase(твоя база )

db.Execute "твой запрос"

[_ZooY_]

-