Snasui Excel Forum

:o อาจารย์ครับ เว็บ
[url]http://www.w3schools.com/sql/sql_intro.asp[/url]

เจ๋งมากครับ มีส่วนให้ลองทำเลยในหน้าเว็บด้วย เรียนแล้วเพลิน :thup:

ขอบคุณอาจารย์มากครับและคุณ bank9597 ด้วย

ขอเริ่มด้วยโค้ดติดต่อฐานข้อมูลก่อนครับ (เพราะทำไฟล์มาไกลแล้ว T_T) ระหว่างนี้จะค่อยๆ ศึกษา Access ครับ

ขอบคุณอีกครั้งครับ

(เข้าไปดูลิงค์ที่อาจารย์ให้แล้วรู้สึก :sg: นี่มันคือการเรียนภาษาใหม่ชัดๆ)

:D Access อีกเสียงครับ

:D ศึกษาจาก Microsoft Access น่าจะง่ายที่สุดแล้วครับ เนื่องจากเราสามารถใช้ความคุ้นเคยกับเมนูต่าง ๆ ของ Microsoft Office ที่มีลักษณะคล้ายกันมาก และหากต้องการทำระบบงานควรจะทำด้วย Microsoft Access เป็นหลักเนื่องจากเป็น Relational Database Management System ซึ่งสะดวกในการ Query ข้อมูลในตารางอื่นๆ ที่มีข้อมูลสัมพันธ์กับตารางปัจจุบัน นอกจากนี้ Object ของ Access จะผูกโยงกับข้อมูลพร้อมมีคำสั่งที่เตรียมไว้ให้สำหรับการจัดการข้อมูลเรียบร้อยแล้ว ไม่เหมือนกับ Excel หรือ Application ที่เขียนขึ้นมาเองด้วย VB, C# ฯลฯ ต้องวาด Control และผูกข้อมูลเองทั้งหมดครับ

ในเรื่องการเขียนให้ติดต่อฐานข้อมูลใน Excel จำเป็นต้องเรียนรู้เกี่ยวกับ Connection String ศึกษาได้จาก Link นี้ครับ [newwindow=http://www.connectionstrings.com/]Connection String Reference[/newwindow] และคำสั่ง SQL ที่ใช้ในการ Select, Insert, Update, Delete ข้อมูล ลองศึกษาจากที่นี่ประกอบครับ [newwindow=http://www.w3schools.com/sql/sql_intro.asp]SQL Introduction[/newwindow]

ขอสอบถามหน่อยครับ ไม่เกี่ยวกับหัวเรื่องเท่าไรแต่เป็นสิ่งที่คิดจะทำกับไฟล์นี้ครับ

หากจะเขียนให้มีการเชื่อมต่อกับฐานข้อมูลซึ่งผมไม่มีความรู้เลยในตอนนี้ ผมควรจะเริ่มจากตรงไหนหรือหาอ่านได้จากไหนดีครับ (ผมลองไปดูหนังสือแล้ว อ่านคร่าวๆ ... ไม่รู้เรื่องเลย เหมือนกับว่าต้องมีพื้นเรื่องการเขียนโปรแกรมมาบ้างแล้ว) และขอความกรุณาแนะนำว่าผมควรจะใช้ฐานข้อมูลอะไรที่เรียนรู้ค่อนข้างง่ายหน่อยครับ Access หรือเปล่า? เห็นมีอยู่ในชุดของไมโครซอฟท์ แต่ก็ไม่เคยใช้เลยครับ ตอนนี้ไฟล์ที่ใช้อยู่เป็นแบบเก็บข้อมูลทั้งหมดในไฟล์ใช้ได้เดือนเดียวก็ต้องสร้างไฟล์ใหม่เพราะขนาดเริ่มใหญ่และทำงานช้าครับ

[quote="DhitiBank"]เจอแล้วครับ กว่าจะหาเจอ เข้าไปดูตัวอย่างโค้ดของไมโครซอฟท์ เหมือนกับว่าก่อนจะเพิ่มค่าเข้าไปใน collection ได้ ต้องทำให้เป็น string ก่อน (ไม่รู้ว่าเข้าใจถูกไหมครับ) เลยมั่วปรับตรง

[c]cSubCode.Add .Cells(i, "b").Value, .Cells(i, "b").Value[/c]
เป็น
[c]cSubCode.Add .Cells(i, "b").Value, CStr(.Cells(i, "b").Value)[/c]
ตอนนี้รันได้แล้วครับ ขอบคุณมากครับ เดี๋ยวจะเอารายการพวกนี้ยัดเข้าไปใน Listbox ที่อยู่ในเฟรม 2 ด้วยทั้งรหัสและชื่อ ติดแล้วขอมาถามใหม่ครับ[/quote]

:thup:

เจอแล้วครับ กว่าจะหาเจอ เข้าไปดูตัวอย่างโค้ดของไมโครซอฟท์ เหมือนกับว่าก่อนจะเพิ่มค่าเข้าไปใน collection ได้ ต้องทำให้เป็น string ก่อน (ไม่รู้ว่าเข้าใจถูกไหมครับ) เลยมั่วปรับตรง

[c]cSubCode.Add .Cells(i, "b").Value, .Cells(i, "b").Value[/c]
เป็น
[c]cSubCode.Add .Cells(i, "b").Value, CStr(.Cells(i, "b").Value)[/c]
ตอนนี้รันได้แล้วครับ ขอบคุณมากครับ เดี๋ยวจะเอารายการพวกนี้ยัดเข้าไปใน Listbox ที่อยู่ในเฟรม 2 ด้วยทั้งรหัสและชื่อ ติดแล้วขอมาถามใหม่ครับ

Private Sub obMain1_Click()
    Dim i%, iRow%, bNum%
    Dim cSubCode As New Collection
    
    ' Variables
    Set wsSTDB = ThisWorkbook.Sheets("9sd")
    With wsSTDB
        iRow = .Range("b" & .Rows.Count).End(xlUp).Row
    End With
    If obName = "" Then obName = obMain1.Name
    bNum = Right(obName, 1)
    Debug.Print bNum, IsNumeric(bNum)
    
    ' Enable some controls
    cbbSub1.Enabled = True
    cbbSub1.Clear
    
    'Call SubCodeUnique(iRow, bNum)
    On Error Resume Next
    With wsSTDB
        For i = 5 To iRow
            If bNum < VBA.Left(.Cells(i, "b"), 1) Then Exit For
            If bNum = VBA.Left(.Cells(i, "b"), 1) Then _
                cSubCode.Add .Cells(i, "b").Value, .Cells(i, "b").Value
        Next i
    End With
    On Error GoTo 0
    
    'Add item(s) to combo box
    If cSubCode.Count = 0 Then Exit Sub
    For i = 1 To cSubCode.Count
        cbbSub1.AddItem cSubCode.Item(i)
    Next i
    
End Sub

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

ผมทำฟอร์มชื่อ [c]AddStuff[/c] เพื่อเอาไว้ใส่ข้อมูลใหม่ที่ไม่มีในฐานข้อมูล ตั้งใจจะทำให้มี 3 แท็ป แต่แท็ปแรกก็จอดแล้ว ที่แท็ปแรกใช้เฟรมแบ่งเป็น 3 ส่วน ตั้งใจไว้ว่าจะให้ผู้ใช้งานไล่ทำให้เสร็จทีละส่วน (ทำส่วนที่ 1 เสร็จ ส่วนที่ 2 จึงค่อยสั่งให้ Enable แบบนี้ไปเรื่อยๆ ครับ)

[attachment=2]combo1.png[/attachment]
[attachment=1]combo2.png[/attachment]

ที่คิดไว้คือ พอเลือก option ในส่วนที่ 1 เสร็จแล้ว สมมติว่าเลือก option1 โค้ดก็จะรับว่าเลือกค่าที่ 1 แล้วก็จะไปมองหากลุ่มย่อย (เป็นรหัส 3 หลัก) ในชีท [color=#0000FF][b]9SD[/b][/color] [color=#0000FF]คอลัมน์ B[/color] แล้วเลือกรหัสที่ขึ้นต้นด้วย 1 มาทั้งหมดแบบไม่ซ้ำ แล้วเอาไปใส่ใน combo box ที่อยู่ในเฟรมที่ 2

ตอนแรกใส่ใน combo box ได้แล้วแต่มาหมดเลยทั้งซ้ำและไม่ซ้ำ ก็เลยลองเอาคำสั่ง collection มาใช้เพื่อเลือกรายการไม่ซ้ำก่อน ทำยังไงก็ไม่ได้ ผมควรปรับอย่างไรดีครับ โค้ดอยู่ที่ตัวฟอร์มเลยครับ

หากเลือก option1 (เพิ่งเขียนคำสั่งของ option1 ไว้อย่างเดียวครับ) จะได้สมาชิกใน combo box คือ 100, 101, 102, 103, 104, 105 ครับ

[code]Private Sub obMain1_Click()
Dim i%, iRow%, bNum%
Dim cSubCode As New Collection

' Variables
Set wsSTDB = ThisWorkbook.Sheets("9sd")
With wsSTDB
iRow = .Range("b" & .Rows.Count).End(xlUp).Row
End With
If obName = "" Then obName = obMain1.Name
bNum = Right(obName, 1)
Debug.Print bNum, IsNumeric(bNum)

' Enable some controls
cbbSub1.Enabled = True
cbbSub1.Clear

'Call SubCodeUnique(iRow, bNum)
On Error Resume Next
With wsSTDB
For i = 5 To iRow
If bNum < VBA.Left(.Cells(i, "b"), 1) Then Exit For
If bNum = VBA.Left(.Cells(i, "b"), 1) Then _
cSubCode.Add .Cells(i, "b").Value, .Cells(i, "b").Value
Next i
End With
On Error GoTo 0

'Add item(s) to combo box
If cSubCode.Count = 0 Then Exit Sub
For i = 1 To cSubCode.Count
cbbSub1.AddItem cSubCode.Item(i)
Next i

End Sub[/code]