Zufälliger Artikel

Problemstellung:

Wie kann ich eine Tabelle mittels ADO(X) erstellen?
{xtypo_alert}
Verweis auf die Microsoft ActiveX Data Objects 2.X Library erforderlich
Verweis auf die Microsoft ADO Ext. 2.X for DDL and Security Library erforderlich

{/xtypo_alert}

Sub NewCreateTableADOX(strNewTabName As String)
'*******************************************
'Name:      NewCreateTable (Sub)
'Purpose:   Erstellt eine neue Tabelle in der aktuellen Datenbank mittels ADOX
'Author:    Thomas Keßler
'Date:      Dezember 01, 2002, 10:00:15
'Inputs:    NewTabName = Name der neuen Tabelle,
'Output:
'*******************************************
On Error GoTo Err_NewTable
Dim cn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Set cn = CurrentProject.Connection
Set cat.ActiveConnection = cn
Set tbl = CreateObject("ADOX.Table")
    tbl.Name = strNewTabName
    cat.Tables.Append tbl
    
Set cat = Nothing
cn.Close
Err_NewTable_Exit:
    Exit Sub
Err_NewTable:
    Dim strErrString As String
    strErrString = "Error Information..." & vbCrLf
    strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
    strErrString = strErrString & "Description: " & Err.Description & vbCrLf
    MsgBox strErrString, vbCritical + vbOKOnly, "Error in Sub: NewCreateTableADOX"
    Resume Err_NewTable_Exit
End Sub
 
{xtypo_info} Im Gegensatz zu DAO ist es mit ADO(X) auch möglich, eine Tabelle ohne ein Feld zu erstellen!{/xtypo_info}

Aufruf:

Call NewCreateTableADOX("tbl_NewTest")

würde eine Tabelle "tbl_NewTest" erstellen.

Ähnliche Artikel

Home

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Problemstellung:

Wie kann ich mittels VBA die NumLock-Taste ein- bzw. ausschalten?
Für MS-Access00-07

Code in ein neues öffentliches Modul kopieren:

Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
 
Private Declare Sub keybd_event Lib "user32" _
     (ByVal bVk As Byte, _
     ByVal bScan As Byte, _
     ByVal dwflags As Long, _
     ByVal dwExtraInfo As Long)
 
Private Declare Function GetKeyboardState Lib "user32" _
         (pbKeyState As Byte) As Long
 
Private Declare Function SetKeyboardState Lib "user32" _
         (lppbKeyState As Byte) As Long
 
Function SetNumLock(bStatus As Boolean) As Boolean
   Dim R As Variant
   Dim NumLockOn As Boolean
   Dim KeyTable(0 To 255) As Byte
 
  R = GetKeyboardState(KeyTable(0))
   NumLockOn = (KeyTable(VK_NUMLOCK) <> 0)
 
  If (bStatus And Not NumLockOn) Or _
               (Not bStatus And NumLockOn) Then
       keybd_event VK_NUMLOCK, _
       &H45, _
       KEYEVENTF_EXTENDEDKEY Or 0, 0
       keybd_event VK_NUMLOCK, _
       &H45, _
       KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
   End If
End Function

Aufruf:

SetNumLock False

würde die NumLock-Taste ausschalten

SetNumLock True

würde die NumLock-Taste einschalten

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png1.png3.png6.png8.png
Heute19
Gestern75
Diese Woche417
Dieser Monat1301
Total1191368

  • IP: 54.81.71.187
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

21. April 2018