เนื่องจาก Source Code บางตัว สุ่มเสี่ยงต่อการนำไปใช้ในทางที่ผิด
หากดาวน์โหลดไม่ได้ ติดต่อเข้ามาทาง Inbox ที่เฟซบุ๊คผมแทนน่ะครับ
เฟซบุ๊คเว็บมาสเตอร์

หน้าหลัก
ข่าวสาร - บทความ ทั้งหมด
VB 6/VB.Net
ASP/ASP.Net
จับฉ่ายคอมพิวเตอร์
เรียนรู้ผ่าน Flash Movie
บทความที่มีผู้ตอบล่าสุด  
 RSS Feeds
 ดาวน์โหลดโปรแกรม RSS Reader ได้ที่นี่ ...   Download โปรแกรม RSS Reader

กระดานข่าวสาร เว็บบอร์ด - www.g2gnet.com
ดาวน์โหลดฟรีโปรแกรม และ Free Souce Code ได้ที่นี่ ...
รู้จักกับเว็บมาสเตอร์ - www.g2gnet.com
::: โปรแกรมมาใหม่ :::
โปรแกรมพิมพ์สติ๊กเกอร์บาร์โค้ด - Barcode Sticker
โปรแกรมพิมพ์สติ๊กเกอร์บาร์โค้ด - Barcode Sticker
โปรแกรมไปรษณีย์ และ จุดชำระค่าบริการ (iPayPost Software)
โปรแกรมไปรษณีย์ และ จุดชำระค่าบริการ
โปรแกรมจุดรับชำระค่าบริการ (iPayLite Software)
โปรแกรมจุดรับชำระค่าบริการ
::: BarcodeSoft :::
::: Printing :::
โปรแกรมพิมพ์รหัสบาร์โค้ด - BarcodeSoft Printing
โปรแกรมรหัสไปรษณีย์ทั่วไทย
::: G2GNet PostCode :::
!!!!! แจกฟรี !!!!!
ดาวน์โหลดโปรแกรมรหัสไปรษณีย์ทั่วไทย G2GNet PostCode Thailand
Visitors - Session views
 3 6 4 2 8 4 4

7 ธันวาคม พ.ศ.2549
88 Users On-Line.
Visitors - Page views
 6 3 7 1 4 9 3
1 กุมภาพันธ์ พ.ศ.2551

Google   
เว็บ g2gnet.com
ขนาดตัวอักษร:  
    ดาวน์โหลด และ แนะนำวิธีการติดตั้ง Active Report Professional 2.0
    แจกฟรี Source Code โปรแกรมขายสินค้า - Point Of Sale (โดย เว็บมาสเตอร์-ทองก้อน
    แจกฟรี Source Code การพิมพ์ใบกำกับภาษี - Active Report 2.0 (โดย ctx-9000@hotmail.com)
    SourceCode การดึงข้อมูลมาแสดงผลลงใน SharpGrid (โดย dos_network@hotmail.com)
    แจกฟรี Source Code VB6+Access โปรแกรมฐานข้อมูลครุภัณฑ์
    แจกโปรแกรมดูทีวี ดูหนัง ฟังวิทยุ ฟังเพลงออนไลน์ - G2GnetTV On Line ... ฟรีๆๆๆๆ
          ข้อมูลสถานี/รายการ (XML)  ข้อมูลสถานี/รายการ (HTML)
โปรแกรมระบบบัญชี Profit - Account

แจกฟรี Source Code VB6+Access โปรแกรมระบบฐานข้อมูลครุภัณฑ์ ภาคเขียนโปรแกรม

Category »  VB 6/VB.Net
โดย : Webmaster เมื่อ 16/4/2552   เวลา: 12:20
(อ่าน : 254884)/(ตอบ : 134)  ข้อคิดเห็น   |   พิมพ์   |  
พี่น้องครับ ... ลำพังความคิด ความเชื่อ ตามหลักการต่างๆมันยังไม่เพียงพอ มันต้องมีการพิสูจน์ด้วยว่า ตารางข้อมูลที่ได้ออกแบบมานั้น มันมีความถูกต้อง และ แม่นยำจริงหรือไม่อย่างไร แน่นอนครับ ... มันต้องใช้การพิสูจน์ด้วยการลงมือปฏิบัติเท่านั้น และสิ่งที่ผมคิดไว้ และ ทำได้แล้ว ดังนั้น การถ่ายทอดความรู้ไปยังผู้อื่น "ของจริง คือ สื่อที่เข้าใจได้ง่าย และ ดีที่สุด" ... เอาล่ะครับ สำหรับผู้เรียนรู้ในระดับเริ่มต้นย่อมจะมองภาพออกยากมาก ส่วนระดับกลางๆก็พอจะมองออกล่ะว่า มันยุ่งยากลำบาก และ เป็นภาระต่อผู้พัฒนาโปรแกรมมากจนเกินไป พี่น้องครับ ... อย่าลืมว่า ผู้เขียนไม่ได้ใช้ ผู้ใช้ไม่ได้เขียน แต่ผู้เขียนต้องตามใจผู้ใช้งาน ไม่อย่างนั้นแล้วผู้ใช้งานเขา (หรือเธอ) ตามองค์กรต่างๆ จะมีความรู้สึกต่อต้านงานที่เราสร้างมันขึ้นมา ที่เห็นๆชัดเจนเลยก็คือ ผู้ใช้จะหันกลับไปใช้ Excel เก็บข้อมูลอย่างเดิมยังจะดีซ่ะกว่าอีก ... 55555+ ...
ดาวน์โหลด
ดาวน์โหลด Source Code สำหรับ MS Visual Basic 6.0 - Service Pack 6
 ดาวน์โหลด Visual Basic 6.0 SP5: Run-Time Redistribution Pack
 ดาวน์โหลด Microsoft Data Access Object (MDAC) และ Jet 4.0 Update
 ดาวน์โหลด Microsoft Visual Basic Service Pack 6
ข้อมูลเพิ่มเติม
แจกฟรี Source Code VB6+Access โปรแกรมระบบฐานข้อมูลครุภัณฑ์ ภาคตารางข้อมูล
  • การนำข้อมูลจากตารางกริดมาแสดงผล - โปรแกรมย่อย RecordToScreen
    เพิ่มเติม
    • เท่าที่ผมพบเห็นตามหนังสือ ตามเว็บ หรือ โปรแกรมที่ขายในราคาหลักร้อย หลักพัน (หลักหมื่นก็มี) ล้วนแล้วแต่ใช้วิธีการเก็บข้อมูลแบบ Text แทบทั้งสิ้น ในกรณีแบบนี้ ข้อมูลที่แสดงใน ComboBox หากมีค่าซ้ำกัน เขาก็ใช้คำสั่ง SELECT DISTINCTROW เพื่อลดจำนวนการแสดงผล จากนั้นก็จะนำค่าที่เป็น Text เก็บลงตารางหลักไปเลย ... อนึ่ง แม้ว่าเราพัฒนาโปรแกรมขึ้นมา และไม่ได้เป็นคนใช้งานก็ตามที ก็อย่าได้ลืมเรื่องของการ Maintenance ระบบฐานข้อมูล การเพิ่มเติม ปรับปรุงประสิทธิภาพในวันข้างหน้าเอาไว้ด้วย ... ดังนั้นเมื่อพี่น้องได้เข้ามาอ่านบทความนี้แล้ว ก็ต้องใช้วิจารณญาณในการตัดสินใจเลือกเอาเองล่ะกันครับ แบบไหนที่มันมีประสิทธิภาพมากกว่ากัน
    เริ่มต้นกระบวนการทำงาน
    
    ' ส่วนของการนำข้อมูลมาแสดงผล
    Sub RecordToScreen()
    Set RS = New Recordset
        ' นำข้อมูลจากตารางมาแสดงผล
        ' ไม่ต้องมาขยันนั่งพิมพ์เองหรอกครับ 
        ' ไปใช้แบบสอบถาม (Query) ใน MS Access และทำการตัดเข้ามาเลย ...
        Statement = "SELECT tblAsset.AssetPK, tblAsset.AssetID, tblAsset.SerialNumber, " & _
                                " tblAsset.Class, tblAsset.Model, tblAsset.DateReceived, tblAsset.UnitPrice, " & _
                                " tblAsset.Reference, tblAsset.Memo, tblAsset.DateAdded, " & _
                                " tblAsset.DateModified, tblAssetName.AssetName, tblBrandName.BrandName, " & _
                                " tblGroup.GroupName, tblUnit.UnitName, tblSource.SourceName, " & _
                                " tblStatus.StatusName, tblLocation.LocationName " & _
                                " FROM (tblSource INNER JOIN ((tblGroup INNER JOIN " & _
                                " (tblBrandName INNER JOIN (tblAssetName INNER JOIN " & _
                                " (tblUnit INNER JOIN tblAsset ON tblUnit.UnitPK = tblAsset.UnitFK) ON " & _
                                " tblAssetName.AssetNamePK = " & _
                                " tblAsset.AssetNameFK) ON tblBrandName.BrandNamePK = " & _
                                " tblAsset.BrandNameFK) ON tblGroup.GroupNamePK = tblAsset.GroupNameFK) " & _
                                " INNER JOIN tblLocation ON tblAsset.LocationFK = tblLocation.LocationPK) " & _
                                " ON tblSource.SourcePK = tblAsset.SourceFK) INNER JOIN tblStatus ON " & _
                                " tblAsset.StatusFK = tblStatus.StatusPK " & _
                                " WHERE [tblAsset.AssetPK] = " & PK & _
                                " ORDER BY [tblAsset.AssetPK] "
    
            RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
            ' กำหนดการแสดงผลข้อมูลบนหน้าจอ
            txtAssetID.Text = "" & RS("AssetID")
            
            ' ต้องเก็บค่าเดิมของทะเบียนครุภัณฑ์ไว้ก่อน (อ่านรายละเอียดที่ cmdSave_Click)
            ' ใช้เทคนิคง่ายๆ หมูๆ ... เอาค่าใน Text ไปเก็บไว้ในหาง เอ้ย Tag
            ' พี่น้องคงจะได้รู้ประโยชน์ของการใช้งาน Tag แหละคราวนี้ ... ความลับที่ซุกซ่อนใน VB มาแสนนาน
            ' มันมีคุณสมบัติประจำตัว Tag เอาไว้ทำอะไร ... 55555+ ... จุ๊กกรู๊
            txtAssetID.Tag = txtAssetID.Text
            
            ' การโหลดค่าจากตารางย่อย (tblBrandName) เข้าสู่ ComboBox
            ' พิจารณาการเชื่อมโยงตารางยี่ห้อ (tblBrandName)
            ' ไปโปรแกรมย่อยในการโหลดรายการต่างๆของตารางย่อย (Detail) เข้าสู่ ComboBox ค่าที่ส่งไปมี
            ' ชื่อ ComboBox, ชื่อตาราง, ชื่อ Field ที่เป็น Primary Key, ชื่อฟิลด์ที่เป็นรายการ
            Call LoadComboBox( _
                    cmbBrandName, _
                    "tblBrandName", _
                    "BrandNamePK", _
                    "BrandName" _
                    )
                
            ' เอาค่าที่อยู่ในตารางข้อมูล เทียบค่าให้ตรงกันในรายการ (List) ของ ComboBox
            cmbBrandName.Text = RS("BrandName")
            ' ===========================================================================
            
            ' ส่วนอื่นๆ ให้ไปดูที่โค้ดโปรแกรมได้เลย
            ' .........................
            ' .........................
    End Sub
    
    ' Load รายการเข้าสู่ ComboBox ค่าที่ต้องส่งมา 4 ชุด คือ
    ' ชื่อ ComboBox, ชื่อตาราง, ชื่อฟิลด์ Primary Key และ ชื่อฟิลด์รายการ
    Sub LoadComboBox( _
        cmb As ComboBox, _
        tblName As String, _
        FieldPK As String, _
        FieldName As String _
        )
        
        Set DS = New ADODB.Recordset
        SQLStmt = "SELECT * FROM " & tblName & " ORDER BY " & FieldName
        Set DS = ConnDB.Execute(SQLStmt, , adCmdText)
        
        cmb.Clear
    
        Do Until DS.EOF
            cmb.AddItem "" & DS(FieldName)
            DS.MoveNext
        Loop
        DS.Close:    Set DS = Nothing
    End Sub
    
       
  • การค้นหาข้อมูลใน ComboBox - โปรแกรมย่อย SearchComboBox
  • การจำกัดความยาวข้อมูลใน ComboBox - โปรแกรมย่อย MaxComboBox
    
    ' จะอยู่ในเหตุการณ์ของการกดแป้นคีย์บอร์ด
    Private Sub cmbBrandName_KeyPress(KeyAscii As Integer)
        If KeyAscii = vbKeyReturn Then
            KeyAscii = 0
            SendKeys "{TAB}"
        Else
            ' ไปโปรแกรมย่อยในการค้นหาคำใน ComboBox โดยส่งค่าไป 2 ตัว
            ' ชื่อของ ComboBox และ KeyAscii ที่กดลงไป
            Call SearchComboBox(cmbBrandName, KeyAscii)
            
            ' จำกัดความยาวของการพิมพ์คำใน ComboBox
            Call MaxComboBox(cmbBrandName, 80, KeyAscii)
        End If
    End Sub
    
    ' ========================================================= ' โปรแกรมย่อยในการค้นหาคำในรายการของ ComboBox Private Sub SearchComboBox(cmb As ComboBox, KeyAscii As Integer) ' ========================================================= Dim strKey As String, iRet As Long, LenKey As Long cmb.SelText = "" strKey = cmb.Text & Chr$(KeyAscii) iRet = SendMessage(cmb.hWnd, CB_FINDSTRING, -1, ByVal strKey) If iRet <> CB_ERR Then LenKey = Len(strKey) cmb.Text = cmb.List(iRet) cmb.ListIndex = iRet KeyAscii = 0 cmb.SelStart = LenKey cmb.SelLength = Len(cmb.Text) - LenKey End If End Sub ' ========================================================= ' ========================================================= ' ฟังค์ชั่นที่ช่วยจำกัดความยาวข้อมูลสำหรับ ComboBox Private Sub MaxComboBox(cmb As ComboBox, MaxChar As Integer, KeyAscii As Integer) ' ========================================================= If Len(cmb.Text) >= MaxChar Then ' ถ้าหากมีความยาวมากกว่า หรือ เท่ากับที่ได้ตั้งไว้ If KeyAscii <> vbKeyBack Then ' เป็นการกดคีย์ Back Space หรือไม่ KeyAscii = 0 ' ไม่ใช่ให้ถือว่าไม่ได้กดคีย์ใดๆเลย End If End If End Sub ' =========================================================
  • การบันทึกข้อมูล แบ่งออกได้ 2 ลักษณะ คือ
    • การเพิ่มข้อมูลใหม่ ส่วนนี้สาระสำคัญ คือ การหา Primary Key ตัวใหม่ และ AssetID ต้องไม่ไปซ้ำกับของเดิม
    • การแก้ไขข้อมูล สาระสำคัญต้องไม่ให้การแก้ไขแล้ว AssetID มีค่าซ้ำกับของเดิม
    
    Private Sub cmdSave_Click()
        ' ค่า AssetID หรือ ทะเบียนครุภัณฑ์ จำเป็นต้องป้อนเข้ามา
        If Trim(txtAssetID.Text) = "" Or Len(Trim(txtAssetID.Text)) = 0 Then
            MsgBox "กรุณาป้อนทะเบียนครุภัณฑ์ให้เรียบร้อยก่อนด้วย.", vbOKOnly + vbExclamation, "รายงานสถานะ"
            txtAssetID.SetFocus
            Exit Sub
        End If
        '
    ' ตรวจสอบการซ้ำกันของรหัสทะเบียนครุภัณฑ์
    ' =================================================================
    ' มันมีโอกาสเป็นได้ 2 กรณี คือ
    ' เพิ่มข้อมูลใหม่ - ทำให้ txtAssetID.Text จะไม่ตรงกันกับ txtAssetID.Tag (ค่านี้จะต้องว่าง)
    ' แก้ไขข้อมูล - มีโอกาสได้ 2 ทาง คือ
    '      1. ไม่มีการแก้ไขค่าใน txtAssetdID.Text จะทำให้ txtAssetID.Text = txtAssetID.Tag
    '           ดังนั้นไม่ต้องไปเสียเวลาทำการเปรียบเทียบค่าเดิมในฐานข้อมูล
    '      2. มีการแก้ไขค่าใน txtAssetID.Text ดังนั้น txtAssetID.Text <> txtAssetID.Tag ทำให้
    '          ต้องนำค่าไปตรวจสอบว่ามีค่า txtAssetID.Text (ที่เปลี่ยนไป) ไปซ้ำกับค่าเดิมในฐานข้อมูลหรือไม่
    ' เขียน VB มานับ 10 ปี ... เทคนิคง่ายๆนี้ ผมก็ยังใช้งานได้ไม่เปลี่ยนแปลงทั้ง VB6 หรือ VB.Net
    ' =================================================================
    If txtAssetID.Text <> txtAssetID.Tag Then
        If CheckNewCode > 0 Then
            MsgBox "มีทะเบียนครุภัณฑ์: " & Trim(txtAssetID.Text) & " เรียบร้อยแล้ว กรุณาแก้ไขใหม่ด้วย.", _
                                vbOKOnly + vbExclamation, "รายงานสถานะ"
            txtAssetID.SetFocus
            Exit Sub
        End If
    End If
    ' ================================
    ' ไปบันทึกข้อมูลได้เลย
    Call SaveData
    ' ================================
    End Sub
    
    ' =================================================================
    ' ฟังค์ชั่นตรวจสอบการซ้ำกันของทะเบียนครุภัณฑ์ (หรืออื่นๆ) กรณีข้อมูลเป็น Text
    ' จากนั้นส่งค่ากลับ หากเป็น 0 แสดงว่าไปไม่เกิดการซ้ำกันของข้อมูล
    ' ค่าส่งกลับมากกว่า 0 ... เกิดการซ้ำกัน จะต้องบังคับไม่สามารถเพิ่ม หรือ แก้ไขข้อมูลได้
    ' =================================================================
    Function CheckNewCode() As Long
        Set DS = New Recordset
        SQLStmt = "SELECT * FROM tblAsset  WHERE [AssetID] = " & "'" & Trim(txtAssetID.Text) & "'" & _
                                " ORDER BY [AssetPK] "
        
        ' หากไม่ระบุเป็น adUseClient จะใช้ค่าเดิมที่ตั้งต้น (Default) เป็นแบบ adUseServer
        ' การใช้แบบ adUseClient เพื่อต้องการให้ใช้เมธอดของการนับ Record ได้ นั่นคือ
        ' DS.RecordCount
        DS.CursorLocation = adUseClient
        DS.Open SQLStmt, ConnDB, adOpenForwardOnly,adLockReadOnly, adCmdText
        CheckNewCode = DS.RecordCount
        DS.Close:    Set DS = Nothing
    End Function
    
    ' =================================================================
    ' โปรแกรมย่อยในการบันทึกข้อมูล ไม่ว่าจะเป็นการเพิ่ม หรือ การแก้ไขข้อมูล
    ' =================================================================
    Private Sub SaveData()
    Set RS = New Recordset
        ' มันเป็นเทคนิคของการลดจำนวนโค้ดลง ผมใช้มานับ 10 ปีแล้ว ... ไม่เปลี่ยน
        ' กรณีเป็นการเพิ่มข้อมูลใหม่
        If NewData  Then
            ' ค้นหาค่า PK ก่อน
            Call SetupNewData
            '
            Statement = "SELECT * FROM tblAsset ORDER BY AssetPK"
            RS.Open Statement, ConnDB, adOpenKeyset, adLockOptimistic, adCmdText
            ' ผมมันติด AddNew มาตั้งแต่ใช้ DAO แล้วครับ ... ส่วนนี้คือการใช้ INSERT น่ะครับ
            RS.AddNew
            RS("AssetPK") = PK
            RS("DateAdded") = FormatDateTime(Now(), vbShortDate)
            RS("DateModified") = FormatDateTime(Now, vbShortDate)
        '========== แก้ไขข้อมูล ============
        Else
            '
            Statement = "SELECT * FROM tblAsset WHERE AssetPK = " & PK
            RS.Open Statement, ConnDB, adOpenKeyset, adLockOptimistic, adCmdText
        End If
        ' กรณีของ Text เพื่อป้องกันค่าว่าง ให้ใส่เครื่องหมาย Double Quote ไว้ด้านหน้าของ TextBox เสมอ
        RS("AssetID") = "" & Trim(txtAssetID.Text)
        RS("SerialNumber") = "" & Trim(txtSerialNumber.Text)
        RS("Model") = "" & Trim(txtModel.Text)
        RS("Class") = "" & Trim(txtClass.Text)
        '
        ' ตรวจสอบค่าใน ComboBox
        ' ยี่ห้อ - BrandName
        ' ชื่อครุภัณฑ์ โดยการส่งค่าไปตรวจสอบหาค่า Primary Key ของตารางย่อย (Detail) ค่าที่ส่งไป มี
        ' ชื่อ ComboBox, ชื่อตาราง, Field ที่เป็น PK, Field ที่เป็นรายการ (ค่าที่ต้องทดสอบหา Primary Key)
        ' ค่าที่ส่งกลับมาจะเป็น Primary Key ของแต่ละตารางย่อยนั่นเอง
        ' และ Primary Key ตัวนี้ก็คือ Foreign Key ในตารางหลัก (tblAsset)
        ' อย่างที่ได้บอกไปตอนออกแบบข้อมูล เราจะเก็บค่า Foreign Key (BrandNameKF) นี้ลงในตารางหลักเท่านั้น
        RS("BrandNameFK") = VerifyComboBox( _
                                                            cmbBrandName, _
                                                            "tblBrandName", _
                                                            "BrandNamePK", _
                                                            "BrandName" _
                                                            )
        ' กรณีของ ComboBox ตัวอื่นๆก็เช่นเดียวกัน ดูได้จากโค้ดโปรแกรมจริงๆ
        ' ........................
        ' ........................
        RS.Update
        RS.Close: Set RS = Nothing
        '
        NewData = False
        ' ส่งค่าไปบอกฟอร์มหลักให้ Refresh
        FormUpdate = True
        MsgBox "บันทึกข้อมูลเรียบร้อย", vbOKOnly + vbInformation, "รายงานสถานะ"
        Unload Me
        
    End Sub
    
    ' ===================== สร้าง Record ใหม่ ==========================
    ' ต้องคำนวณหาค่า Primary Key ให้เรียบร้อยก่อน
    Sub SetupNewData()
    ' ==========================================================
    Dim Rec As Long
    Set DS = New Recordset
        ' นำข้อมูลจากตารางมาคำนวณหาค่า Primary Key สูงสุด
        SQLStmt = "SELECT Max(tblAsset.AssetPK) As MaxPK FROM tblAsset "
        ' กรณีการอ่านข้อมูลต้องใช้ adOpenForwardOnly คู่กับ adLockReadOnly เสมอ เพื่อการอ่านข้อมูลได้เร็วกว่า
        DS.Open SQLStmt, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
        ' ตัวแปร PK เป็นตัวแปรแบบ Public มองเห็นได้ทั่วทั้งฟอร์มนี้
        PK = DS("MaxPK") + 1
        DS.Close: Set DS = Nothing
    End Sub
    
    ' ==========================================================
    ' ฟังค์ชั่นที่ใช้ในการตรวจสอบค่าที่อยู่ใน ComboBox เพื่อค้นหาค่า Primary Key ในตารางย่อย
    ' หากหาข้อมูลไม่พบ ก็สามารถบันทึกค่าที่คีย์เข้าไปใหม่ได้เลย โดยไม่จำเป็นต้องออกไปเพิ่มข้อมูลใหม่แต่อย่างใด
    ' ==========================================================
    Function VerifyComboBox( _
        cmb As ComboBox, _
        tblName As String, _
        FieldPK As String, _
        FieldName As String _
        ) As Integer
    
    Dim CountRec As Integer    ' ไว้นับจำนวนของตารางย่อย
        ' ตรวจสอบว่ามีการป้อนข้อมูลหรือไม่ หากไม่มีให้กำหนดค่า Default เป็น 0
        ' จากนั้น Return ค่ากลับ และออกจากฟังค์ชั่นไปเลยครับพี่น้อง ... เพื่อเป็นการไม่เสียเวลา
        If cmb.Text = "" Or Len(cmb.Text) = 0 Or cmb.Text = "-" Then
            VerifyComboBox = 0
            Exit Function
        End If
        
        Set DS = New Recordset
        SQLStmt = "SELECT * FROM " & tblName & " WHERE [" & FieldName & "] = " _
                            & "'" & Trim(cmb.Text) & "'" & _
                            " ORDER BY " & FieldPK
        ' ======================================================================
        ' หลายคนมักทำผิด และมองข้ามมันไป สำหรับการเขียน SQL Statement
        ' SQL Statement ... การค้นหาค่าโดยการเปรียบเทียบกับข้อมูลชนิดข้อความ Text หรือ String
        ' SELECT * FROM ... WHERE [ฟิลด์แบบข้อความ] = '1020' ... (อ่านว่า หนึ่ง ศูนย์ สอง ศูนย์)
        ' เวลาเขียน Statement จะต้องเขียนค่าที่นำมาเปรียบเทียบให้อยู่ภายใต้เครื่องหมาย Single Quote (') เช่น
        ' "SELECT * FROM ... WHERE [AssetID] = " & "'" & txtAssetID.Text & "'" ... จดจำรูปแบบนี้ให้ดี
        ' ส่วนกรณีของตัวเลขไม่ต้องมีเครื่องหมาย Single Quote เช่น
        ' SELECT * FROM ... WHERE AssetPK = 1020 (อ่านว่า หนึ่งพันยี่สิบ) เช่น
        ' "SELECT * FROM ... WHERE [AssetPK] = " & txtAssetPK.Text
        ' ======================================================================
        
        DS.CursorLocation = adUseClient
        DS.Open SQLStmt, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
        CountRec = DS.RecordCount
        
        ' แสดงว่าไม่มีในรายการ ดังนั้นเราต้องเพิ่มรายการเข้าไปใหม่ในตารางย่อย
        If CountRec <= 0 Then
            Set DS = New Recordset
            SQLStmt = "SELECT Max(" & tblName & "." & FieldPK & ") As MaxPK " & " FROM " & tblName
            DS.CursorLocation = adUseClient
            DS.Open SQLStmt, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
            ' เพิ่มค่า Primary Key ของตารางย่อย (Detail) ขึ้นอีก 1
            CountRec = DS("MaxPK") + 1
            
            ' การที่ผมไม่สั่งปิดตารางข้อมูล DS.Close ก็เพราะคำสั่ง Set DS = New Recordset
            ' มันจะตัดการชื่อมต่อเดิมออกไปในทันทีได้เลยครับ ... ไม่ต้องห่วง
            Set DS = New Recordset
            SQLStmt = "SELECT * FROM " & tblName & " ORDER BY " & FieldPK
            ' การบันทึกข้อมูล จะใช้ adOpenKeyset คู่กับ adLockOptimistic เสมอครับ
            DS.Open SQLStmt, ConnDB, adOpenKeyset, adLockOptimistic, adCmdText
            ' ผมมันติด AddNew มาตั้งแต่ใช้ DAO แล้วครับ ... ส่วนนี้คือการใช้ INSERT น่ะครับ
            DS.AddNew
            DS(FieldPK) = CountRec
            DS(FieldName) = cmb.Text
            DS.Update
            ' ส่งค่า PK กลับไปเพื่อบันทึกข้อมูล
            VerifyComboBox = CountRec
            
        ' มีข้อมูลเดิมอยู่แล้ว
        Else
            ' ส่งค่า PK กลับไปเพื่อบันทึกข้อมูล
            VerifyComboBox = DS(FieldPK)
        End If
        DS.Close:    Set DS = Nothing
    End Function
    
    ' เคลียร์ข้อมูลต่างๆใหม่
    Sub SetupScreen()
        ' ============= เสริมเทคนิคการเคลียร์ค่าต่างๆของ Control ในฟอร์ม ==============
        Dim Ctl As Control
        ' สำหรับ Control ทุกๆตัวที่วางแปะลงบน Form
        For Each Ctl In Me
            ' ถ้า Control ตัวนั้นมันเป็น TextBox ก็ทำการใส่ค่าว่างให้มันซ่ะ
            If TypeOf Ctl Is TextBox Then Ctl.Text = ""
            ' ถ้า Control ตัวนั้นมันเป็น ComboBox ก็ทำการเคลียร์ค่าว่างให้มันซ่ะ
            If TypeOf Ctl Is ComboBox Then Ctl.Clear
        Next ' Control ตัวถัดไป
    End Sub
    
    Conclusion:
    ผมก็คาดหวังเล็กๆว่า คงพอที่จะทำให้พี่น้องหลายท่านได้แนวคิด ได้มุมมองแปลกๆ ใหม่ๆ เอาไว้ในอ้อมกอด อ้อมใจ กันบ้างพอสมควรน่ะครับ ผมตระหนักดีว่าแค่การสร้างความสัมพันธ์ของตารางข้อมูลแบบ 1 : 1 เนี่ย พอมาลงโค้ดจริงๆมันก็วุ่นวายกันพอสมควรแล้ว (บางคนอาจจะบอกว่ามันยากไปซ่ะด้วยซ้ำ) รอบหน้าผมจะเอาตัวอย่างงานจริงของการเบิกจ่ายวัสดุสิ้นเปลืองมาเป็นแนวทางให้ชม แน่นอนว่ามันจะต้องเป็นลักษณะของความสัมพันธ์แบบ 1 : M ... อย่าพึ่งท้อกันก่อนล่ะครับ ... พี่น้อง

  • ร่วมแสดงความคิดเห็น

    [ความเห็นที่:  1] จากคุณ : Mr.Den เมื่อ 20/4/2552 16:37:11  IP: 58.9.178.201

    เยี่ยมยอดมากครับ.
    ขอบคุณมากครับท่านอาจารย์

    หนุ่มน้อย

    [ความเห็นที่:  2] จากคุณ : ctx-9000 เมื่อ 22/4/2552 19:39:19  IP: 124.157.231.64

    ปลายเดือนนี้ พบกับ Sample Active Report ภาค Business Document ในตอน รายงานประกันสังคม เอิ๊กๆ  

    ติดตามหาประสบการณ์ ความรู้และ ให้กำลังใจเสมอครับ

    [ความเห็นที่:  3] จากคุณ : ทองก้อน เมื่อ 24/4/2552 15:34:15

    สองคนเนี่ยขาประจำจริงๆ ต้องแย่งกันเข้ามาเม้นท์ให้ก่อนเลยน่ะ ... เอิ๊กๆๆๆๆ

    ctx-9000 ... กรุณาติดต่อลูกค้าที่ผมส่งให้ไปด้วยครับ เขาสนใจให้ทำพิมพ์ใบกำกับภาษี อย่างน้อยๆก็ได้ค่าโรงแรม เอ้ย ... ค่าเหล้าแหละ (ไว้ให้เมียนับขวดไงล่ะ ... 55555+) ... เขียนเสร็จสมบูรณ์ก็ทำขายสำเร็จรูปตัวละสัก 5-600 กล้อมๆแกล้มๆไป พอให้เมียได้ทุนไปเล่นป็อกเด้ง 55555+ ... เดี๋ยวจัดหน้าเว็บไว้ให้ขายโดยเฉพาะ ... ไม่แน่เดี๋ยวขายดิบขายดีขึ้นมา สามารถส่งเด็กเรียนมหาลัยได้อีกน่ะ มันเป็นบุญ เป็นกุศล อย่างมากมาย ... เชื่อพี่เหอะน้อง ... เอิ๊กๆๆๆๆ

    [ความเห็นที่:  4] จากคุณ : DG เมื่อ 29/4/2552 17:16:49  IP: 202.176.91.17

    ไม่เห็นมีในส่วนของการแก้ไขเลยค่ะ อยากได้มากๆเลยค่ะ 
    ถ้าได้จะขอบพระคุณมากเลยนะค่ะ ถ้าส่งเข้า mail ให้ด้วยก็ยิ่งดีใหญ่เลยค่ะ
    รบกวนด้วยนะค่ะ ขอบคุณค่ะ

    [ความเห็นที่:  5] จากคุณ : DG เมื่อ 29/4/2552 17:18:16  IP: 202.176.91.17

    ลืมให้ mail ค่ะ D_daw08@hotmail.com ต้องการด่วนค่ะ

    [ความเห็นที่:  6] จากคุณ : devman เมื่อ 5/5/2552 23:17:31  IP: 125.25.141.74

    ไม่ได้แวะมานาน ยังยอดเยี่ยมเหมือนเดิมครับ

    เยี่ยมครับ ถึงจะไม่ได้ใช้เพื่อนรัก vb6 อย่างเดิมแล้ว

    แต่ก็ยังชอบ style การเขียนคุณทองก้อน นะครับ กันเอง..แต่มืออาชีพ

    [ความเห็นที่:  7] จากคุณ : dba2012 เมื่อ 7/5/2552 11:35:54  IP: 117.47.182.39

    ดาวน์โหลด Source Code VB6+Access โปรแกรมระบบับฐานข้อมูลครุภัณฑ์ จากตรงไหนคับ

    [ความเห็นที่:  8] จากคุณ : Mr.Den เมื่อ 7/5/2552 12:56:50  IP: 58.9.100.188

    สมัครเข้าเป็นสมาชิกก่อนครับตามนี้
    http://www.g2gnet.com/Forum/registration_rules.asp?FID=0&SID=c874zfze63b5z51e72b7ea61bdeb523z

    แล้วก็ดาวน์โหลดที่ว่าก็ตามนี้เลยครับ.
    http://www.g2gnet.com/Forum/forum_posts.asp?TID=180

    ผิดพลาดต้องขออภัย.

    [ความเห็นที่:  9] จากคุณ : อาร์ต เมื่อ 22/5/2552 13:13:10  IP: 124.157.245.118

    ถ้าหากฐานข้อมูลผมใส่ password ล่ะครับ
    ต้องแก้ไงยังครับ
    ผมติดตรงนี้ล่ะครับ

    [ความเห็นที่:  10] จากคุณ : buddyman เมื่อ 28/5/2552 12:57:31  IP: 202.12.73.18

    เวลา์หาข้อมูลใน Combo Box กรณีที่ไม่มีข้อมูลใน Combo (ภาษาไทยนะครับ)ต้องการไม่ให้พิมพ์ได้ สามารถทำได้ไหมครับ ภาษาอังกฤษผมทำได้แล้ว แต่ภาษาไทยยังมีปัญหาเรื่อง สระ นะครับ
             ขอบคุณมากครับ

    [ความเห็นที่:  11] จากคุณ : hs9caf เมื่อ 21/6/2552 16:53:37  IP: 118.173.232.40

    ผมชอบเวฟของคุณท้องก้อนมากครับที่ให้ความรู้แก่บุคคลที่ไม่มีความสามารถที่จะได้เรียนรู้สิ่งดีๆอย่างนี้จากเวฟอื่นๆ(นี่ถ้าผมพอมีเงินสักก้อนจะสนับสนุนเวฟของคุณทองก้อนเพื่อคงอยู่นานๆเพื่อประโยชน์แก่มวลมนุษย์ ฮิ..........ฮิ)และอยากรบกวนคุณทองก้อนพยายามอธิบายโค๊ดตัวแปลกๆแต่ละบรรทัดด้วยบางที่ก็ไม่เข้าใจ เช่น     While Mid$(txtFilePath, i, 1) ไอ้ตัว $ มันแทนอะไร หรือ ! ที่อยู่หลังตัวแปรมันแทนอะไร หรือ   If Trim(txtAssetID.Text) Trim มันคืออะไร   หรือ  If Right$(DB_File, 1) <> "\" Then DB_File = DB_File & "\"
        DB_File = DB_File & "AssetDB.MDB"  และไอ้ตัวนี้ Right$ มันคืออะไร (และรบกวนช่วยอธิบายคำสั่งชุดนี้ว่ามันทำงานอย่างไร) ไงก็ยกตัวอย่างมาแล้วก็ช่วยอธิบายให้ด้วยนะคุณทองก้อน ผมคิดว่าหลายๆท่านก็อยากจะรู้เหมือนผมครับ ขอบคุณล่วงหน้าครับ

    [ความเห็นที่:  12] จากคุณ : เด็กคอม เมื่อ 20/7/2552 13:44:57  IP: 117.47.152.195

    หนูอยากได้ตัวอย่างชิ้นงานที่นำMs-Accessไปใช้งาน
    หาให้หน่อยนะคะ please.......♥

    [ความเห็นที่:  13] จากคุณ : nong เมื่อ 7/8/2552 15:52:29  IP: 203.153.166.174

    คุณเก่งจัง แต่อยากได้ระบบลงทะเบียนเรียนพอจะได้ไหมค่ะ พอดีทำโปรเจกจบอยู่ ถ้าได้กรุณาส่ง code มาที่ pakiranum98@hotmail.com นะค่ะ ขอบพระคุณเป็นอย่างสูง

    [ความเห็นที่:  14] จากคุณ : Nibusaj เมื่อ 8/8/2552 10:51:29  IP: 58.136.78.112

    หวัดดี ครับ
         ผมขอคำแนะนำ หรือ  Code ที่จะช่วยในการใช้ Active Report คือผมมี project ในการทำงานออก report แบบนี้ ครับ
       ข้อมูลสินค้า  โดยมี Filed ที่เป็นรูปภาพสินค้า เก็บเป็นPath+ชื่อไฟล์ ของรูปภาพไว้ ส่วนรูปภาพจริงเก็บไว้ใน Folder อันหนึ่ง
      ผมอยากให้ Report ที่ออกมาแสดงรูปภาพออกมาด้วยในแต่ละรายการ รวมทั้งข้อมูลอื่นด้วย
    ปัญหาคือ รูปภาพ ไม่รู้จะทำอย่างไร... ผมใช้ DAO ครับ

        ผู้รู้ทุกท่านช่วยแนะนำด้วยครับ

    ขอบคุณ ครับ

    nibusaj

    jasubin@hotmail.com

    [ความเห็นที่:  15] จากคุณ : เตย เมื่อ 9/9/2552 13:16:22  IP: 58.147.41.194

    ขอบคุณมากสำหรับ code ที่มีไว้ศึกษา

    [ความเห็นที่:  16] จากคุณ : มือใหม่ เมื่อ 13/9/2552 15:41:22  IP: 61.19.77.38

    ดีมากเลย...สำหรับการอธิบายอย่างละเอียด และมี Code มาให้เสร็จสรรพ สุดยอดจริง++

    [ความเห็นที่:  17] จากคุณ : zamza79 เมื่อ 15/9/2552 14:55:09  IP: 58.137.131.62

    ขอบคุณคับ ขอให้รวยรวยนะ

    [ความเห็นที่:  18] จากคุณ : porn เมื่อ 21/9/2552 14:03:59  IP: 58.9.64.20

    ขอบคุณมากๆคะ

    [ความเห็นที่:  19] จากคุณ : I"m Pond พึ่งหัด VB6.0 เมื่อ 23/9/2552 0:33:43  IP: 117.47.183.51

    ขอบคุณมากๆครับ ได้ความรู้เพิ่มขึ้นอีก ^____^

    [ความเห็นที่:  20] จากคุณ : QDpro เมื่อ 22/10/2552 21:08:24  IP: 58.147.83.2

    รู้สึก เสียใจ ...ที่หลงทางไป ไกล แสน ไกล  มากครับ เกือบปีแล้วที่ผม ห่างไป  
    กลับมาอีกครั้ง กับ ความตั้งใจใหม่ เริ่มต้นไหม หวังว่าคงไม่สายเกินไป นะครับ

    [ความเห็นที่:  21] จากคุณ : นิน่า เมื่อ 9/11/2552 10:41:29  IP: 117.47.229.96

    ขอบคุณมากสำหรับโค๊ดเจ๋ง ๆๆๆมากกกกกกก

    [ความเห็นที่:  22] จากคุณ : megaman39 เมื่อ 5/12/2552 20:12:09  IP: 61.90.117.196

    ยอดเยี่ยม 
    เผลอไปเล่น 2008 พักเดียวไม่สนุก 
    กลับมาเล่น vb6 เหมือนเดิมดีกว่า
    vb6 return ....
    vb6 never die

    [ความเห็นที่:  23] จากคุณ : oiljung เมื่อ 8/12/2552 0:32:21  IP: 202.176.117.66

    เคยเรียนค่ะ เจ้า VB เนี้ย
    แต่ไม่เคยเข้าใจเลย
    ตอนนี้กำลังทำโปรเจคจบ
    เสนอหัวข้อไปแล้ว เป็นโปรแกรมตรวจนับสินทรัพ
    ตรวจนับด้วยบาร์โค้ด
    เขียนด้วย PHP ใช้ฐานข้อมูล SQL
    เข้าถึงข้อมูลผ่าน IE เพื่อความสะดวกสบาย
    ปัญหาคือ หน้าเว็บพอเขียนได้ แต่ติดต่อฐานข้อมูลไม่เข้าใจ ไม่สามารถ
    พอจะแนะนำได้ไหมค่ะ อยากจบเทอมนี้ ผ่านมาครึ่งเทอมแล้ว
    เริ่มหายใจไม่ทั่วท้อง
    ขอบคุณล่วงหน้าค่ะ
    kawai4921405068@hotmail.com

    [ความเห็นที่:  24] จากคุณ : ทองก้อน เมื่อ 8/12/2552 9:37:23

    การนำเสนอโปรเจคของนักศึกษาส่วนใหญ่ มักจะเสนอแบบขอไปที คือให้มันผ่านการพิจารณาไปก่อน แล้วค่อยว่ากันใหม่ ปัญหาก็จะเกิดตามหลังมาทุกทีซิน่า ... ก่อนอื่นก็ต้องดูจากพื้นความรู้ ความเข้าใจของเราเองด้วย โดยการศึกษาหารายละเอียดต่างๆให้ดีเสียก่อน จากนั้นต้องร่างลงกระดาษ แยกเป็นหัวข้อหลักๆ จากหัวข้อหลักให้แบ่งเป็นหัวข้อย่อยลงไป เพื่อปรับเปลี่ยนรายละเอียด และ คุณก็จะสามารถมองเห็นตัวตนชิ้นงานของคุณเองได้ ... ส่วนนี้คือการฝึกทำ Proposal ซึ่งในวันข้างหน้าเราอาจต้องใช้ในการนำเสนอข้อมูลให้กับลูกค้าต่อไป

    สิ่งที่สำคัญอย่าลืมว่า ... สำหรับนักศึกษา (เตรียม) จบใหม่ งานโปรเจคที่เราทำนี่แหละ จะต้องนำไปใช้ในการสัมภาษณ์เข้าทำงานเสมอครับ ... มันวัดกันได้โดยไม่ยากเลย

    [ความเห็นที่:  25] จากคุณ : วรัญญา เมื่อ 21/12/2552 8:47:10  IP: 125.25.197.223

    จะทำโปรเจค เกี่ยวกับระบบฐานข้อมูลในการบริการห้องปฏิบัติการภาษาอังกฤษ แต่ไม่มีใครสอนทำและออกแบบยังไม่ได้เลย บอกแนวหน่อยได้เปล่าค่ะ ใช้ vb6 นะค่ะงัยก็ส่งมาทางเมลล์ให้หน่อยนะค่ะ oid-2530@windowslive.com ขอบคุณมากค่ะ

    [ความเห็นที่:  26] จากคุณ : nuneem เมื่อ 6/1/2553 15:18:56  IP: 115.67.26.166

    ช่วยด้วยค่ะ   
    ใครที่เก่ง vb 6.0  คุณการหน่อยได้ไหม
    คือว่าตอนนี้ทำโปรเจ็คจบอ่ะค่ะเกี่ยวกับระบบขายสินค้า ใช้ Vb6.0 กับฐานข้อมูลเป็น Access อยากได้ที่ปรึกษาเพราะว่าไม่รู้จาถามใครได้  ถ้าใครเคยทำเเละมีโค้ดอ่ะไรที่อยากเเนะนำก้อติดต่อเข้ามาได้เลย
    ถ้าใครพอมีเวลาว่างเเละน้ำใจอยากให้ติดต่อ ที่ neem_narak@hotmail.com

    ขอบคุณล่วงหน้าค่ะ  ต้องการด่วน

    [ความเห็นที่:  27] จากคุณ : Napster เมื่อ 8/1/2553 19:08:30  IP: 124.122.161.49

    สุดยอดมากเลยครับ...

    [ความเห็นที่:  28] จากคุณ : พิงค์ เมื่อ 10/1/2553 0:03:23  IP: 180.183.84.44

    ขอบคุณนะค่ะ

    [ความเห็นที่:  29] จากคุณ : นู๋โฟม เมื่อ 20/1/2553 16:22:43  IP: 180.183.56.191

    เยี่ยมมากเลยค่ะ ตอนนี้กะลังทำดปรเจค RFID บันทึกเวลาเข้าเรียนอ่ะค่ะ

    กะลังเครียดเลยค่ะ เพราะมะรุ้จาเริ่มยังไง จาต้องจบให้ทันเทอมนี้ด้วยค่ะ

    ถ้ามีไรแนะนำ กรุณาช่วยส่งไปยัง fome_sk6_zaa@hotmail.com นะคะ

    [ความเห็นที่:  30] จากคุณ : ตัวเล็ก เมื่อ 26/1/2553 16:30:10  IP: 202.176.91.135

    อ่าดีมากอ่ะครับ

    ตอนนี้กำลังทำโปรเจ็คจบอยู่อ่าครับ

    ได้หัวข้อ ระบบลงทะเบียนเรียน

    มีส่วนของเจ้าหน้าที่ทำการลงทะเบียน แก้ไข เพิ่มเติม
    และมีการคำนวณเกราดได้รวมทั้งเกรดเฉลี่ยด้วย

    ส่วนของนักศึกษาสามารถตรวจเชคได้ว่าลงทะเบียนวิชาอะไรไปบ้าง
    แก้ไขไม่ได้ดูได้อย่างเดียว

    ใครเก่งAccess ช่วยทีนะครับ

    หัวปั่นมาหลายอาทิดแล้วอ่าครับจวนจะจบแล้วด้วย

    เมลผมนะครับaunmanking02@hotmail.com


    [ความเห็นที่:  31] จากคุณ : ชะเอม เมื่อ 27/1/2553 20:59:12  IP: 118.174.114.107

    ช่วยด้วย!!!!!

    ขอโปรเจ็ค vb6 หน่อยดิระบบอารัยก้อด้าย

    ใกล้ส่งแล้วอ่ะ

    ช่วยด้วย!!!!!

    ส่งมาที่เมลนะ eam_juku@hotmail.com

    [ความเห็นที่:  32] จากคุณ : อ๊อด เมื่อ 30/1/2553 16:39:08  IP: 124.120.120.169

    ขอบคุณนะครับ

    ช่วยได้เยอะเลย

    [ความเห็นที่:  33] จากคุณ : lerm เมื่อ 8/2/2553 3:49:43  IP: 112.142.225.219

    สุดยอดมากคับ ขอบคุณมาก
    ผมทำที่ผ่านมา มันมีหยุด (เพราะทำต่อไม่ได้) ไม่เข้าใจนะคับ
    แต่ส่วนนี้ผมคงคิดว่าผมคงพอจะพยายามทำตามให้ได้

    [ความเห็นที่:  34] จากคุณ : ทิพวรรณ เมื่อ 9/2/2553 1:53:03  IP: 124.120.239.137

    อยากให้มีตัวอย่างระบบฐานข้อมูลสวัสดิการพยาบาล
    รีบมาก จะส่งงานแล้วยังไม่เสร็จเลย

    [ความเห็นที่:  35] จากคุณ : oiljung เมื่อ 22/2/2553 9:52:35  IP: 115.67.224.82

    เคยเรียนค่ะ เจ้า VB เนี้ย
    แต่ไม่เคยเข้าใจเลย
    ตอนนี้กำลังทำโปรเจคจบ
    เสนอหัวข้อไปแล้ว เป็นโปรแกรมตรวจนับสินทรัพ
    ตรวจนับด้วยบาร์โค้ด
    เขียนด้วย PHP ใช้ฐานข้อมูล SQL
    เข้าถึงข้อมูลผ่าน IE เพื่อความสะดวกสบาย
    ปัญหาคือ หน้าเว็บพอเขียนได้ แต่ติดต่อฐานข้อมูลไม่เข้าใจ ไม่สามารถ
    พอจะแนะนำได้ไหมค่ะ อยากจบเทอมนี้ ผ่านมาครึ่งเทอมแล้ว
    เริ่มหายใจไม่ทั่วท้อง
    ขอบคุณล่วงหน้าค่ะ
    kawai4921405068@hotmail.com

    ระบบนี้ไม่ผ่าน
    เปลี่ยนเป็น ระบบการจองห้องพักออนไลน์
    อันนี้หนักเหมือนกาน ตอนนี้ต้องไปลงรักษาสภาพการเป็นนักศึกษาแล้ว
    แม่เจ้า ไม่คิดไม่ฝัน 
    หัวข้อผ่านแล้วเหลือสอบหัวข้อ
    คงไม่เกินความสามารถ แต่ตัวโปรแกรมสิ ต้องกระอักแน่ๆ
    แนะนำด้วยน่ะค่ะ เป็นกำลังใจก็ยังดี 555
    เด็กไทยจงเจริญ

    [ความเห็นที่:  36] จากคุณ : praad เมื่อ 23/2/2553 16:18:42  IP: 203.172.177.10

    ยอดเยี่ยมมากครับ

    [ความเห็นที่:  37] จากคุณ : nana เมื่อ 25/2/2553 16:13:21  IP: 61.7.143.184

    คุณทองก้อน ติดต่อกลับด่วนที่ nana_0828@hotmail.com

    [ความเห็นที่:  38] จากคุณ : คมสันติ์ เมื่อ 26/2/2553 11:15:05  IP: 118.175.22.100

    ขอความกรุณาเอาโปรแกรมนี้ไปดูเป็นต้นแบบจะได้ไหมครับ
    จะได้เอาไปศึกษาต่อครับ ขอบคุณ

    [ความเห็นที่:  39] จากคุณ : ทองก้อน เมื่อ 26/2/2553 12:30:18

    ด้วยความยินดีครับ ... หากนำไปเผยแพร่ให้เยอะๆ และ ที่สำคัญ หากนำไปพัฒนาให้ดีขึ้น และ นำมาเผยแพร่ต่อๆกันไป ... ผมจะซาบซึ้งในชีวิต จิตใจ มากๆๆๆๆๆๆๆๆๆๆๆๆ

    [ความเห็นที่:  40] จากคุณ : krit เมื่อ 5/3/2553 15:36:33  IP: 114.128.28.171

    ผู้รู้ครับ ผลงานของคุณสุดยอดมาก ที่ผมชอบและอยากนำไปดัดแปลงคือโปรแกรมระบบฐานข้อมูลครุภัณฑ์ แต่ผมไม่เข้าใจโค๊ต ผมรู้สึกงงมากเลยครับ แล้วมันไปเชื่อมกับMS Accessยิ่งงงเข้าไปใหญ่
    พอจะมีโปรแกรมแบบนี้แต่เพ่มรูปภาพเข้าไปไหมครับ และถ้าผู้รู้จะกรุณาผมขอโค๊ตที่มันเขียนง่ายกว่านี้ได้ไหมครับ ขอความกรุณาด้วยนะครับ ผมงงไม่รู้จะนำไปดัดแปลงยังไงเลยครับ
    ขอบคุณล่วงหน้านะครับ

    [ความเห็นที่:  41] จากคุณ : คนบ้างาน เมื่อ 15/3/2553 11:37:29  IP: 125.27.149.90

    อยากได้โปรแกรมทะเบียนครุภัณฑ์นี้มาก เพราะคิดว่าน่าจะช่วยงาน
    ที่เพิ่งได้รับมอบหมายมา  ปวดหัวมากเลย
    ต้องทำอย่างไรบ้างค่ะ
                ขอบคุณล่วงหน้านะค่ะ

    [ความเห็นที่:  42] จากคุณ : พี เมื่อ 10/5/2553 8:53:27  IP: 124.120.218.139

    ขอบคุณสำหรับโค๊ดดีๆ ผมจะได้นำเอาไปลองเก็บข้อมูลทรัพย์สินของออฟิคได้นะครับ 

    [ความเห็นที่:  43] จากคุณ : oooooo เมื่อ 19/5/2553 15:39:24  IP: 58.147.83.55

    ขอบพระคุณมากๆๆๆคะเป็นประโยชน์มากเลย

    [ความเห็นที่:  44] จากคุณ : K.MR เมื่อ 24/5/2553 13:43:55  IP: 117.47.119.80

    ขอบคุณมาก จากใจเพื่อนๆ

    [ความเห็นที่:  45] จากคุณ : rut เมื่อ 30/5/2553 12:22:19  IP: 117.47.191.208

    โชคดีมากที่ได้ Sourec code มาประยุกใช้งาน ขอบคุณทางเจ้าหน้าที่ของ g2gnet ทุกท่านที่มอบสิ่งดีๆให้แก่สังคม

    [ความเห็นที่:  46] จากคุณ : rut เมื่อ 30/5/2553 12:25:21  IP: 117.47.191.208

    อยากสอบถามข้อมูลเพิ่มเติมได้ที่ไหนครับ

    [ความเห็นที่:  47] จากคุณ : ทองก้อน เมื่อ 30/5/2553 14:24:50

    ตอบ คห. 46
    หากมีข้อสงสัยอื่นๆ สามารถโพสต์ข้อความได้ที่ส่วนของเว็บบอร์ดเลยครับ ...
    http://www.g2gnet.com/forum

    [ความเห็นที่:  48] จากคุณ : phenick เมื่อ 4/6/2553 23:53:29  IP: 161.246.25.222

    ขอบคุณมากๆเลยค่ะ ตอนนี้กำลังศึกษาเรื่องฐานข้อมูลอยู่ค่ะ

    [ความเห็นที่:  49] จากคุณ : siripra เมื่อ 5/6/2553 5:54:13  IP: 61.19.66.66

    เยี่ยมยอดมากครับ.
    ขอบคุณมากครับท่านอาจารย์

    [ความเห็นที่:  50] จากคุณ : ไวไว เมื่อ 17/6/2553 18:59:15  IP: 118.174.45.181

    ท่านผู้รู้ค่ะ  หนูอยากได้ตัวอย่างการทำฐานข้อมูลระบบสหกรณ์ร้านค้าโรงเรียนมากเลยค่ะ
    ไม่รู้จะหาจากใหนค่ะ เพราะตอนนี้หนูต้องทำโปรเจ็คยังไปไม่ถึงใหนเลยค่ะ
    อยากหาตัวอย่างมาทำความเข้าใจให้มากกว่านี้ค่ะ

    ท่านผู้รู้ค่ะช่วยหน่อยน่ะค่ะ    ขอคุณค่ะสำหรับโปรแกรมดีที่น่าสนใจ

    monmon_191@hotmail.com

    [ความเห็นที่:  51] จากคุณ : จี้ เมื่อ 21/6/2553 16:01:51  IP: 210.246.147.253

    เก่งมากได้ความรู้มากมายขอบคุณที่ให้ดูแบบฟรีๆ ดีที่สุดสำหรับคนที่ไปเป็นเลยและต้องการเรียนรู้ ขอบคุณคนทำมากมายๆๆๆๆๆๆๆๆๆๆๆๆๆ

    [ความเห็นที่:  52] จากคุณ : wich เมื่อ 22/6/2553 18:40:47  IP: 222.123.223.126

    สมัครสมาชิกไม่ได้คครับ ขอความช่วยเหลือด่วน !!!
    คือแบบว่า Security Code มันไม่ทำงาน กไม่มีอะไรเลย ทำไงดี
    กรุณาส่งความช่วยเหลือมาที่ wert30522@hotmail.com
    ขอบคุณครับ

    [ความเห็นที่:  53] จากคุณ : ครพัสดุ เมื่อ 23/6/2553 10:24:52  IP: 118.173.56.167

    เยี่ยมครับ

    [ความเห็นที่:  54] จากคุณ : ปลายน้ำ เมื่อ 3/7/2553 17:18:25  IP: 58.9.153.236

    ขอบคุณมากๆๆนะค่ะ

    [ความเห็นที่:  55] จากคุณ : Tarzan เมื่อ 3/7/2553 22:19:27  IP: 180.180.188.98

    หนูลองโหลดโปรแกรมแล้วนะค๊ะ  แต่ว่ามันใช้ไม่ได้อ่ะ  ไม่รู้ว่าผิดพลาดตรงไหน
    มีแผ่นโปรแกรมระบบฐานข้อมูลครุภัณฑ์จำหน่ายไหมค่ะ  หนูขอซื้อได้มั๊ยค่ะ  ต้องการใช้งานด่วนเลยค่ะ

    [ความเห็นที่:  56] จากคุณ : แนนนี่ เมื่อ 7/7/2553 15:10:08  IP: 125.24.219.69

    อยากทราบโค๊ด การเขียนFlex grid ให้ข้อมูลมาขึ้นทำไงคะ


    และอีกอย่าง จะค้าหารหัส จากกล่องComboboxจะต้องเขียนยังไงคะมันถึงจะเชื่อมต่อกับข้อมูลที่คีย์เพิ่มไปแล้ว

    [ความเห็นที่:  57] จากคุณ : อนุวัฒน์ เมื่อ 25/7/2553 23:52:27  IP: 125.26.147.131

    ผมต้องทำโปรเจ็คเทอมหนึ่งสาขาเทคโนโลยีสารสนเทศ   
    ขอน่อยคับ เกียวกับสินค้า
    โปรแกรมvbและฐานข้อมูล

    [ความเห็นที่:  58] จากคุณ : ake เมื่อ 30/7/2553 12:04:14  IP: 203.113.121.66

    ขอบคุณมากครับ

    [ความเห็นที่:  59] จากคุณ : ตั้ม เมื่อ 30/7/2553 16:16:16  IP: 112.142.172.243

    ขอบคุณครับผมต้องการใช้โปรแกรม

    [ความเห็นที่:  60] จากคุณ : วรนุช เมื่อ 5/8/2553 16:45:21  IP: 182.52.126.46

    ใครมี source code  สมัครเรียนออนไลน์บ้างคะ  จะทำโปรเจคเรื่องนี้ค่ะ นึกไม่ออกว่าจะต้องทำไงบ้าง ขอคำแนะนำหน่อยค่ะ ผู้รู้ทุกท่าน

    [ความเห็นที่:  61] จากคุณ : กดด เมื่อ 18/8/2553 19:05:36  IP: 124.120.161.229

    ขอบคุณมากมากครับ

    [ความเห็นที่:  62] จากคุณ : kon เมื่อ 3/9/2553 9:53:14  IP: 110.49.193.156

    ขอโค้ดตัดสต็อกสินค้าหน่อยค่ะ พอดีทำโปรเจ็คคลีนิกลดน้ำหนักและต้องใช้โค้ดมาตัดสต็อกคลังยาแต่ทำไม่ได้ขอความกรุณาหน่อยนะค่ะถ้าได้ก็ส่งมาที่ kik_pathya@hotmail.com   หน่อยนะค่ะ........ขอบคุณๆๆๆๆๆๆๆๆๆ..ค่ะ

    [ความเห็นที่:  63] จากคุณ : dos_network เมื่อ 3/9/2553 13:43:25  IP: 118.175.90.37

    เห่อๆๆ ผมเคยเห็นเค้าปล่อยให้ดาวน์โหลด Source Code โปรเจ็คตัวนี้ล่ะ(โปรเจ็คคลีนิกลดน้ำหนัก) ไม่รู้ว่าได้มารึยัง

    [ความเห็นที่:  64] จากคุณ : kon เมื่อ 4/9/2553 9:25:34  IP: 110.49.193.109

    เคยเหนเค้าปล่อยให้โหลดที่เว็บไหนเหรอค่ะ......ช่วยบอกหน่อยนะค่ะ

    [ความเห็นที่:  65] จากคุณ : dos_network เมื่อ 6/9/2553 8:12:54  IP: 118.175.90.37

    แฮ่ๆ เว็บไหนจำไม่ได้แล้วครับ

    [ความเห็นที่:  66] จากคุณ : November_3 เมื่อ 8/9/2553 3:16:10  IP: 124.120.203.116

    แก้ให้ทีครับปุ่ม delete มันติดบัคอะ

    Private Sub cmdDelete_Click()
        If Val(fgBook.Text) <= 0 Or IsNull(fgBook.Text) Then Exit Sub
        
        Statement = "DELETE * FROM tblBookMaster WHERE [PK] = " & Val(fgBook.Text)
        If MsgBox("¤Ø³á¹èã¨ÇèÒµéͧ¡ÒÃź¢éÍÁÙÅÃËÑÊ˹ѧÊ×ÍÅӴѺ·Õè " & ("" & fgBook.Text) & " ¹Õé?", _
                            vbOKCancel + vbQuestion + vbDefaultButton2, "Â×¹Âѹ¡ÒÃź¢éÍÁÙÅ") = vbCancel Then
            Exit Sub
        End If
        Set RS = ConnMyDB.Execute(Statement)
        MsgBox "ź¢éÍÁÙÅÃËÑÊ˹ѧÊ×ÍÅӴѺ·Õè " & ("" & fgBook.Text) & " ÍÍ¡¨Ò¡ÃкºàÃÕºÃéÍÂáÅéÇ.", vbOKOnly + vbInformation, "ÃÒ§ҹʶҹÐ"
        Call SetupFgBook
        Call DisplayFgBook
    End Sub

    บรรทัดที่เขียนว่า

    Set RS = ConnMyDB.Execute(Statement)

    [ความเห็นที่:  67] จากคุณ : dos_network เมื่อ 8/9/2553 8:21:09  IP: 118.175.90.37

    ของผมทำแบบนี้ครับ ผ่านฉลุยเลย
    '
    SQL = "DELETE FROM mcplan WHERE mcno='" & txtMcno.Text & "' AND ordcode='" & txtOrdCode.Text & "' "
    ConnPlanningDB.Execute SQL

    [ความเห็นที่:  68] จากคุณ : kow เมื่อ 10/9/2553 11:40:03  IP: 113.53.239.84

    ขอบคุณครับ

    [ความเห็นที่:  69] จากคุณ : Dessert เมื่อ 12/9/2553 9:57:53  IP: 1.47.230.221

    ครูให้หาโค้ดสร้างโปรแกรมอะไรก็ได้
    จะสอบอยู่แล้วแต่ยังหาโค้ดไม่ได้เลย
    ยังไงก็ขอบคุณนะค่ะ

    [ความเห็นที่:  70] จากคุณ : Dessert เมื่อ 12/9/2553 10:10:55  IP: 1.47.230.221

    อยากได้แบบสร้างโปรแกรมง่ายๆ
    แบบที่เคยทำพวกสร้างเกมส์ไฮโล
    เครื่องคิดเลขอะไรแบบนี่อ่ะค่ะ
    แต่หาดูแล้วไม่เห็นมีเลยค่ะ
    อยู่ม.4อ่ะค่ะจะไปสร้างโปรแกรม
    ทะเบียนครุภัณฑ์ ก็ใช่ที่อยู่มั่งค่ะ
    แต่ก็ขอบคุณนะค่ะ

    [ความเห็นที่:  71] จากคุณ : catzilla เมื่อ 27/9/2553 12:05:49  IP: 202.183.194.2

    function SearchCombobox พอจะแปลงเป็น vb.net ให้ได้ไหมครับ ช่วยแนะนำด้วยครับ

    [ความเห็นที่:  72] จากคุณ : gvod เมื่อ 4/10/2553 17:53:02  IP: 110.49.148.152

    ขอบคุณมากคัฟพี่
    ช่วยสอนทำติดตั้งให้ผมหน่อยครับ ผมไม่รู้จะเริ่มยังงัยคัฟ ขอบคุนคัฟ

    [ความเห็นที่:  73] จากคุณ : free เมื่อ 7/10/2553 16:39:11  IP: 58.9.82.202

    1000 vb sourcecode
    http://rapidshare.com/files/423459786/1000s_of_Visual_Basic_Source_Code_examples.rar

    [ความเห็นที่:  74] จากคุณ : programmer เมื่อ 26/10/2553 16:58:19  IP: 61.91.83.34

    project นี้เด็ก ๆ มากเลย อ่อนมาก อิ ๆ

    =======================================================
    Webmaster มาตอบให้ตรงนี้เอง ...
    อ่านแล้วก็ขำๆเลย ... เหมือนกับคนๆนี้เขาพยายามจะบอกทุกๆคนว่า เขาน่ะดีเลิศแค่ไหน ที่ตดให้คนอื่นดมเนี่ย ... 55555+ ... เอาแบบฮาๆน่ะครับพี่น้อง
    =======================================================

    [ความเห็นที่:  75] จากคุณ : Jariya เมื่อ 1/11/2553 13:42:01  IP: 124.157.227.27

    ต้องการโปรแกรมเกี่ยวกับการจัดเก็บเอกสารหรือ ระบบหนังสือราชการอิเล็คทรอนิกนะค่ะ
    รบกวนด้วยนะค่ะ

    [ความเห็นที่:  76] จากคุณ : PORN เมื่อ 16/11/2553 10:34:18  IP: 124.121.57.90

    อยากได้ Source program ค่ะ ลอง download แล้วไม่ได้ค่ะ
    รบกวนช่วยส่งมาที่ Mail  j_noknoi@yahoo.com ให้ด้วยค่ะ
    เพิ่งจะลองเขียนน่ะค่ะ แต่ใช้ Macro ที่เป็นคำสั่งทำนะคะ
    มีปัญหาเวลาต้องการทำ loop ค่ะ ไม่ทราบว่าต้องทำอย่างไร
    เลยอยากลองศึกษาที่เป็น vba ดูค่ะ รบกวนด้วยนะคะ

    [ความเห็นที่:  77] จากคุณ : dos_network เมื่อ 16/11/2553 10:50:43  IP: 118.175.90.37

    ตอบคุณ PORN
    ดาวน์โหลดได้ปกตินะครับ แต่ต้องสมัครสมาชิก Webboard ก่อนครับ
    http://www.g2gnet.com/Forum/

    [ความเห็นที่:  78] จากคุณ : ดิว เมื่อ 21/12/2553 1:29:06  IP: 183.88.118.80

    คือว่าผมจะใช้ VB6 กับการทำหน้าจอ Login ระดับมืออาชีพ ภาค 1 ร่วมกับ โปรแกรมฐานข้อมูลครุภัณฑ์
    แต่ติดตรงที่ ผมไม่สามารถ add modDataBase กับ modFunction ได้ เพราะว่าทั้งสองตัวมันใช้ชื่อเหมือนกัน ผมควรทำงัยครับ

    [ความเห็นที่:  79] จากคุณ : ดิว เมื่อ 23/12/2553 14:37:10  IP: 202.151.7.28

    ทำไมเวลาผมเปลี่ยน วันที่รับ แล้วก็เซฟ พอผมเปิดดู วันที่รับมันไม่ยอมเปลี่ยนให้ครับผม ช่วยหน่อยครับ

    [ความเห็นที่:  80] จากคุณ : ทองก้อน เมื่อ 23/12/2553 18:03:48

    เจตนาตั้งใจจะวาง Bug ไว้เองครับ ... ถามผ่านทางเว็บบทความมาเป็นคนแรกเลย ... ไปแก้ไขที่
    Sub SaveData()

        ให้เพิ่มบรรทัดคำสั่งนี้ไปด้วยครับผม ... ให้ต่อจากเงื่อนไข If Then End if ... วางที่ไหนก็ได้ แต่ต้องก่อนสั่ง Update เป็นพอ
        RS("DateReceived") = FormatDateTime(dtpDateReceived.Value, vbShortDate)

    [ความเห็นที่:  81] จากคุณ : ดิว เมื่อ 23/12/2553 21:29:59  IP: 223.206.153.243

    อิอิ.. ขอบคุณมากครับ คุณทองก้อน ผมมือใหม่มากๆ อยากลองศึกษาดูครับผม

    [ความเห็นที่:  82] จากคุณ : ดิว เมื่อ 23/12/2553 21:32:11  IP: 223.206.153.243

    อีกนิดหนึ่งน่ะครับ..คือว่าผมจะทำให้มันปรินได้นี้ ต้องศึกษาจากตัวอย่างไหนดีครับผม ของคุณล่วงหน้าครับ
    ลองมาหลายวันแล้ว ม่ะได้สักที ช่วยชี้แนะด้วยครับท่าน

    [ความเห็นที่:  83] จากคุณ : ทองก้อน เมื่อ 25/12/2553 11:12:42

    ขอแนะนำให้ใช้ ActiveReport ซึ่งมีคำอธิบาย และ ตัวอย่างในเว็บนี้อยู่แล้วครับ หรือไม่ก็เป็น Crystal Report ครับ

    [ความเห็นที่:  84] จากคุณ : ธีระ เมื่อ 14/1/2554 7:18:33  IP: 58.11.20.165

    ดีครับ  กำลังต้องการอยู่เลยครับ ขอบคุณล่วงหน้าครับ และรายงานมีการแยกครุภณฑ์แต่ละรายการแต่ละรายการด้วยไหมครับ
    ขอบคุณล่วงหน้าสำหรับ  โปรแกรมระบบงานฐานข้อมูลครุภัณฑ์
    ขอบคุณมากครับ  ผมทำงานที่งานพัสดุครับ

    [ความเห็นที่:  85] จากคุณ : สุพจนา เมื่อ 16/1/2554 12:44:29  IP: 110.49.205.231

    ขอบคุณมาก ๆ ค่ะ เป็นประโยชน์จริง ๆ 

    [ความเห็นที่:  86] จากคุณ : อมรไพร พรมใจ เมื่อ 26/1/2554 11:05:53  IP: 61.7.131.109

    ขอบพระคุณมากๆ ค่ะที่สร้างโปรแกรมได้ดีที่สุดฉันคงหวังว่าโปรแกรมของคุณจะมีพัฒนาการแปลกๆใหม่ขึ้นมาอีดน่ะค่ะ  สามารถทำประโยชน์ได้จริงๆ

    [ความเห็นที่:  87] จากคุณ : pomf4 เมื่อ 27/1/2554 23:17:50  IP: 58.9.253.34

    ยอดเยี่ยมกระเทียมดองไปเลยครับ  หาอยู่พอดี จะเอาไปต่อยอดครับ

    [ความเห็นที่:  88] จากคุณ : intong เมื่อ 31/1/2554 21:37:45  IP: 202.62.111.66

    i haVE ABOUT DATABAS ACCESS+VB.NET

    [ความเห็นที่:  89] จากคุณ : mi_yong เมื่อ 8/2/2554 22:00:58  IP: 1.46.249.180

    มีตัวอย่างโปรเจ็ค ระบบการเช่า คืน หนังสือไหมคร้า ตอนนี้ต้องทำโปรเจ็ค แต่สับสนกับตัวโปรแกรมมากเลยคร้า อยากจะร้องให้อยู่แล้วคร้า ตอนนี้ สมองตื้อหมดแล้วช่วยหน่อยนะคร้า Mi_yang18@hotmail.om

    [ความเห็นที่:  90] จากคุณ : dos_network เมื่อ 9/2/2554 8:08:02  IP: 118.175.90.37

    คุณ mi_yong
    ศึกษาได้จากที่นี่ก่อนได้ครับ 
    http://www.g2gnet.com/Forum/forum_posts.asp?TID=347

    [ความเห็นที่:  91] จากคุณ : ชั้นม . 3/2 เมื่อ 15/2/2554 9:21:25  IP: 118.173.55.226

    ขอบคุณมากค่ะที่ท่านอาจารย์ให้ความรู้พวกหนู

    [ความเห็นที่:  92] จากคุณ : 192.168.1.98 เมื่อ 22/2/2554 17:49:34  IP: 113.53.117.248

    ถ้าได้ตัวอย่างไปศึกษาน่าจะดีค่ะ ขอบคุณค่ะ

    [ความเห็นที่:  93] จากคุณ : วิวันดี เมื่อ 25/2/2554 8:51:51  IP: 110.77.146.242

    จบแล้วดีใจจัง

    [ความเห็นที่:  94] จากคุณ : uuuu เมื่อ 27/2/2554 3:20:38  IP: 115.87.75.156

    ............................

    [ความเห็นที่:  95] จากคุณ : จิคะ เมื่อ 27/2/2554 18:00:03  IP: 223.207.60.238

    ดีคะ  คือ ตอนนี้น้องได้ทำโปรเจคร้านค้าปลีกที่จำหน่ายสินค้า 24 ชม. โดยทางร้านสามารถ เพิ่ม ลบ ค้นหา จำหน่าย รับ คืนสินค้าได้และให้ระวังหน่วยที่ไม่เหมือนกัน ด้วยการคำนวณแปลงกล่องป็นห่อ สำหรับน้องซึ่งยุสถิติมาเจอแบบนี้เรียนคอมตัวที่2 ความรู้เรื่องvbก็อ่อนด้อย ในส่วนความรู้พื้นฐานเรื่องaccessก็ไม่มี หาหนังสือมาอ่านกี่เล่มก็ได้แต่รู้จักหน้าตารูปร่างของมัน แต่ไม่สามารถเขียนโปรแกรมได้ มันยากมากมายสำหรับน้องคะพี่ พี่ช่วยชี้แนนะด้วยนะคะ
    ขอขอบคุณมากๆๆล่วงหน้าคะหากจะกรุณา เมล์ของน้องคะ Zero_yenta4@hotmail.com

    [ความเห็นที่:  96] จากคุณ : nares เมื่อ 22/3/2554 13:46:50  IP: 180.222.200.15

    ผมต้องการซ่อน table ไม่ให้เปิดได้ต้อง code อย่างไรครับ

    [ความเห็นที่:  97] จากคุณ : nok เมื่อ 1/4/2554 16:22:44  IP: 210.177.135.164

    ขอทดสอบเพื่อการศึกษาด้วยครับ

    [ความเห็นที่:  98] จากคุณ : jackie เมื่อ 3/4/2554 22:26:34  IP: 202.41.187.241

    ขอบคุณมากครับ

    [ความเห็นที่:  99] จากคุณ : 180.183.69.159 เมื่อ 6/5/2554 15:44:54  IP: 180.183.69.159

    ดีคับ เหมาะกับการศึกษา

    [ความเห็นที่:  100] จากคุณ : warton เมื่อ 10/7/2554 23:50:58  IP: 180.180.130.242

    thank you

    [ความเห็นที่:  101] จากคุณ : เล็ก เมื่อ 23/7/2554 22:50:04  IP: 203.113.99.161

    ขอทดลอง

    [ความเห็นที่:  102] จากคุณ : นนท เมื่อ 28/7/2554 20:56:44  IP: 223.204.131.227

    ขอบุณครับ

    [ความเห็นที่:  103] จากคุณ : กนกพร เมื่อ 7/8/2554 19:42:19  IP: 180.183.121.161

    ตอนนี้ หนูกำลังทำโปรเจคจบ  ใช้ VB.net ในการเขียน
    ช่วยหนูด้วยนะค่ะ คุณทองก้อน...
    เป็น ฐานข้อมูลโภชนาการในโรงพยาบาลอ่ะค่ะ
    ยังออกแบบฐานข้อมูลไม่ได้เลย ไม่รุว่าจะออกแบบยังไง...
    ตัว โปรเจคที่คุยกะผู้ใช้ เค้าต้องการให้เราค้นหาข้อมูลเกี่ยวกับโรคที่ต้องการได้
    ประมาณว่า สมมติว่าเราค้นหา โรคเบาหวานขึ้นมา เมื่อกดค้นหา ข้อมูลรายการอาหารทั้งหมดก็จะขึ้นมาที่โรคเบาหวานสามารถรับประทานได้ และต้องการให้ผู้ป่วยงดรสชาติอาหาร เช่น งดน้ำตาล เมื่อกด งดน้ำตาล อาหารที่มีน้ำตาลผสมอยู่ก็จะหายไป จะเลือกแต่อาหารที่สามารถรับประทานได้อ่ะค่ะ...ประมาณนี้ สามารถเพิ่มโรค เพิ่มอาหารได้ และสามารถพิมพ์รายงาน อาหารที่โรคนี้ สามารถรับประทานได้อ่ะค่ะ เหมือนกับเป็นการให้คำปรึกษาการรับประทานอาหารอ่ะค่ะ   ช่วยหนูหน่อยนะค่ะ... ติดต่อกลับที่นี่ก็ได้นะค่ะ หนูต้องการคำแนะนำ มากๆๆ เลยตอนี้ เครียดที่สุดเลยค่ะ migung25@hotmail.com

    [ความเห็นที่:  104] จากคุณ : hiphop2531 เมื่อ 12/8/2554 16:32:20  IP: 1.46.133.115

    ขอบคุณมากครับบบบบบบบบบบบบบบบบบบ

    [ความเห็นที่:  105] จากคุณ : ไม่ประสงค์ เมื่อ 15/8/2554 10:52:54  IP: 27.130.103.45

    จากที่อ่านมา ไม่รู้ว่าพี่ทองก้อน ส่งให้น้องๆบ้างหรือปล่าว แต่สำหรับหนูเห็นแต่ละคนมาโพสต์ขอความช่วยเหลือ แล้วเหนื่อยใจจริงๆค่ะ ถ้าคิดจะเข้ามาอ่าน แล้วนำไปศึกษาเป็นแนวทาง หรือนำเทคนิคที่พี่ทองก้อน ไปใช้ให้เกิดประโยชน์ น่าจะดีกว่า ตอนนี้มองว่าน้องๆหรือเด็กไทย สมัยนี้ ไม่มีความพยายามที่จะศึกษาอะไรเลย เศร้าใจค่ะ

    [ความเห็นที่:  106] จากคุณ : ทองก้อน เมื่อ 15/8/2554 11:49:46

    ขอบคุณครับ ที่เข้ามาช่วยให้ข้อคิดกับเด็กๆรุ่นใหม่ๆ ... ขอมาผมก็ไม่เคยส่งอะไรให้ใครหรอกครับ จะมีก็แต่คอยช่วยแก้ปัญหา หรือเสริมเติมแต่งเทคนิคให้ในบางอย่าง หากมีโค้ดมาให้ผมดูด้วย

    [ความเห็นที่:  107] จากคุณ : อู๋ เมื่อ 1/9/2554 23:01:59  IP: 223.205.92.229

    รุ่นเก่า แก่จะเรียนได้ไหม

    [ความเห็นที่:  108] จากคุณ : ฝน เมื่อ 26/10/2554 12:42:34  IP: 182.93.170.193

    ขอบคุณมากๆๆๆคะ

    [ความเห็นที่:  109] จากคุณ : ครูหน่อง เมื่อ 2/11/2554 9:28:48  IP: 118.174.80.73

    อยากได้มากครับ ขอบคุณครับ

    [ความเห็นที่:  110] จากคุณ : น้อง VB เมื่อ 9/11/2554 14:32:29  IP: 183.88.69.19

    พี่สุดยอดมากกกกกกกกกกกก
    ขอบคุณค่ะ

    [ความเห็นที่:  111] จากคุณ : chompu เมื่อ 21/12/2554 13:30:04  IP: 101.108.197.13

    เป็นความรู้มากๆเลยค่ะ

    [ความเห็นที่:  112] จากคุณ : mei เมื่อ 22/12/2554 20:55:49  IP: 101.109.20.174

    thank you very much

    [ความเห็นที่:  113] จากคุณ : นิภาพรรณ บุญเลิศเจริญศรี เมื่อ 12/1/2555 22:30:42  IP: 223.204.82.97

    ขอบคุณมากค่ะที่เผยแพร่ เพราะมีประโยชน์มากค่ะ

    [ความเห็นที่:  114] จากคุณ : kridsana เมื่อ 30/1/2555 17:45:12  IP: 118.174.142.58

    735716

    [ความเห็นที่:  115] จากคุณ : chizuka เมื่อ 11/2/2555 12:39:31  IP: 116.68.155.242

    ขอบคุณครับ

    [ความเห็นที่:  116] จากคุณ : Angel เมื่อ 3/3/2555 18:32:11  IP: 211.25.207.239

    ผมไม่เคยเรียนการเขียนโปรแกรมเลย แต่ตอนนี้ต้อง เอา source code VB6 ของคนอื่นมาแก้ไข แล้วผมจะทำได้ไหมครับ ? มันเป็นการเขียนคำสั่งให้ไปอ่านข้อมูล(Text file) แล้วบันทึกลง database access97 ใน หลายๆ table ที่แตกต่างกัน จาก file เดียว

    [ความเห็นที่:  117] จากคุณ : TREE เมื่อ 16/3/2555 19:21:19  IP: 182.52.215.165

    อยากได้ที่ปรึกษา ทำ โปรเจ็คจบ VB2008 ค่ะ มันเหลืออีกนิดเดียวก้อจะผ่านแล้ว ติดที่การขายเงินผ่อน กับการชำระค่างวด กรุณาติดต่อ มาที่เมล์ aorapin_sw@hotmail.com จะขอบคุณมากค่ะ

    [ความเห็นที่:  118] จากคุณ : แอร์ เมื่อ 5/4/2555 12:10:36  IP: 101.51.119.235

    ขอบคุณ

    [ความเห็นที่:  119] จากคุณ : แอร์ เมื่อ 5/4/2555 12:11:33  IP: 101.51.119.235

    ขอบคุณ..

    [ความเห็นที่:  120] จากคุณ : กำพล เมื่อ 11/5/2555 11:12:42  IP: 202.28.182.5

    ขอบคุณครับ
      แต่ผมยังงงงง ไม่รู้ว่าจะดัดแปลงโค๊ดยังไงดีครับ
    จะพยายาม  เคยทำเป็นแบบพัสดุ ก็เอาโค๊ดมาดัดแปลงเหมือนกันครับ
    ก็พอไปได้  แต่โค๊ดของ อาจารย์ สุดยอดมากครับ แต่ต้องศึกษาอีกนิด(หรือเยอะ)ครับ
    ขอบคุณที่โลกนี้ ยังมีคนดี ๆ แบบนี้ในสังคม
    ที่แบ่งปันโดยไม่หวังสิ่งตอบแทน
    kumpol79@gmail.com

    [ความเห็นที่:  121] จากคุณ : jack เมื่อ 15/5/2555 9:23:35  IP: 58.97.55.158

    อ.ทองก้อน มีเวลาว่างรับสอนเขียนโปรแกรม vb.net และการติดต่อกับระบบฐานข้อมูลพวก sql หรือ oracle 
    มั้ยครับ ผมอยากเรียนรู้จริงๆครับ phatcharawat@gmail.com

    [ความเห็นที่:  122] จากคุณ : Dao เมื่อ 17/5/2555 11:36:57  IP: 110.164.182.41

    ขอบคุณค่ะ เป็นประโยชน์มากจริง ๆ ค่ะ

    [ความเห็นที่:  123] จากคุณ : ottoball เมื่อ 29/5/2555 0:36:37  IP: 180.183.155.34

    อ.ท้องก้อนครับ ผมทำเกี่ยวกับบาร์โค้ด ทำให้บันทึกข้อมูลพร้อมกับเจนเนเรเตอร์บาร์โค้ดด้วยเป็นหมวดหมู่อะครับ ขอคำแนะนำหน่อยครับ อยากได้เบอโทรไปปรึกษา อะครับ หรือเป็นทางอื่นก็ได้ที่สะดวกออะครับ
    forgetmenotball@hotmail.com

    [ความเห็นที่:  124] จากคุณ : NJ_PITCHA เมื่อ 6/7/2555 11:22:17  IP: 124.121.82.123

    ขอบคณมากค่ะ

    [ความเห็นที่:  125] จากคุณ : monter2525 เมื่อ 26/7/2555 13:54:50  IP: 119.42.74.242

    ขอบคุณมากมายครับ

    [ความเห็นที่:  126] จากคุณ : กดเหเ เมื่อ 8/9/2555 23:42:49  IP: 27.130.110.214

    ปกเอปแเเเ

    [ความเห็นที่:  127] จากคุณ : เกษฎา เมื่อ 19/9/2555 9:49:46  IP: 101.51.164.28

    อ.ทองก้อนครับมีตัวอย่าง โค้ด โปรแกรม VB6 เขียนติดต่อดึงตัวเลขจากเครื่องชั่งน้ำหนักรึป่าวครับ

    [ความเห็นที่:  128] จากคุณ : ทองก้อน เมื่อ 26/9/2555 10:16:21

    ลองดูนี่น่ะครับ
    Dim strWeight As String
    Private Sub Timer1_Timer()
        If MSComm1.PortOpen = False Then
            MSComm1.Settings = "9600,N,8,1"
            MSComm1.InputLen = 0
            MSComm1.PortOpen = True
        End If
        
        MSComm1.InputMode = comInputModeText
        
        ' strWeight จะรอรับค่า Input มาจาก Com Port ตามเวลาของ Timer ที่เราตั้งไว้
        strWeight = MSComm1.Input
        ' พอค่าใน strWeight มันเปลี่ยน ก็จะส่งค่าไปแสดงผลใน Text1
        If strWeight <> Text1.Text Then
            Text1.Text = strWeight
        End If
    End Sub

    [ความเห็นที่:  129] จากคุณ : 192.168.1.3 เมื่อ 12/3/2556 18:17:57  IP: 180.183.249.101

    ผมอยากได้โค้ด VB6  เป็นคำสั่งกด Ctrl + P แล้วสามารถปริ้นได้เลยอะคับ ใครมีโค้ดมีวิธีทำ ช่วยผมหน่อยคับ จะขอบคุณมาก คับ

    [ความเห็นที่:  130] จากคุณ : Koon เมื่อ 23/1/2557 11:20:43  IP: 110.77.193.202

    ขอยคุณค่ะ

    [ความเห็นที่:  131] จากคุณ : หลิง เมื่อ 7/5/2557 1:26:11  IP: 58.9.174.24

    อยากได้โค้ด  เกี่ยวกับหน้าออกรายงานแบบมีเงื่อนไขค่ะ
    แต่เงื่อนไขที่ว่า เกี่ยวกับวันที่....จนถึงวันที่...ค่ะ
    จะต้องเขียนโค้ดยังงัยบ้างค่ะ
    ตอนนี้น้องกำลังทำโปรเจคจบค่ะ ใช้ vb6.0 เขียน
    ถ้าไม่เป็นการรบกวน..ช่วยหน่อยนะค่ะ
    หรือส่งมาที่ lingling4452@hotmail.com  -ขอบคุณมากค่ะ-

    [ความเห็นที่:  132] จากคุณ : แจ็ค เมื่อ 13/6/2557 23:58:27  IP: 115.87.6.116

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

    [ความเห็นที่:  133] จากคุณ : kajon เมื่อ 18/9/2557 0:09:12  IP: 118.172.229.132

    ขอบคุณครับ

    [ความเห็นที่:  134] จากคุณ : ิfin เมื่อ 24/11/2557 20:02:18  IP: 124.122.115.45

    อาจารรับสอนไหมค่ะ หนูอยากเรียนเพิ่มมากๆค่ะ อีเมลหนูน่ะค่ะ bifin.matararuk@gmaiil.com


    ก่อนการคลิ๊กโพสต์ข้อความ ขอความกรุณาใช้ถ้อยคำที่สุภาพด้วยครับ เว็บไซต์แห่งนี้เป็นแหล่งเผยแพร่ความรู้ ดังนั้นสำหรับท่านที่พยายามจะป่วนเว็บไซต์ หากท่านเป็น "คนไทย" เช่นเดียวกันกับผม ก็ขอความกรุณาได้โปรดเห็นใจ "คนไทย" อีกจำนวนไม่น้อย ที่เข้ามาขอความช่วยเหลือ จากเว็บไซต์ของผมด้วยน่ะครับ และหากท่านใดไม่เข้าใจในตรงจุดไหน ก็ขอให้ระบุสิ่งที่อยากจะถามออกมา บทความของผมแทบทั้งหมดต้องอาศัยทักษะการปฏิบัติเป็นหลัก ดังนั้นขอให้ดู และ ทดสอบจากโค้ดโปรแกรมประกอบตามไปด้วย
    IP Address: 54.163.89.8
    ชื่อของคุณ:

    ข้อคิดเห็น:

    3 + 1 = ?  (กรุณาป้อนคำตอบลงในช่องด้านล่างให้เป็น ภาษาไทย ตามผลบวกของตัวเลขให้ถูกต้องก่อนด้วยน่ะครับ เช่น ศูนย์)
      


    จี ทู จี เน็ต ดอต คอม - g2gNet Dot Com
    เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์ 0407314800231
    Copyright © 2005 g2gNet.Com All rights reserved.
    Email: thongkorn@hotmail.com หรือ โทร. 08-6862-6560