แสดงกระทู้

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 - พีระณัฐ สุขกำเนิด

หน้า: [1]
1
ขออนุญาตท่าน OddyWriter เอาไฟล์มาแก้ไขปรับปรุงครับ
ตัวนี้เสร็จเลยผมจำลองฐาน Person ที่มี cid มาให้เลยในตัว
กดปุ่มเดียวนำเข้าตรวจสอบอัพเดต status จบ
โพสต์นี้ได้รับคำขอบคุณจาก: Un

2
ห้อง MS Access / : อ้างชื่อไฟล์มาตรวจสอบในตาราง
« เมื่อ: เมื่อวานนี้ เวลา 13:31:15 »
โปรแกรมสำเร็จรูปที่ว่ามันอ่านทีละคน แล้วมาพักใน c:\temp ซึ่ง Cid จะเปลี่ยนไปเรื่อยๆ
พอเสร็จแล้ว CID นี้จะถูกลบไปไหม หรือมี่ไฟล์อื่นสะสมไปเรื่อยๆ
เพราะเวลาจะเขียนให้ acess กดปุ่มไปอ่านชื่อไฟล์ มันจะรู้ได้ไงว่าจะเช็คไฟล์ไหน
สมมติมีหลายไฟล์ งั้นก็ต้องกดปุ่มเพื่อ Browse ไป select เอาไฟล์นั้น ๆ
after update คือได้ชื่อไฟล์มาวางใน Text box แล้วค่อยส่งไปเช็คในตาราง
โพสต์นี้ได้รับคำขอบคุณจาก: Un

3
แอดไลน์ผมมาครับ ID : gerbkeeb จะคุยสะดวกกว่า ผมว่าไม่น่าจะยาก
โพสต์นี้ได้รับคำขอบคุณจาก: Un

4
ไม่ได้ตรวจสอบเรื่อยๆ ใช่ไหม ถ้าค้นไฟล์เดียวทำไมไม่เอาไปค้นใน Database โดยตรงเลย
หรือแต่ต้องการ code ในการแก้ปัญหาเฉยๆ เช่น เอา 13 หลักมา Input ใน Textbox แล้วไปค้นหาในฐานเลย หรือยังไง
โพสต์นี้ได้รับคำขอบคุณจาก: Un

5
หลักการคร่าวๆ คือผมแนะนำให้สร้าง batch file เพื่อรันคำสั่งนี้
dir /s /b *.txt  > ScanCID.txt
ผลลัพธ์ที่ได้คือ มันจะ scan ชื่อไฟล์นามสกุล .txt ทั้งหมดใน Folder
ไปเขียนลงใน textfile ชื่อ ScanCID.txt จะได้ผลลัพธ์ตามภาพ
จากนั้นเขียน code เพื่อวนลูปอ่าน textfile มาทีละบรรทัดแล้วตัดสตริงเอาเฉพาะ 13 หลัก
เพื่อส่งไปตรวจสอบ cid ในตาราง person ครับ
** พอดีผมมีไฟล์ภาพ อยู่ d:\photo เลยทำเป็นตัวอย่าง **
โพสต์นี้ได้รับคำขอบคุณจาก: Un

6
สรุปความต้องการคือ ตรวจสอบ textfile ที่เป็น 13 ทุกไฟล์ใน folder นั้นๆ ไล่ทีละไฟล์ว่ามี cid หรือยังโดยเทียบกับฟิลด์ cid ในตาราง person
เมื่อเช็คแล้วให้อัพเดตฟิลด์ Status ว่ามีหรือไม่มีใช่ไหมครับ
ประเด็นคือจะ Input ทีละไฟล์ไปตรวจสอบ หรือสแกนชื่อไฟล์ทั้งหมดไปตรวจสอบทีเดียว
โพสต์นี้ได้รับคำขอบคุณจาก: Un

7
ถ้าถมพื้นหลังเป็นสีขาวเลยได้ไหมครับ หรือว่ามันจะไปบังข้อมูลในฟอร์มส่วนอื่น
ลองใช้ photoshop สร้างฟอร์มพื้นหลังเป็น Transparent วางลายเซ็นต์แล้วตัดพื้นหลังสีขาวออก
แล้ว save as เป็น gif/tiff ดูครับน่าจะได้
โพสต์นี้ได้รับคำขอบคุณจาก: thekaihuo

8
ใช้ฐานข้อมูลเป็น MySQL แล้วเชื่อมต่อผ่าน ODBC ดีกว่าครับ เพราะสามารถ กำหนด max_connection  ให้สับสนุนการทำงานพร้อมๆกันได้ตามขนาด User ในองค์กร (เครื่อง A ก็ลง Appserve หรือ XAMPP ก็ได้)
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ

9
ช่องว่างอยู่ทุกตำแหน่งไหมครับ หรือแบบ pattern เดียวกันคือปิดท้ายเท่านั้น
ลองใส่ code นี้ดู
Private Sub Command1_Click()
  Dim SpacePos As Integer
            SpacePos = InStr(1, Text0, " ")
            If SpacePos = 0 Then 'ถ้าหาตำแหน่งช่องว่างไม่เจอ
               Text1 = Left(Text0, 12) 'ตัดเอาแค่ด้านซ้ายมา 12 หลัก
            Else 'ถ้าหาตำแหน่งช่องว่างเจอ
                Text1 = Left(Text0, 10) 'ให้ตัดแค่ด้านซ้ายมา 10 หลัก
            End If
End Sub
***หมายเหตุ*** บนฟอร์มกำหนด ค่า text0 เพื่อกรอก  text1 เพื่อแสดงผล/Command1 ใช้คลิกและใส่ code
โพสต์นี้ได้รับคำขอบคุณจาก: yot

10
แก้ไขกรณ๊เลือก folder เพื่อเก็บไฟล์ pdf ผมได้เขียน module เพิ่มเติมในการ Browser ไฟล์ให้ค่อยเอาชื่อไฟล์มาต่อ คิดว่าน่าจะตอบโจทย์
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ

11
แก้ไขกรณ๊เลือก folder เพื่อเก็บไฟล์ pdf ผมได้เขียน module เพิ่มเติมในการ Browser ไฟล์ให้ค่อยเอาชื่อไฟล์มาต่อ คิดว่าน่าจะตอบโจทย์
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ

12
ส่งไฟล์ตัวอย่างมาดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa, บังเลาะ มูดอ

13
ขอดูตัวอย่างฐานครับ
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ

14
จำนวนครั้งที่ ที่ว่า มีการ fix ไหมครับหรือว่าไปได้เรื่อยๆ เพราะนั่นหมายถึงจำนวนคอลัมน์ในตาราง B
โพสต์นี้ได้รับคำขอบคุณจาก: aphichet.p@gmail.com

หน้า: [1]