Tutoriales gratuitos para el aprendizaje de la programacion informatica! Recuerda que si lo puedes imaginar... lo puedes programar!

Conectar e Instalar datos Mysql desde ASP.NET

En el archivo web.config agregar la instancia de tu servidor.

<CONNECTIONSTRINGS>
<ADD NAME = "CONEXION" CONNECTIONSTRING="SERVER=LOCALHOST;USER ID=USUARIO; PASSWORD=123;PERSIST SECURITY INFO=TRUE; DATABASE=BD" />
  </CONNECTIONSTRINGS>
   <System.Web>


En donde conexión se va a llamar tu cadena para enlazar tu bd asi cuando vayas a insertar o hacer lo que deseas solo debes llamar a la instrucción conexión para insertar, actualizar, etc.

Nota: debes bajar el driver (conector de mysql/.net)



Lo instalas depende si tu maquina es de x86 o x64


Haces tu base de datos en mysql con un usuario y contraseña los que colocaste en tu cadena de conexión en el web.config en todos los formularios que vas a programar, vas a tener que importar el conector o librería que instalaste te vas hasta arriba y le das:

Imports MYSQL.DATA.MYSQLCLIENT
Imports System.Data
Imports MYSQL.DATA

'SIEMPRE DEBERÁS IMPORTAR A ESTOS PARA QUE TU .NET  INTERACTUE CON MYSQL

Insertar datos a mysql desde asp.net


Imports MYSQL.DATA.MYSQLCLIENT
Imports MYSQL.DATA
Imports System.Data

Partial Public Class _DEFAULT
    Inherits System.Web.UI.PAGE
    Dim CADENA As String = CONFIGURATIONMANAGER.CONNECTIONSTRINGS("CONEXION").CONNECTIONSTRING
    Protected Sub BUTTAGREGAR_CLICK(ByVal SENDER As Object, ByVal E As System.EventArgs) Handles BUTTAGREGAR.CLICK
        Try
            Dim CN As New MYSQLCONNECTION(CADENA)
            Dim QUERY As New MYSQLCOMMAND
            Dim RES As Integer
            CN.OPEN()
            QUERY.COMMANDTYPE = Data.CommandType.Text
            QUERY.COMMANDTEXT = "INSERT INTO PERSONA(NOMBRE,APELLIDO,DIRECCION,TELEFONO)VALUES('" & TBNOMBRE.TEXT & "','" & TBAPELLIDO.TEXT & "','" & TBDIRECCION.TEXT & "','" & TBTEL.TEXT & "')"
            QUERY.CONNECTION = CN
            RES = QUERY.EXECUTENONQUERY()
            If RES <> 0 Then
                MsgBox("LA  OPERACIÓN SE EJECUTO EXITOSAMENTE", MsgBoxStyle.Information)
                TBNOMBRE.TEXT = ""
                TBDIRECCION.TEXT = ""
                TBAPELLIDO.TEXT = ""
                TBTEL.TEXT = ""
            Else
                MsgBox("NO SE HA PODIDO GUARDAR EL REGISTRO", MsgBoxStyle.Critical)
            End If
        Catch EX As Exception
            MsgBox(EX.Message)
        End Try
    End Sub

No hay comentarios:

Publicar un comentario