ID非公開

2020/11/26 11:24

11回答

AccessVBAのSQL実行について 以下のようにDAOを使っているのですが、同じ動きでADODBを使って行うことはできますか？

AccessVBAのSQL実行について 以下のようにDAOを使っているのですが、同じ動きでADODBを使って行うことはできますか？ Dim RS As DAO.Recordset Dim SQL As String SQL= "SELECT *FROM tbl WHERE ID = 1" Set RS= CurrentDb.OpenRecordset(SQL) TextBox.Text = myRecordSet("Day") RS.Close Set RS= Nothing

Visual Basic | Microsoft Access・19閲覧

ベストアンサー

0

zpv********

2020/11/26 14:56

こんなのでしょか Sub f() Dim RS As ADODB.Recordset Set RS = New ADODB.Recordset Dim SQL As String SQL = "SELECT * FROM tbl WHERE ID = 1;" RS.Open SQL, CurrentProject.Connection TextBox.Text = RS.Fields("Day") RS.Close: Set RS = Nothing End Sub