Messages

ตอบนี้ต้องยาวแน่ๆ เลยอ่ะครับยิ่ง จขกท. ไม่ค่อยได้จับ VB ด้วยนี้ไม่รู้จะเิริ่มยังไงดีเลย งั้นเอาแบบง่ายๆ ละกันนะครับ

Imports System.Data.OleDb
Imports System.Text
Public Class Form1
    Const _Constring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\tom\Desktop\ZeusSF.mdb"
    Dim _Table As New DataTable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim _StringBuilder As StringBuilder
        Dim _Con As OleDbConnection = New OleDbConnection(_Constring)
        Dim _Adapter As OleDbDataAdapter
        Dim _table As New DataTable
        Dim _BindingSource As New BindingSource
        _StringBuilder = New StringBuilder
        _StringBuilder.Append("SELECT ")
        _StringBuilder.Append("รหัส,")
        _StringBuilder.Append("ชื่อ,")
        _StringBuilder.Append("ชนิด,")
        _StringBuilder.Append("แหล่งที่อยู่อาศัย,")
        _StringBuilder.Append("ประวัติ ")
        _StringBuilder.Append("From สิ่งมีชีวิต order by รหัส desc")
        _Adapter = New OleDbDataAdapter(_StringBuilder.ToString, _Con)
        _Adapter.Fill(_table)

        _BindingSource.DataSource = _table
        '_BindingSource.DataMember = "สัตว์"
        DataGridView1.DataSource = _BindingSource
        ComboBox1.DataSource = _BindingSource
        ComboBox1.DisplayMember = "รหัส"
        TextBox1.DataBindings.Add("text", _BindingSource, "ชื่อ")
        TextBox2.DataBindings.Add("text", _BindingSource, "ชนิด")
        TextBox3.DataBindings.Add("text", _BindingSource, "แหล่งที่อยู่อาศัย")
        TextBox4.DataBindings.Add("text", _BindingSource, "ประวัติ")
        _Con.Close()
       
    End Sub

End Class

อันนี้เป็นการเชื่อมต่อระหว่าง Database กับ Control ต่างๆ แบบเบื่องต้น

Dim _Directory As DirectoryInfo
Dim _File As FileInfo
        _Directory = New DirectoryInfo("C:\Documents and Settings\tom\Desktop\TEST")
        For Each _File In _Directory.GetFiles
            If (_File.Attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then
                _File.Attributes = (_File.Attributes And Not FileAttributes.Hidden)
            End If
        Next

ซื้อหนังสือมา หรือ หา E-book มาประกอบการเขียนก่อนซักเล่มครับ แล้วทีนี้พอติดตรงไหนค่อยถามดีกว่าครับ แบบนี้มันกว้างมากอ่ะครับไม่รู้จะตอบยังไง
 

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

บอร์ดเงียบจังแฮะช่วงนี้

Now.ToString("dd MMMM yyyy", CultureInfo.CreateSpecificCulture("TH"))

หนังสือทุกเล่มมีสอนเรื่องการติดต่อ Database ครับ ลองทำตามดูก่อนถ้าไม่ได้หรือติดตรงไหนค่อยถามครับ ส่วนการเลือก Database ถ้าอาจารย์ให้ใช้ Access ก็ใช้เถอะครับเพราะมันจัดการง่ายที่สุดแล้ว

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

ดูเรื่อง MD5 ครับ แต่ทั้ง Driver นี้ตรวจสอบที่นึงกินเวลานานเลยทีเดียว

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

ดูที่ Properties TopMost ครับ

เขามา งง แบบให้มันเสนอหน้าอยู่ เหนือ Windows อื่นๆ หรอ