Zufälliger Artikel

Problemstellung:

Wie kann ich einen Feldnamen mittels ADO(X) ändern?
{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} 

Public Sub NewFieldNameADOX(strTableName As String, strFieldName As String, strNewFieldName As String)
'*******************************************
'Name:      NewFieldNameADOX   (Sub)
'Purpose:   Ändert den Name eines Feldes in der gewählten DB mittels ADOX
'Author:    Tommyk
'Date:      Februar 29, 2004, 03:32:46
'Inputs:    strTableName=Name der gewählten Tabelle,
'           strFieldName=Name des Feldes,strNewFieldName=Neuer Name des Feldes
'Output:
'*******************************************
On Error GoTo ErrHandler
Dim cn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As ADOX.Column
Set cn = CurrentProject.Connection
Set cat.ActiveConnection = cn
Set tbl = cat.Tables(strTableName)
Set col = tbl.Columns(strFieldName)
    col.Name = strNewFieldName
    tbl.Columns.Refresh
ExitHere:
    Exit Sub
ErrHandler:
    Dim strErrString As String
    strErrString = "Error Information..." & vbCrLf
    strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
    strErrString = strErrString & "Description: " & Err.Description
    MsgBox strErrString, vbCritical + vbOKOnly, "Error in Sub: NewFieldNameADOX"
    Resume ExitHere
End Sub

Aufruf:

Call NewFieldNameADOX("tblNeu", "fld_Test2", "fld_NewTest2")

würde eine Tabelle "tblNeu" das Feld "fld_Test2" in "fld_NewTest2" umbenennen.

Ähnliche Artikel

Home

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

Problemstellung:
Versenden von E-Mails mit Dateianhängen aus MS-Access heraus ohne automatisierungsfähiges E-Mailprogramm (z.B. Outlook)

Voraussetzungen:
Das Bsp ist ab A97 lauffähig

Funktionsweise:
Die Realisierung erfolgt mittels der CDO-Message Library von MS.
Update: Zugangsdaten bei Freemailern können angegeben werden.
Folgende Angaben müssen aber vorgegeben werden:

Adresse des SMTP-Servers
Username (optional)
Passwort (optional)
SSL-Verschlüsselung (optional)
Authentifizierung erforderlich (optional)
E-Mail Adresse des Absenders (muss aber mit der Adresse des SMTP-Server übereinstimmen, kein Fake möglich)
E-Mail-Adresse des oder der Empfänger auch CC-Empfänger
Betreff
E-Mail Text
Dateianhang oder mehrere

Integriert ist ein Prüfung ob ein Connect mit dem Internet besteht und ob die angegebenen E-Mail Adressen
gültig von der Schreibweise her sind.
Da dieses Beispiel sehr komplex ist, bitte alle weiteren Angaben aus der Bsp-DB entnehmen.

Dateien:

Versenden von E-Mails mit Dateianhängen mittels CDO-Message Library

ab A97

Die Zip-Datei enthält ein Version für A97 und eine ab A00

Datum 05.02.2018
Dateigröße 159.74 KB
Download 2.959

Ä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