˹á
 úҹ
  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
 
 eMbedded Visual Basic Tutorial  

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

 eMbedded Visual Basic
 
 

4 Сȵ ѧ蹡èѴðҹ

 

鹵͹鹨ҡûСȵ ҧ ѧ㹡õǨͺ ҹ͹˹ ҡҹ ѧ蹡Ф׹ True (ԧ) Ѻ жҡԧ Ф׹ False () Ѻ

ҡ 繡ҧѧ ҧѺਤ

    • connOpen 繿ѧ 㹡ҧõԴ͡Ѻҹ
    • connClose 繿ѧ 㹡õѴõԴ͡Ѻҹ
    • ExecSQL 繿ѧ 㹡÷ӧҹ SQL
    • DBExists 繿ѧ 㹡õǨͺҹ աҧ͹˹
    • DispErrors() sub 㹡ʴŢͼԴҴ
  • Сȵ 纤Ңͧͧҹ ǹͧ General Declarations е йਤ ѧҧ
Option Explicit
Const gDBFileSpec = "\My Documents\test.cdb"

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3

Public conn As ADOCE.Connection
  • ҧѧ connOpen ͷӡõԴ͡Ѻҹ


Function connOpen() As Boolean
  
  On Error Resume Next
  
  connOpen = True
  
  If conn Is Nothing Then
    Set conn = CreateObject("ADOCE.Connection.3.0")
    conn.Open gDBFileSpec
    If conn.Errors.Count > 0 Then
      MsgBox "errors in connOpen", vbOKOnly
      DispErrors
      connOpen = False
    End If
  End If
  
  On Error GoTo 0
    
End Function

ѧ connOpen 鹨ҡ ûС On Error Resume Next öӧҹ ԴͼԴҴԴ ͨҡ鹨зӡõǨͺ աõԴͰҹš͹˹ ( conn դ ҧ Nothing) õԴͰҹ͹ ӡҧ õԴͼҹҧҧ ͻ ADOCE.Connection.3.0 ѧҡ鹨еǨͺͼԴҴԴ ҡԴͼԴҴ зӡʴͤ ʴ´ҹҧ DispErrors 駡˹觡Ѻͧѧ 繤 False кǹ÷¡ ѧ Һ öҧõԴͰҹ

  • ҧѧ connClose ͵ѴõԴ͡Ѻҹ


Sub connClose()
  
  On Error Resume Next
  conn.Close
  Set conn = Nothing
  On Error GoTo 0

End Sub

͵ѴõԴ͡Ѻҹ ʹ Close źҢͧ conn 繤ҧ

  • ҧѧ ExecSQL ҹ ӵ SQL


Function ExecSQL(paramSQL As String, paramSuccess As String, paramErr As String) As Boolean
  
  If DBExists(gDBFileSpec) = True Then
  
    connOpen
    On Error Resume Next
    conn.Execute (paramSQL)
    On Error GoTo 0
    If conn.Errors.Count > 0 Then
      ExecSQL = False
      txtDB.Text = paramErr
    Else
      ExecSQL = True
      txtDB.Text = paramSuccess
    End If
    connClose
  
  Else
    
    MsgBox "Database " & gDBFileSpec & " does not exist!", vbOKOnly, "No database"
  
  End If

End Function

÷ӧҹҡõǨͺҹ ҹ ա駢ͼԴҴ ҡ ҹ зӡҧõԴ ѧҡ鹨зӡҹŷӧҹ SQL öҹ , ź, ʴ ͡

  • ҧѧ DBExists 㹡õǨͺҹ աҧ͹˹
Private Function DBExists(paramFileSpec As String) As Boolean
 
  If FileSystem1.Dir(paramFileSpec) <> "" Then
    DBExists = True
  Else
    DBExists = False
  End If

End Function

÷ӧҹ繡õǨͺ ʹ Dir ͧ FileSystem1 ӡҧ´ѺŤԡ ҧ캹 Form ҡ鹵͹á ҹ ѧ蹹 觤ҡѺ True (ԧ) ҹ 觤ҡѺ False () 辺 ҹ

  • ҧ Sub DispErrors 㹡ʴŢͼԴҴԴ
Sub DispErrors()
Dim dispErr As String
Dim arb1 As Integer
Dim arb2 As Integer
Dim ADOErr As ADOCE.Error

  For arb1 = 0 To conn.Errors.Count - 1
    Set ADOErr = conn.Errors(arb1)
    dispErr = "desc = " & ADOErr.Description & vbCrLf
    dispErr = dispErr & "number = " & Hex(ADOErr.Number) & vbCrLf
    dispErr = dispErr & "nativeerror = " & ADOErr.NativeError & vbCrLf
    dispErr = dispErr & "source = " & ADOErr.Source
    MsgBox dispErr, vbCritical, strTitleBar
  Next arb1

End Sub

õǨͺͼԴҴ ͧ sub СзӼҹҧ Property ҧͧ ADOErr ѺҨҡ ͼԴҴͧ conn (Ҩҡ conn.Errors) ¡ ¡ǹٻ ʹ֧¡âͼԴҴ ʴ

աҹ On Error Resume Next öӧҹԴͼԴҴ ա On Error GoTo 0 ش㹡÷ӧҹ ҡ Resume Next 繡ش÷ӧҹ ѧ鹨 ա觧ҹͧش觷ͧ ѹ 㹵ҧ

 

BACK

µͨ Ѻͧ 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