˹á
 úҹ
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  ͧͧ
 
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 Ẻ¹
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 ԡèҡ
  Դ...
  DoodeeHosting
  Ѻ͡Ẻ Ѳ䫵
  Freeware
  ѵҤɳ
  ª١
  ʶԵԼ
 Ŵ
 Ң
 дҹʹ
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
 
 дҹҹ
 ԧ
 ǡѺ
 ѵҤɳ
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
 (BerDee)
(Android)
駩غ
駩غ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ԴͺʹФѺ...
2015-07-29 13:35:58
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:33:54
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:32:51
  ԴͺФѺ
ҹ...

2014-01-06 12:47:38
  ѧҤ͹ ͧ֡ͧ...
2013-07-06 01:04:37
  ʹ觢ͺࢵҤҤҡ͹ФѺ...
2013-03-24 18:54:20
  ѧդѺҹԴѺ 08...
2012-12-16 19:18:14
  ʹ㨤 Դ 0905076277...
2012-11-12 11:07:46
  Ѻ礹ѡ֡ͺѷ
...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  [url=http://crystal-design....
2017-05-27 11:15:19
  [url=https://w-shop.cc/]...
2017-05-27 02:56:47
  ੾зҧҴ ͧҢ...
2017-05-25 16:18:08
  ͧ˹Ѻ os ...
2017-05-25 16:12:47
  ¹ php curl ...
2017-04-20 01:04:20
  ¹ ...
2017-03-27 12:50:54
  ʧҷ ͧѾഷ...
2017-03-27 12:37:20
  ͺõͺ...
2017-02-22 13:10:24
  ͧաԸ¹ recursive f...
2017-02-14 13:11:03
  ҡ кͧشҡ...
2017-01-30 11:45:28
  Homework comment
  ͧ ͧ ѧ ^^...
2017-04-18 18:40:46
  ͧ ͧ ѧ ^^...
2017-04-18 18:37:54
  á flowchart ѹ...
2017-04-18 17:43:33
  ҡ flowchart ...
2017-04-18 16:25:29
  kungking ӶäѺ ?...
2017-03-18 23:28:36
  ¹ʴͧ...
2017-03-06 10:56:25
  鴷ӧҹẺ ...
2016-09-06 01:00:12
  ҡҺ鴹Ѻѧ...
2016-09-05 09:31:27
  ͧ֡¹...
2016-04-22 00:47:49
  ἹѧͧѺѡ...
2016-04-21 19:24:55
  Article comment
  Ѻ س "Դ" ͧ֡...
2016-06-18 15:21:09
  vs2008 c# Ѻ ͺسѺ...
2016-06-17 14:39:30
  vs c# ӵآ鹵͹...
2016-06-17 14:37:44
  ͧѺ "Ҩԧ ...
2016-03-12 23:36:05
  觢ͤǧ LAN ੾Ф...
2016-03-12 18:25:42
  Terminal Mac ...
2016-02-16 11:02:01
  Terminal ͤ...
2016-02-16 05:58:21
  仵 ç¤Ѻ
2016-01-25 13:29:55
  ǹ!!! ͧä¹ App ...
2016-01-25 10:56:34
  ӵйӨش...
2016-01-20 23:30:25
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
 Webboard

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

з #3406 [Vb]

µǨͺ˹¤Ѻ ʴŨҡ᡹ѵ RFID

ǹͧʴŢͧ ѧҡ᡹ѵ դ TEXTBox ID ͧѵ ҡ¤ ͢ѹǼѹԴͰҹ ҵçѹ ŵҧ ѭҤ ѧҡ᡹ѹäá ÷ѴǷçѺѵ ʹ蹷çѹѺ й Ѻ

With RC
If tx_kh.Text = .Fields("ID") Then
Text1.Text = .Fields("ID").Value
Text2.Text = .Fields("name").Value
Text3.Text = .Fields("name2").Value
Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End With
ҡس : Luffy / akasitcoonat@hotmail.com [2013-03-24 15:51:22]  

101.108.12.5 Դ #28802 (ҡ IP: 101.108.12.5)
ͧ debug ͧѺ ͧ msgbox ҷͧõǨͺ ҡкǹӧҹ١
ҡس : maddog [2013-03-24 22:16:45]

58.11.6.120 Դ #28803 (ҡ IP: 58.11.6.120)
ͧպѤǤѺ ҷ ѹҹ ѹҹҡѵ ѹǨͺѺҹ ѹçѹ ŢçѹѺҹ
ҡس : Luffy / akasitcoonat@hotmail.com [2013-03-25 23:35:44]

58.8.21.184 Դ #28804 (ҡ IP: 58.8.21.184)
觷͹ ѹҹѵء ѭҤ͡кǹõǨͺѺҹ㹺ҧ

Ҥ º ׹ѹ㹰ҹš բػҧ 1. SQL ١ͧ(ͧͧ sql ҷͺ) 2.ŷ㹰ҹբ蹻(Ҩѡоɷʴ) ͧͧ͹价Ѻ Ƿͺ
ҡس : maddog [2013-03-26 09:57:19]

58.9.201.40 Դ #28806 (ҡ IP: 58.9.201.40)
˹¤Ѻ ҼԴç˹

Option Explicit
Dim flag As Boolean
Dim Conn As New ADODB.Connection
Dim RC As New ADODB.Recordset
Dim SQL As String
Const strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False"
'᡹
Private Sub Command1_Click()
Dim i&, j%, port&, baud&, buf1(200) As Byte, b1 As Byte, s1$, b3 As Byte, buf2(200) As Byte
Command6.Enabled = True
Timer1.Enabled = True
i = rf_request(0, &H52, j)
If (i <> 0) Then
lb_info.Caption = "س᡹ѵ"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
tx_kh.Text = ""
Exit Sub
End If
'Anticollision
i = rf_anticoll(0, 4, buf1(0), b1)
If (i <> 0) Then
lb_info.Caption = "Anticollision Fail!"
Exit Sub
End If
s1 = ""
For i = 0 To b1 - 1
s1 = s1 & Right("00" & Hex(buf1(i)), 2)
Next i
tx_kh.Text = s1
'Select card
i = rf_select(0, buf1(0), 4, b1)
If (i <> 0) Then
lb_info.Caption = "س᡹ѵ"
Exit Sub
Else
lb_info.Caption = ""
End If
'ǹѧҡҹѵ÷᡹ººѺҵ
With RC
If tx_kh.Text = .Fields("ID") Then
Text1.Text = .Fields("ID")
Text2.Text = .Fields("name")
Text3.Text = .Fields("name2")
Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End With
End Sub

Private Sub Timer1_Timer()
Command1_Click
End Sub

Private Sub Form_Load()
Command6.Enabled = False
SSTab1.Tab = 0
Command12.Enabled = True
Command13.Enabled = False
cb_ckh.ListIndex = 0
cb_btl.ListIndex = 0
'.ҹ
With Conn
If .State = 1 Then .Close
.ConnectionString = strConn & ";Data Source=" & App.Path & "\db\new.mdb"
.Open
End With

'Դҧ
With RC
SQL = "SELECT * FROM Table1 where ID"
If .State = 1 Then .Close
.CursorLocation = adUseNone
.Open SQL, Conn, adOpenKeyset, adLockReadOnly

End With
End Sub
ҡس : Luffy / akasitcoonat@hotmail.com [2013-03-28 01:12:54]

58.8.194.148 Դ #28807 (ҡ IP: 58.8.194.148)
ǹҹҵҧ RC ҤѺ ѹ֧ººФ recordset áẺ

Do While Not RC.EOF
With RC
.
.
End With
RC.MoveNext
Loop
ҡس : maddog [2013-03-28 11:27:44]

115.87.151.38 Դ #28808 (ҡ IP: 115.87.151.38)
ç Ѻ

Do While Not RC.EOF
With RC
If tx_kh.Text = .Fields("IDx") Then
Text1.Text = .Fields("IDx")
Text2.Text = .Fields("name")
Text3.Text = .Fields("name2")
Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End With
RC.MoveNext
Loop

ѧ͹¤Ѻ ͧ SQL Access дҵԴ ??
ҡس : Luffy [2013-03-28 23:59:23]

58.8.170.156 Դ #28809 (ҡ IP: 58.8.170.156)
Exit While ͡ҡǹٻ
෤Ԥ㹡 debug msgbox ¹ФѺ



Do While Not RC.EOF
With RC
If tx_kh.Text = .Fields("IDx") Then
Text1.Text = .Fields("IDx")
Text2.Text = .Fields("name")
Text3.Text = .Fields("name2")
Exit While
Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End With
RC.MoveNext
Loop
ҡس : maddog [2013-03-29 11:36:27]
ͺз
´

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 
 
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI)
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI) ´дѺ 4K
ŧ Mini DisplayPort to HDMI Adapter ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
µٿѧ Ъ Ѻ iPhone 7  7 Plus
µٿѧ Ъ Ѻ iPhone 7 7 Plus
ŧҡ USB-C Type  USB 3.1 Ѻ MacBook
ŧҡ USB-C Type USB 3.1 Ѻ MacBook
䢤ǧѺͧ Macbook Air/Pro
䢤ǧ Ѻͧ Macbook Air/Pro (300ҷ)
HDMI  3 ͡  1
HDMI 3 ͡ 1 (350ҷ)
Ի͹¹
¹¹ͷ
¹¹͹´
¹¹
¹¹ վʾ
¹¹
¹ҹԹء
¹¹Թ⿹
¹¹Ϊ ʤ
9M Blog ͧ͡ ¹ͧ
ԡ ҾѺԭ
OrmSin.com: ˹ѧͧҹ--չ (country crafts)
ѵҤɳ
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
ẺǨ
Freelance ѺѲ

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

ʧǹԢԷ Ѵ͡ ӫ Ѵŧ ٻẺ Ѻ͹حҵѡɳѡ
Ţ¹ҳԪ硷͹ԡҡзǧҳԪ: 7100503002000
Copyright 2001 SourceCode.in.th