Snasui Excel Forum

:D เข้าใจว่าค่าในเซลล์เป็น Number การใช้เครื่องหมาย + ในการเชื่อม Statement จึงเป็นปัญหา ลองเปลี่ยนเป็นด้านล่างครับ
stSQL = stSQL & "VALUES ('" & Range("B2").Value & "','" & Range("C2").Value & "')"

:thup: ใช้code ตามด้านบนที่อาจารย์ให้มาแก้ปัญหาได้เรียบร้อยแล้วครับ ขอบคุณมากครับอาจารย์
ด ...

ใส่ตามที่อาจารย์บอกก็ติด error เหมือนเดิมครับ type Mismatch

stSQL = stSQL & "VALUES (" + Range("B2").Value + "," + Range("C2").Value + ")"

บรรทัดนี้ครับ error คือ mismatch ครับอาจารย์

เมื่อทำการ run ติดปัญหา error mismatch ครับ ลองพยายามแก้ไขด้วยตนเองแล้ว แต่ก็ติดแต่ error ตัวเดิมตัวนี้ครับ T_T
รบกวนอาจารย์ช่วยด้วยครับ

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

http://image.free.in.th/z/ia/nothavecolumn.jpg

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

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

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

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

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

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