Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Private Sub Form_Load()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim result As Long
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=123.456.789.101;" _
& "DATABASE=test;" _
& "UID=myuser;" _
& "PWD=mypass;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
conn.Open Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM report", conn, adOpenStatic, adLockReadOnly
'RECORDSET UND PFAD ZU ERZEUGTER DATEI UEBERGEBEN, TRUE/FALSE ZUM UEBERSCHREIBEN
result = CreateFieldDefFile(rs, App.Path & "\reportx", True)
If result Then
MsgBox "Datei " & App.Path & "\datax erfolgreich angelegt", vbInformation, "Fertig!"
Else
MsgBox "Erzeugen der ttx-Datei fehlgeschlagen!", vbCritical
End If
End Sub