กระทู้เก่าบอร์ด อ.Yeadram
3,274 11
URL.หัวข้อ /
URL
อยากทราบชื่อเครื่องในโปรแกรมที่เขียนด้วย Access 20
ขอความช่วยทุกท่าน ผมต้องการ ดึงชื่อเครื่องให้มาแสดงในโปรแกรม Access ที่ผมเขียนขึ้นมา โดยจะเก็บชื่อเครื่องไว้ในฐานข้อมูล แต่ไม่ทราบคำสั่ง ในการดึงชื่อเครื่องมาใช้งานได้อย่างไร
เรียน ถามอาจารย์ทุกท่าน ใช้คำสั่งอะไร ต้องเขียนแบบไหนครับ
เรียน ถามอาจารย์ทุกท่าน ใช้คำสั่งอะไร ต้องเขียนแบบไหนครับ
11 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R04610
แปะไม่ได้ครับ เอามาใส่แล้วใช้ไม่ได้ครับ รบกวนอาจารย์ช่วยส่ง files ตัวอย่าง มาให้หน่อยได้ไหมครับ
(ผมทำใน Microsoft Access 2003 ครับ)
(ผมทำใน Microsoft Access 2003 ครับ)
3 @R04612
ใช้คำสั่ง
Environ("ComputerName")
เช่น msgbox Environ("ComputerName")
นอกจาก คำว่า ComputerName แล้วยังมีอีกหลายคำที่คุณสามารถใช้ Environ() ค้นหาได้ เช่นคำว่า
UserName
SystemDrive
OS
Windir
ฯลฯ
Environ("ComputerName")
เช่น msgbox Environ("ComputerName")
นอกจาก คำว่า ComputerName แล้วยังมีอีกหลายคำที่คุณสามารถใช้ Environ() ค้นหาได้ เช่นคำว่า
UserName
SystemDrive
OS
Windir
ฯลฯ
4 @R04862
ขอบคุณ user : Yeadram ที่ให้คำแนะนำครับ
คำสัี่งพวกนี้ จะหาอ่านได้ที่ไหนบ้างครับ มี Web หรือคู่มือ แนะนำหรือไม่ครับ
คำสัี่งพวกนี้ จะหาอ่านได้ที่ไหนบ้างครับ มี Web หรือคู่มือ แนะนำหรือไม่ครับ
5 @R04868
ลองพิมพ์คำว่า
"Ms Access โปรแกรมสุดหวง"
ในGoogle ก็จะเจอลิงค์แรก ไปลองดาวน์โหลดใช้ดูครับ แต่มันมีวิธีแก้อะไรสักอย่างอยู่ดี ผมเองก็ไม่รู้เหมือนกัน :-P
"Ms Access โปรแกรมสุดหวง"
ในGoogle ก็จะเจอลิงค์แรก ไปลองดาวน์โหลดใช้ดูครับ แต่มันมีวิธีแก้อะไรสักอย่างอยู่ดี ผมเองก็ไม่รู้เหมือนกัน :-P
6 @R04904
รบกวนถามอาจารย์ครับว่า
Environ ให้แสดง Mac Ip ได้มั๊ยครับ
Environ ให้แสดง Mac Ip ได้มั๊ยครับ
7 @R04905
พอดีไปเห็นหน้านี้ครับ แต่ไม่ค่อยเข้าใจครับ รบกวนช่วยอธิบายครับ หากมันใช้ไม่ได้กับMs Access ก็ไม่เป็นไรครับ
ขอบพระคุณครับ
ขอบพระคุณครับ
8 @R04906
ลืมใส่ Addressครับ
http://vbnet.mvps.org/index.html?code/network/macaddress.htm
http://vbnet.mvps.org/index.html?code/network/macaddress.htm
9 @R04907
จากคำว่า
To a form add a command button (Command1), and a text box (Text1). Labels and frames are optional. Add the following:
ผมได้สร้าง ฟอร์มมาฟอร์มหนึ่ง และ a command button (Command1), and a text box (Text1).
แต่ตรงนี้
Labels and frames are optional. Add the following
ผมไม่เข้าใจครับอาจารย์ รบกวนอาจารย์ช่วยอธิบายด้วยนะครับ
ขอบพระคุณครับ
To a form add a command button (Command1), and a text box (Text1). Labels and frames are optional. Add the following:
ผมได้สร้าง ฟอร์มมาฟอร์มหนึ่ง และ a command button (Command1), and a text box (Text1).
แต่ตรงนี้
Labels and frames are optional. Add the following
ผมไม่เข้าใจครับอาจารย์ รบกวนอาจารย์ช่วยอธิบายด้วยนะครับ
ขอบพระคุณครับ
10 @R04909
ตอบคุณเกรียงไกร
ผมก็ค้นๆ มาเหมือนกันครับ
เลยใช้มาตลอด 2-3ปีมานี้แหละครับ ใช้อยู่ไม่กี่ตัว พอคุณเกรียงไกรถามมา ก็เลย ลองค้นอีกทีครับ
ลองดูลิงค์นี้นะครับ
http://www.utteraccess.com/forums/printthread.php?Board=53&main=693880&type=post
คุณ BenTen ครับ
คำถามแรก จะหาไอพีได้อย่างไร ผมค้นมาให้ครับ ดูตามลิงค์นี้นะครับ
http://www.utteraccess.com/forums/printthread.php?Board=53&main=693880&type=post
ส่วนคำถามที่สอง ผมคิดว่า คงต้องตามเข้าไปอ่านดีกว่า อาจจะตอบได้ตรงประเด็น ก็เลยลองเข้าไปตามลิงค์ที่คุณ BenTen ให้มา โอ้วววว ยาวจัง ไม่ค่อยจะคล่องภาษาอังกฤษเท่าไหร่ ขอยอมแพ้ไว้ก่อนครับ คิดว่า คำตอบของคำถามแรกน่าจะช่วยได้แล้วล่ะครับ หรือไม่ ยังไงก็ลองแจ้งอีกทีครับ
ผมก็ค้นๆ มาเหมือนกันครับ
เลยใช้มาตลอด 2-3ปีมานี้แหละครับ ใช้อยู่ไม่กี่ตัว พอคุณเกรียงไกรถามมา ก็เลย ลองค้นอีกทีครับ
ลองดูลิงค์นี้นะครับ
http://www.utteraccess.com/forums/printthread.php?Board=53&main=693880&type=post
คุณ BenTen ครับ
คำถามแรก จะหาไอพีได้อย่างไร ผมค้นมาให้ครับ ดูตามลิงค์นี้นะครับ
http://www.utteraccess.com/forums/printthread.php?Board=53&main=693880&type=post
ส่วนคำถามที่สอง ผมคิดว่า คงต้องตามเข้าไปอ่านดีกว่า อาจจะตอบได้ตรงประเด็น ก็เลยลองเข้าไปตามลิงค์ที่คุณ BenTen ให้มา โอ้วววว ยาวจัง ไม่ค่อยจะคล่องภาษาอังกฤษเท่าไหร่ ขอยอมแพ้ไว้ก่อนครับ คิดว่า คำตอบของคำถามแรกน่าจะช่วยได้แล้วล่ะครับ หรือไม่ ยังไงก็ลองแจ้งอีกทีครับ
11 @R04917
ขอบคุณครับ อาจารย์
ช่วงนี้ผมคงใช้แบบเช็คCPUไปก่อนครับ
ขอบพระคุณครับ
ช่วงนี้ผมคงใช้แบบเช็คCPUไปก่อนครับ
ขอบพระคุณครับ
Time: 0.3993s
สร้าง form และ สร้าง command button ขึ้นมา 1 อัน ( command0)
แล้ว เอา code ข้างล่าง นี้ไปแปะดู
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command0_Click()
Dim dwLen As Long
Dim strString As String
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)
Command0.Caption = strString
End Sub