แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Max

หน้า: [1] 2
1
หรือลองอีกวิธีมั๊ยครับ แต่ผมไม่เคยลองนะ Microsoft Azure


ได้ผลงัยบอกต่อกันด้วยนะถ้ามีใครเคยใช้อะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Max

2
ที่ผมใช้ครับ 1.ผมเช่าเซิร์ฟเวอร์
               2.ฐานข้อมูล MySQL
               3.ใช้ mysql connector odbc เป็นตัวเชื่อม access กับฐานข้อมูลครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Max

3
ได้ครับวิธีทำตามคลิปอ.Access-Creator
โพสต์นี้ได้รับคำขอบคุณจาก: Max

4
คุณอธิบายไม่ค่อยละเอียดเท่าไหร่ เลยไม่รู้ว่าคุณต้องการทำที่ส่วนไหน เอาที่ผมเข้าใจแล้วกันนะครับ ถ้าไม่ตรงตามต้องการก็ขออภัยด้วย ปรับใช้ดู
ในส่วนของรายงาน PrintJob1 คอนโทรลชื่อ Picture คุณต้องการให้แสดงรูปผู้สมัครใช่ป่าวครับ ถ้าใช่ให้เข้าไปที่รายงาน PrintJob1 มุมมองออกแบบ เลือกในส่วนของ Detail > On Print:
แล้วใส่โค้ดประมาณนี้ครับ

    If Not IsNull(Me.Text35) Then
        Me.Picture.PictureData = DLookup("Picture", "dbo_jobseil2", "IDCard=" & Me.Text35)
    Else
        Me.Picture.PictureData = Null
    End If

ลองดูครับ
ปล. ถ้าฟอร์มเชื่อมกับฐานข้อมูลตารางอยู่แล้วสามารถใช้เป็น
    Me.Picture.PictureData = [Picture]
ได้เลย ก็จะง่ายกว่า อยู่ที่การออกแบบครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Max

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

Public Function sPing(sHost As String) As String
    Dim oPing As Object, oRetStatus As Object
    Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & sHost & "'")
    For Each oRetStatus In oPing
        If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then
            sPing = "timeout" 'oRetStatus.StatusCode
        Else
            sPing = oRetStatus.ResponseTime
        End If
    Next
End Function

การใช้งาน
    sPing("192.168.1.7")
หรือใช้ชื่อเครื่องก็ได้เช่นกัน
    sPing("ชื่อเครื่องของฉัน")
 
Return
"45ms" = ติดต่อกับเครื่องเป้าหมายได้ใช้เวลา 45ms
"timeout" = ไม่พบเครื่องเป้าหมาย

หากมันไม่ timeout ก็ค่อยเขียนโค้ดดึงข้อมูลต่อไป ประมาณนี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Max

6
ห้อง MS Access / : ดูผลลัพธ์ loop ไม่ทัน
« เมื่อ: 27 เม.ย. 65 , 07:50:56 »
me.text1=1000
Do Until me.text1<=0
me.Refresh
DoEvents
me.text1=me.text1-1
loop

ใช่เลยครับ อาจารย์ ใช้ DoEvents ขอบคุณครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Max

7
ห้อง MS Access / : ดูผลลัพธ์ loop ไม่ทัน
« เมื่อ: 27 เม.ย. 65 , 04:46:28 »
ลองใส่ DoEvents ในลูปดูว่าตรงตามต้องการป่าว
โพสต์นี้ได้รับคำขอบคุณจาก: Max

8
ห้อง MS Access / : ดูผลลัพธ์ loop ไม่ทัน
« เมื่อ: 26 เม.ย. 65 , 22:35:19 »
me.text1=1000
Do Until me.text1<=0
me.Refrech
me.text1=me.text1-1
msgbox me.text1
loop
โพสต์นี้ได้รับคำขอบคุณจาก: Max

9
ห้อง MS Access / : การเก็บข้อมูล user ,password
« เมื่อ: 01 เม.ย. 65 , 01:34:03 »
คลิปอาจารย์เพิ่งทำ  ผมแปะกันลืมละกัน
โพสต์นี้ได้รับคำขอบคุณจาก: Max

10
code คุณ TTT ใช้ได้เลยครับ

Private Sub Command1_Click()
Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Set db = CurrentDb
    Set tdf = db.CreateTableDef("department")
   
    tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
    tdf.SourceTableName = "department"
    db.TableDefs.Delete "department"
    db.TableDefs.Append tdf

    Set tdf = db.CreateTableDef("vendor")
   
    tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
    tdf.SourceTableName = "vendor"
    db.TableDefs.Delete "vendor"
    db.TableDefs.Append tdf

    db.Close: Set db = Nothing
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Max

11
ตัวอย่างที่ผมเคยทำและเก็บไว้นะครับ แต่ผมใช้กับ SQL SERVER ไม่เคยลองกับ MySQL นะครับ

- ต้องการลิ้งค์ตารางชื่อ Table1 จาก SQL Server เข้ามายัง MS Access 
- ข้อมูล SQL SERVER
--------------------------
Server Name  : ASPIRE-ONE
Database Name: Demo
Login        : sa
Password     : Abc!23
--------------------------
 
<DAO>
'----------------Code Start----------------
Sub LinkSQL_DAO()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Set db = CurrentDb
    Set tdf = db.CreateTableDef("dbo_Table1") 'ชื่อตารางที่ลิ้งค์เข้ามาใหม่
    tdf.Connect = "ODBC;Driver=SQL SERVER;SERVER=ASPIRE-ONE;UID=sa;PWD=Abc!23;Database=Demo;"
    tdf.SourceTableName = "Table1" 'ชื่อตารางเป้าหมายที่เครื่อง SQL Server
    db.TableDefs.Append tdf
'-------- หากต้องการลิ้งค์เพิ่มอีกตาราง  -------------------- 
'    Set tdf = db.CreateTableDef("dbo_Table2")
'    tdf.Connect = "ODBC;Driver=SQL SERVER;SERVER=ASPIRE-ONE;UID=sa;PWD=Abc!23;Database=Demo;"
'    tdf.SourceTableName = "Table_2"
'    db.TableDefs.Append tdf
'--------------------------------------------------
'-------- หากต้องการลบลิ้งค์ตาราง  --------------------
'    db.TableDefs.Delete "dbo_Table1"
'--------------------------------------------------
    db.Close: Set db = Nothing
End Sub
'-----------------Code End-----------------
 
* หมายเหตุ: คำสั่งนี้จะไม่สามารถเซฟรหัสผ่านได้ ทุกครั้งที่เปิดไฟล์ฐานข้อมูล MS Access ใหม่แล้วเรียกลิ้งค์ตารางที่สร้างจะต้องใส่รหัสผ่านใหม่ในครั้งแรกเสมอ จึงเหมาะกับการใช้งานชั่วคราว หรืออาจต้องใช้คำสั่งลบลิ้งค์ตารางแล้วสร้างใหม่ทุกครั้งเมื่อเปิดไฟล์แทน
โพสต์นี้ได้รับคำขอบคุณจาก: Max

12
รายงานการต่ออายุโดเมนเป็นที่เรียบร้อยครับ :yuush:

เวลามันช่างผ่านไปไวยิ่งนัก :zzz:
โพสต์นี้ได้รับคำขอบคุณจาก: Max

13
เหมือนเคยตอบไปนานแล้ว ไม่รู้ว่าแนวเดียวกันหรือเปล่านะครับ ลองดูกระทู้นี้ครับ
https://www.thai-access.com/index.php?topic=344.0
โพสต์นี้ได้รับคำขอบคุณจาก: Max

14
ตามลิงก์นี้นะครับ

เข้าใจว่าเค้ามีตอบเอาไว้แล้ว

https://pantip.com/topic/33848161 link
โพสต์นี้ได้รับคำขอบคุณจาก: Max

15
ลองดูความเห็นนี้ครับ
https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=5120
โพสต์นี้ได้รับคำขอบคุณจาก: Max

16
ผมแปะลิงค์ช่องยูทูปของอาจารย์ TTT ใว้ใน กล่องข่าวด้านบน กับ แหล่งความรู้ & ประชาสัมพันธ์ ด้านล่างกดตามเข้าไปดูกันได้เลยครับผม :yuush:

หรือกดลิงค์จากที่นี่เลยก็ได้ครับ ->> ช่องยูทูปเรียนรู้การพัฒนาซอฟแวร์ฐานข้อมูล MS Access ด้วยตัวเอง By อ.TTT(Access-Creator)
โพสต์นี้ได้รับคำขอบคุณจาก: Max

หน้า: [1] 2