ต่อไป »

[ab2f6]

ผมจะเขียนโปรแกรมให้พี่สาวโดยใช้ VB  ปัญหาผมเรียนมาแค่พื้นฐานซึ่งไม่เกี่ยวกับโปรแกรมที่พี่สาวผมจะให้เขียนเลยครับ

ก็เลยต้องรบกวนพี่ๆช่วยหน่อยครับ

ผมอยากจะทำการค้นหาข้อมูลจาก access  แล้วเอามาโชว์ครับ
และก็ทำล็อกอินและโชว์ชื่อผู้ล็อกอิน

ยังมีอีกเยอะครับ
แต่ขอรู้แค่นี้ก่อนครับ

ช่วยหน่อยนะครับ

เดี๋ยวจะบวกให้เพื่อตอบแทนน้ำใจครับ

[nakahashi]

ถ้าเรื่องดึงตารางมาโชว์ค่า หรือหารายละเอียดก็ ลองดูเรื่อง ADO และ Sql เพิ่มนะคะ

โค๊ด:

http://www.widebase.net/developer/vb/vbtutorial/vbtutor1002.shtml

ส่วนเรื่อง โชว์ชื่อ Login ลองทำกล่องรับค่าแบบ text.txt แล้ว ไปทำจุดโชว์ค่าที่รับมาอะคะ
แต่ต้อง If else เรื่องพาสให้ผ่านก่อน

เช่น If ...check pass then show ....
ประมาณนี้ค่ะ

ขออภัยนะคะ ไม่ได้ลง VB ทำภาพประกอบไม่ได้

[mrbov]

http://www.g2gnet.com/News/activenews_view.asp?articleID=142

ลองอ่านดูเป็นแนวทางครับ โหลดตัวอย่างมาแกะ มาแงะดูก็ได้ครับ ไม่ยาก

เสียดายตอนนี้เครื่องผมไม่ได้ติดตั้ง VB ไว้ ก็เลยค่อนข้างลำบากที่จะเป็น step by step

[ab2f6]

ขอบคุณครับ

ยังรอความรู้จากพี่ๆคนอื่นๆอีกนะครับ

+1
ให้แล้วนะครับ

[pbeer]

ไม่ทราบว่าเป็น VB หรือ VB.Net ครับ

ถ้าเป็น VB.Net พอช่วยได้ครับ แต่ถ้าเป็น VB ผมก็ไม่เป็นเหมือนกัน

[ab2f6]

ไม่ทราบว่าเป็น VB หรือ VB.Net ครับ

ถ้าเป็น VB.Net พอช่วยได้ครับ แต่ถ้าเป็น VB ผมก็ไม่เป็นเหมือนกัน

VB  ครับ

[gooab]

ไปหาซื้อหน้งสือ ในร้านหนังสือเลยครับ   ไป  ง่ายมากเลย   ลองมองหาสิ่งที่เราต้อง การ เช่น Access ในหนังสือ VB6 หรือ VB.net สักเล่มดุครับ

ลองทำตาม ตัวอย่างที่เขามีมาให้แล้ว ค่อยๆ ลองแก้ไปก็ได้ครับ   ไม่ยากจริงๆ (ตอนผมฝึกผมก็เรียนเองนะ ค่อยๆทำไป)

[Kobsoft]

  http://www.thaidev.com/index.p...?cmd=showboard&bn=board_vb

สู้ๆ คับ

[ngohtitle]

จะทำเกี่ยวกับระบบอะไรละคับ

การทำปุ่มค้นหา 1 ใช้ textbox   2. commandbutton

Dim rsSearch As New ADODB.Recordset
Dim sqlSearch As String

"คำสั่งที่ใช้ค้นหา แบบนี้ ข้อมูลที่ใช้ค้นหาจะต้องตรงตัวทุกตัวอักษรถึงจะค้นหาเจอ
sqlSearch = sqlSearch & " where (ชื่อคีย์หลักหรือฟิลด์ที่ต้องการจะใช้ค้นหา) = '" & (ชื่อ textbox ที่เอาไว้สำหรับค้นหา) & "'"

"คำสั่งที่ใช้ค้นหา อีกแบบ ข้อมูลที่ใช้ค้นหาไม่จำเป็นจะต้องเหมือนกันหมดก็ได้ ค้นหาไม่กี่ตัวอักษรก้ได้
sqlSearch = sqlSearch & " where (ชื่อคีย์หลักหรือฟิลด์ที่ต้องการจะใช้ค้นหา) like '%" & (ชื่อ textbox ที่เอาไว้สำหรับค้นหา) & "%'"

    With Data
        If .State = adStateOpen Then .Close
            .ActiveConnection = Conn
            .CursorType = adOpenForwardOnly
            .CursorLocation = adUseClient
            .Open sqlSearch
            If .RecordCount <> 0 Then

        Text1.Text = .Fields("(ชื่อฟิลด์ที่นำมาแสดง)").Value
        Text2.Text = .Fields("(ชื่อฟิลด์ที่นำมาแสดง)").Value
        Text3.Text = .Fields("(ชื่อฟิลด์ที่นำมาแสดง)").Value
        Text4.Text = .Fields("(ชื่อฟิลด์ที่นำมาแสดง)").Value

        Else
           MsgBox "ไม่มีรายการที่ค้นหา !!!", vbOKOnly + vbInformation, "ผลการค้นหา"
            Exit Sub
        End If
    End With

ปล ถ้าไม่เข้าใจก็ถามต่อได้คับผม พอจะมีความรู้เรือง vb6.0

[Darker]

บอร์ดรวมคนเทพจิงๆ 

[ngohtitle]

การทำ login แล้วให้ชื่อผู้ที่ทำการ login ให้แสดงในทุกหน้าของ formmain
จำเป็นที่จะต้องใช้ปุ่ม StatusBar1 คล้ายๆ กับตอนที่เราใช้ explore ที่จะเห็นอยู่มุม ซ้ายมือล่างสุด

ส่วนนี้คือคำสั่งในปุ่มเดียว คือ ปุ่ม ตกลง
Dim sqlLogin As String
Dim classone As String 
     "ตรวจสอบ ชื่อผู้ใช้ txtlogin รหัสผ่าน txtpass ว่าเป็นค่าที่ว่างหรือไม่
     If (txtlogin = "" Or txtpass = "") Then 
        MsgBox "กรุณากรอกข้อมูลให้ครบ !!!", vbOKOnly + vbInformation, "ผิดพลาด"
        txtlogin = ""
        txtpass = ""
        txtlogin.SetFocus
    End If
        sqlLogin = "SELECT * FROM employee "   "เลือกข้อมูลในตารางพนักงานมาตรวจสอบ
        sqlLogin = sqlLogin & " WHERE (em_user='" & txtlogin.Text & "')"
        sqlLogin = sqlLogin & " AND (em_password='" & txtpass.Text & "')"
   
        With rsLogin
            If .State = adStateOpen Then .Close
            .ActiveConnection = Conn
            .CursorType = adOpenForwardOnly
            .CursorLocation = adUseClient
            .Open sqlLogin
           
                If .RecordCount <> 0 Then  "ตรวจสอบว่ามีข้อมูลหรือไม่ถ้ามี
                    txtname.Text = .Fields("em_name").Value   "แสดงชื่อ
             
                   กำหนดให้ชื่อและตำแหน่งไปแสดงใน statusbar1 ซึ่งไปติดตั้งไว้ในหน้าของ frmmain   
                  frmMain.StatusBar1.Panels.Item(1) = " ชื่อผู้ใช้ระบบ " & txtname.Text & " 
                   
                   modUseAll.dataname1 = txtname.Text   (เขียนคำสั่งนี้ Public dataname1 As String ในหน้าของ moduseall
                       
                        Load frmMain  (แสดงหน้าฟอร์มหลัก หรือฟอร์มเมนู)
                        Unload Me
                       
      End With