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.
Imports MySql.Data.MySqlClient
Public Class Form1
Dim Con As New MySqlConnection
Dim sqlConnString As String = "SERVER=localhost;DATABASE=shopi;uid=root;Connection Timeout=30;logging=True;Pooling=False;port=3306;"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
connectiontest()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
auslesen()
End Sub
Sub connectiontest()
Try
Con.ConnectionString = sqlConnString
Con.Open()
'Verbindungsstatus:
If Con.State = ConnectionState.Open Then
TextBox1.Text = "Verbindung zum Server war erfolgreich."
Else
TextBox1.Text = "Verbindung zum Server war NICHT erfolgreich."
End If
Catch ex As Exception
MsgBox("Fehler beim verbinden mit der datenbank")
End Try
Con.Close()
End Sub
Sub auslesen()
Try
Dim strSQL As String = "SELECT name from user WHERE id='1';"
Con.ConnectionString = sqlConnString
Con.Open()
Dim cmd As MySqlCommand = New MySqlCommand(strSQL, Con)
Dim ergebnis As String
ergebnis = cmd.ExecuteNonQuery
Catch ex As Exception
MsgBox("Fehler beim auslesen der datenbank")
End Try
Con.Close()
End Sub
End Class