vba - パワーポイントからデータをエクスポートしてデータベースにアクセスする

Question

テキストボックス、情報を含むコンボボックスを備えたパワーポイントがあります。パワーポイントからaceessデータベースにデータをエクスポートしたいと考えています。パワーポイントをフォームのように使ってデータベースを完成させたい。

解決策は、このデータベースを更新するボタンを用意することです。誰でもこのボタンのコードを持っていますか?

Answer 1

ここに1つのアプローチに関するいくつかの大まかなメモがあります。他にも多くの可能性があります。

''Library reference: Microsoft ActiveX data Objects x.x Lubrary

Dim cmd As ADODB.Command
Dim cn As ADODB.Connection
Dim scn As String, ssql As String

''See also http://ConnectionStrings.com
scn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Z:\Docs\Test.accdb;"
Set cmd = CreateObject("ADODB.Command")
Set cn = CreateObject("ADODB.Connection")

cn.Open scn
ssql = "insert into table1 (atext,amemo) values( p1,p2)"
With cmd
    .CommandText = ssql
    .ActiveConnection = cn
    .CommandType = adCmdText
    .Parameters.Append .CreateParameter( _
        "p1", adVarChar, adParamInput, 50, Me.ComboBox1)
    .Parameters.Append .CreateParameter( _
        "p2", adVarChar, adParamInput, 50, Me.TextBox1)
    .Execute recs
End With

MsgBox recs