代码如下:
总是返回失败信息
数据库用其他工具是可以正常链接的。
Private Sub Button2_Click
Dim driver As String = "com.mysql.jdbc.Driver"
Dim jdbcUrl As String = " 数据库地址 "
Dim Username As String = " 用户名 "
Dim Password As String = " 密码 "
MysqlJdbc.InitializeAsync("EventMysql", driver, jdbcUrl, Username, Password)
Wait For EventMysql_Ready (Success As Boolean)
If Success = False Then
ToastMessageShow("数据库连接失败",False)
Button2.TextColor=Colors.Red
Else
ToastMessageShow("数据库连接成功",False)
tf=True
Button2.TextColor=Colors.Green
End If
End Sub