VBA การสร้าง Access database และสร้างตารางใน database ผ่าน Excel ครับ

[DhitiBank]

สวัสดีอาจารย์และเพื่อนๆ ครับ

ผมกำลังหัดสร้างฐานข้อมูล Access โดยสั่งจาก Excel และสร้างตารางในฐานข้อมูลด้วย แต่ติดตรงบรรทัด aCn.Execute "CREATE TABLE Transaction (FirstName CHAR, LastName CHAR)" ไม่สามารถสร้างตารางในไฟล์ฐานข้อมูลได้ครับ

อยากสอบถามคือ
1. ผมต้องปรับโค้ดอย่างไรเพื่อสร้างตารางในฐานข้อมูล
2. หากผมแค่ต้องการเก็บข้อมูลเฉยๆ (ประมาณ 30-40 คอลัมน์ และจำนวนแถวไม่จำกัด) ผมควรเลือกใช้ไฟล์ .mdb หรือ .accdb ดีครับ
(ผมลองอ่านจากไมโครซอฟท์ ว่าไฟล์ 2 แบบนี้ต่างกันยังไง อ่านแล้วก็ไม่เข้าใจครับ)

โค้ดอยู่ในโมดูล1 ในไฟล์แนบครับ

Code: Select all

Private Sub CreateDbFile()
    Dim objAccess As Access.Application, aCn As ADODB.Connection _
            , strCnString As String
    strPath = ThisWorkbook.Path & "\dbstk"
    'check if the database folder is existed
    'if it not, create it
    If Len(Dir(strPath, vbDirectory + vbHidden)) = 0 Then
        Call MkDbFolder
    End If
    
    'check if actual database file is available
    'if not, create Access database and some tables
    strPath = strPath & "\" & Format(Now(), "[$- ]yyyy")
    If Len(Dir(strPath & "*")) = 0 Then
        Set objAccess = New Access.Application
        Call objAccess.NewCurrentDatabase(strPath)
        objAccess.Quit
        
        strCnString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" _
            & strPath & ".accdb;"
        Set aCn = New ADODB.Connection
        aCn.Open strCnString
        aCn.Execute "CREATE TABLE Transaction (" _
            & "FirstName CHAR, LastName CHAR)"
        aCn.Close
    End If
    Set objAccess = Nothing
    strPath = ""
End Sub

ทำไมมันยากจริง ขอขอบคุณล่วงหน้าครับ

[snasui]

ตรง aCn.Execute คำว่า Transaction ไปตรงกับคำสงวนของ SQL Statement จึงทำให้เกิด Error ดูเพิ่มเติมที่นี่ครับ https://msdn.microsoft.com/en-us/library/ms189822.aspx

หากเติม s เข้าไปด้านหลังเป็น Transactions Code จะทำงานได้ครับ

[DhitiBank]

ขอบคุณมากครับ เดี๋ยวตอนเย็นจะมารายงานผลนะครับ

[DhitiBank]

โค้ดรันผ่านแล้วครับ ขอบคุณมากครับ แต่พอปรับตัวแปรของแต่ละ field ก็เจอ error แบบใหม่ที่บรรทัด Execute เหมือนเดิมครับ คือผมตั้งใจให้มี 30-35 fields ซึ่งจะเก็บข้อมูลแตกต่างกัน เช่น วันที่ ตัวเลข ตัวอักษร ฯลฯ (ตัวอย่างในชีท 1 แถวที่ 1 คือชื่อ field แถวที่ 2 คือรูปแบบข้อมูลที่จะเก็บครับ) ก็เลยลองเปลี่ยน datatype จาก varchar เป็นแบบอื่นๆ ก็เจอข้อผิดพลาดนี้ครับ
[color=#FF0000]-2147217900 Syntax error in field definition.[/color]

ผมเลือก data type มาจากลิงค์ด้านล่างนี้ในส่วนของ MySQL data type
http://www.w3schools.com/sql/sql_datatypes.asp
ตอนแรกลองเอาในส่วน Microsoft Access data type มาใช้ก็เจอ error แบบเดียวกัน
ปัญหาคือ ผมต้องเอา data type ส่วนไหนมาใช้ครับ

Code: Select all

Private Sub CreateDbFile()
    Dim objAccess As Access.Application, aCn As ADODB.Connection _
            , strCnString As String
	'.........
        With aCn
            .Open strCnString
            .Execute "CREATE TABLE TSDetail (" & _
                "DateDoc datetime, DocNo varchar, " & _
                "WhoCode mediumint)"
            .Close
        End With
    '.........
End Sub

[snasui]

ดูตัวอย่างการเขียน SQL Statement เพื่อระบุ Field ที่โพสต์นี้ครับ http://www.mrexcel.com/forum/excel-ques ... ost1969884

[DhitiBank]

ขอบคุณครับ ขอลองศึกษาก่อนแล้วจะมารายงานผลครับ