Buenas! Bueno estoy intentando conectar con una base de datos y ejecutar un INSERT INTO a modo de testeo, pero me saca una excepción diciéndome que no existe conexión establecida.
Este es el code:
A ver si me podeis hechar una mano!! Gracias!!!
Este es el code:
Código (vbnet) [Seleccionar]
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class ConexBD
Public Sub conectar(ByVal email As String, ByVal code As String) 'Metodo que establece la conexion con la base de datos
Try
Dim cmd As New SqlCommand
Dim con As New SqlConnection("Server=mysql.000webhost.com ; User Id=a2906687; Password=; Database=a2907")
cmd.Connection = con
cmd.CommandText = "INSERT INTO test (email,code) VALUES ('test','testcode')"
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString(), MsgBoxStyle.Critical)
End Try
End Sub
End Class
A ver si me podeis hechar una mano!! Gracias!!!