ThaiSEOBoard.com

Private Sub DBList1_Click()

End Sub

Private Sub Command1_Click()


'On Error GoTo err:
       If Text1.Text = "" Then
       MsgBox "¡ÃسҡÃÍ¡¢éÍÁÙÅ·Õè¨Ð¤é¹ËÒ", vbOKOnly + vbExclamation, "¤Óàµ×͹"
        Text1.SetFocus
        Exit Sub
End If
      Adodc1.RecordSource = "select * from EcgData where Ecg like '%" + Text1 + "%'"
      Adodc1.Refresh
       If Adodc1.Recordset.RecordCount = 0 Then
            MsgBox "äÁ辺¢éÍÁÙÅ"
            Adodc1.RecordSource = "select * from EcgData"
      Adodc1.Refresh
            Exit Sub
       End If
       If Adodc1.Recordset.RecordCount = 1 Then
            Text1.Text = Adodc1.Recordset.Fields(0)
            Text2.Text = Adodc1.Recordset.Fields(1)
            Text3.Text = Adodc1.Recordset.Fields(2)
            Text4.Text = Adodc1.Recordset.Fields(3)

           
               Exit Sub
               Adodc1.RecordSource = "select * from EcgData"
      Adodc1.Refresh
        End If
       
     Exit Sub
    Text2.SetFocus
   
err:
 MsgBox "ÁÕ¢éͼԴ¾ÅÒ´àÅ¢·Õè" & err.Number & " " & err.Description, vbInformation + vbOKOnly, "¢éͼԴ¾ÅÒ´"
 Exit Sub
End Sub

Private Sub Command2_Click()
On Error GoTo EL:
Adodc1.RecordSource = "Select*from EcgData"
Adodc1.Refresh
Adodc1.Recordset.AddNew     'à¾ÔèÁ¢éÍÁÙÅ
Adodc1.Recordset.Fields(0) = Text2.Text     '·Ó¡Òúѹ·Ö¡¢éÍÁÙŵÒÁÅӴѺ¢Í§ Field
Adodc1.Recordset.Fields(1) = Text3.Text
Adodc1.Recordset.Fields(2) = Text4.Text
Adodc1.Recordset.Fields(3) = Text5.Text
Adodc1.Recordset.Update    '·Ó¡Òà ºÑ¹·Ö¡¢éÍÁÙÅ
MsgBox "ºÑ¹·Ö¡¢éÍÁÙÅàÊÃç¨àÃÕºÃéÍÂáÅéÇ"   'á¨é§¼Å¡Òúѹ·Ö¡¢éÍÁÙÅ
EL:
End Sub

Private Sub Command3_Click()
On Error GoTo err:
  If MsgBox("¤Ø³µéͧ¡ÒÃź¢éÍÁÙÅËÃ×ÍäÁè?", vbInformation + vbYesNo, "Program") = vbYes Then
    Adodc1.Recordset.Delete
    MsgBox "ź¢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ", vbOKOnly + vbInformation, "Program"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
    Adodc1.Refresh
     End If
   Exit Sub
err:
    MsgBox err.Description

End Sub

Private Sub Command4_Click()
If Text2.Text = "" Then
MsgBox "â»Ã´¤ÅÔ¡àÅ×Í¡¢éÍÁÙÅ·Õèµéͧ¡ÒèÐá¡éä¢", vbOKOnly + vbExclamation, "Select Data"
End If
CheckEdit = True
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Text2.SetFocus
Adodc1.Recordset.Update  '·Ó¡Òà ºÑ¹·Ö¡¢éÍÁÙÅ
MsgBox "·Ó¡Òà ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End If
EL:
End Sub

Private Sub Command6_Click()


On Error GoTo EL      'ËÒ¡ÁÕ¤ÇÒÁ¼Ô´¾ÅÒ´ãËéä»ÂѧºÃ÷Ѵ ·Õèª×èÍ EL (ÍÂÙè¡è͹ End Sub)

If Trim(Text2.Text) = "" Then Exit Sub     '¶éÒäÁèÁÕ¡ÒáÃÍ¡¢éÍÁÙÅ㹪èͧ text1 ãËé¡àÅÔ¡¡Ò÷ӧҹ

Adodc1.RecordSource = "select * from EcgData"   'àÅ×Í¡ Fiels ·Ñé§ËÁ´ ¨Ò¡µÒÃÒ§ student

Adodc1.Refresh

Adodc1.Recordset.AddNew à¾ÔèÁ¢éÍÁÙÅ

Adodc1.Recordset.Fields(0) = Val(Text2.Text)    '·Ó¡Òúѹ·Ö¡¢éÍÁÙŵÒÁÅӴѺ¢Í§ Field

Adodc1.Recordset.Fields(1) = Text3.Text

Adodc1.Recordset.Fields(2) = Text4.Text

Adodc1.Recordset.Fields(3) = Text5.Text

Adodc1.Recordset.Fields(4) = Text6.Text

Adodc1.Recordset.Fields(5) = Text7.Text

Adodc1.Recordset.Fields(6) = Text8.Text



Adodc1.Recordset.Update    '·Ó¡Òà ºÑ¹·Ö¡¢éÍÁÙÅ

MsgBox "ºÑ¹·Ö¡¢éÍÁÙÅàÊÃç¨àÃÕºÃéÍÂáÅéÇ"   'á¨é§¼Å¡Òúѹ·Ö¡¢éÍÁÙÅ

EL:



End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""


End Sub

Private Sub List1_Click()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox "¡ÃسÒãÊèàºÍÃìÍØ»¡Ã³ìÏ"
Text1.SetFocus
Else
Command1.SetFocus
End If
End If

End Sub

คำค้นของแก้ไขก็จะเป็น

UPDATE ชื่อตาราง SET ชื่อฟิลด์ = ค่าใหม่ WHERE เงื่อนไข

หากไม่กำหนด WHERE มันจะแก้ไขทั้งตาราง

โค๊ดควรเป็นไงครับ ผม ชื่อตาราง Ecg

ชื่อฟิลก็ Ecg ส่วนชื่อฟิลทำไงครับ ผมมีอยู่5ฟิล ใส่ยังไง ผมมี EcgNo, มีdiscription ฯลฯ

ช่วยเขียนโค๊ดเป็นไกด์หน่อยครับ มือใหม่จริงๆครับพี่