มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกับMsS

[modllsj]

สวัสดีครับผมเป็นมือใหม่ในการเขียน vba
ปัญหาของผมคือ ตอนนี้ผมมี table ใน MsSql เรียบร้อยและมีข้อมูลอยู่ในนั้น
ต้องการที่จะใช้ Excel ทำการดึงข้อมูลจาก table ที่มีมาใส่ใน Excel ครับ
โดยเมื่อเขียน Code ที่ใช้ในการเชื่อมต่อเสร็จแล้ว เกิดปัญหาดังภาพขึ้นครับ
ไม่ทราบว่าจะแก้ด้วยวิธีไหนครับอาจารย์หรือว่าcodeที่ผมเขียนมันผิดหลักครับ
รบกวนชี้แนะด้วยครับ
http://pic.free.in.th/id/fdc8458b930514 ... 457e9118ca

[snasui]

แนบภาพมาที่ฟอรัมนี้เลยครับ

[modllsj]

[snasui]

Error ที่บรรทัดไหนครับ หากเป็นที่ SQL Statement ให้ใช้ Statement ง่าย ๆ ก่อนครับ ยังไม่ต้องใส่ Where หรือ อื่น ๆ

[modllsj]

error ตั้งแต่ Dim cn as ADODB.connection เลยครับ
error ที่ว่าคือ user-defined type not defined ซึ่งเหมือนกับว่า vba ใน excel ไม่รู้จัก ADODB.connection อะครับ
ไม่ทราบว่าต้องแก้ไขอย่างไร หรือ import reference อันไหนเข้ามาหรือเปล่าครับ
ปล.codeข้างต้น ใส่statement แค่เพียง select*from เองครับ

[snasui]

ต้อง Add Reference เข้ามาก่อนครับ โดยเข้า VBE > Tools > Reference > เลือก Microsoft ActiveX Data Objects 2.8 Library หรือสูงกว่า

[modllsj]

add reference ตามอาจารย์บอกแล้วก็ยัง error แบบเดิมอยู่ครับ T_T

[snasui]

สังเกตว่ามี Missing ด้านหน้าของค่าที่ลูกศรชี้ตามภาพหรือไม่ครับ

[modllsj]

Add reference ตัวที่อาจารย์ชี้แนะเรียบร้อยแล้วครับ ทำการ run code ไม่เกิด error ตัวเดิมแล้วครับ
แต่เกิด error ตัวใหม่ครับ มัน error ว่า type mismatch แทนครับ
รบกวนอาจารย์ชี้แนะทีครับ

[modllsj]

ตอนนี้ไม่ error แล้วครับ ทำการปรับเปลี่ยน code นิดหน่อย ก็ run ผ่านครับ
แต่มีบางส่วนยังไม่เข้าใจอยากขอคำชี้แนะครับ

[modllsj]

ปัญหาอย่างแรก : จากรูป อาจารย์จะเห็นได้ว่า Code ที่ทำการรันผ่านแล้วจะดึงข้อมูลมาจาก table ใน MsSql
แต่ว่า ได้มาเพียง Value ที่มีใน table กลับไม่ได้ชื่อของ Column มาเลยครับ
ซึ่งชื่อของ Column ควรจะอยู่ที่ตำแหน่ง A1,B1,C1 แล้ว Value ก็ไปอยู่ที่ตำแหน่ง A2,B2,C2 ครับ
อยากทราบวิธีการแก้ไขหรือคำชี้แนะครับ ^_^

ปัญหาที่สอง : จาก error ที่ฟ้องว่า Type MisMatch นั่น ผมอยากทราบรายละเอียดในส่วนนี้ครับ
รบกวนอาจารย์ชี้แนะด้วยครับ

ปัญหาที่สาม : ในการสร้างในส่วน VBE เมื่อผมทำการเขียน code ขึ้นมาใน Module แล้ว เมื่อทำการบันทึกไฟล์
บางครั้งก็บันทึกแล้ว codeต่างๆยังคงอยู่ แต่บางครั้ง code ต่างๆกลับหายไป ไม่ทราบว่าผมต้องทำอย่างไรในส่วนไหนครับ
ปล.ในปัญหาที่สามนี้ ทุกครั้งที่ผมทำการ save จะมีข้อความว่า(ตามรูปครับ)

ซึ่งเมื่อกด Yes แล้ว บางทีมันก็ save ให้ บางทีก็ไม่ save ให้ครับ

ขอบพระคุณอาจารย์อย่างสูงครับ

[snasui]

กรณีต้องการ Field มาด้วยลองใช้ Code ด้านล่างเข้าไปช่วยครับ

Code: Select all

Dim fld As Field
Dim i As Integer
Dim FieldRange As Range

Set FieldRange = Range("A1")
For Each fld In rc.Fields
   FieldRange.Offset(0, i).Value = fld.Name
   i = i + 1
Next fld

สำหรับ Error Type MisMatch ช่วยจับภาพบรรทัดที่แสดง Error ด้วยครับ

การ Save File จะต้อง Save เป็นนามสกุล .xlsm ถึงจะแนบ Code ได้ครับ หาก Save เป็น .xlsx จะไม่สามารถแนบ Macro ได้ครับ

[modllsj]

ขอบคุณครับอาจารย์ พรุ่งนี้ผมต้องไปต่างจังหวัด
คงจะกลับมานั่งเขียนใหม่ประมาณวันอังคารครับ
ขอขอบคุณในคำชี้แนะต่างๆครับ
ด้วยความเคารพ
modllsj