Dim str As String
Dim sql As String
Dim sql1 As String
str = InputBox("請輸入Table名稱", "Table命名", "新增元件")
sql = "CREATE TABLE [" & str & "] ([輸入] text,[輸出] text,[運算式] text)"
dbName = "a:\元件.mdb"
Set db = DBEngine.Workspaces(0).OpenDatabase(dbName)
db.Execute (sql)
上面的是create一個新資料表(table),table名稱為"新增元件"
那請問如果我要在table為"新增元件"而欄位為"輸入"的資料庫裡寫入資料.
那我要如何改以下的程式呢?

sql1 = "INSERT INTO [Publisher Titles] ( [Name], Title )"
sql1= sql & " SELECT Publishers.Name, Titles.Title"
sql1 = sql & " FROM Publishers INNER JOIN Titles"
sql1 = sql & " ON Publishers.PubID = Titles.PubID"
db.Execute (sql1)

謝謝!
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()