conectar visual basic con mysql
Dim Pacha as New ADODB.Connection
Public PubSrv01 As String ' Servidor de la BBDD
Public PubBd01001 As String'Nombre BBDD
PubSrv01 = "W2000"
PubBd01001 = "Pacha"
Pacha.ConnectionTimeout = 25
Pacha.Provider = "MySQLProv"
Pacha.Properties("Location").Value = PubSrv01
Pacha.Properties("Data Source").Value = PubBd01001
Pacha.Properties("Integrated Security").Value = "SSPI"
Pacha.Properties("User ID").Value = "root"
Pacha.Properties("Password").Value = ""
Pacha.Open
Public PubSrv01 As String ' Servidor de la BBDD
Public PubBd01001 As String'Nombre BBDD
PubSrv01 = "W2000"
PubBd01001 = "Pacha"
Pacha.ConnectionTimeout = 25
Pacha.Provider = "MySQLProv"
Pacha.Properties("Location").Value = PubSrv01
Pacha.Properties("Data Source").Value = PubBd01001
Pacha.Properties("Integrated Security").Value = "SSPI"
Pacha.Properties("User ID").Value = "root"
Pacha.Properties("Password").Value = ""
Pacha.Open
