none
Error al abrir mi cadena de conexion con sql azure RRS feed

  • Pregunta

  • Hola tengo un error al momento de abrir mi cadena de conexion. el error me sale cuando ejecuto el conexion.open y el mensaje es el siguiente:
    Cannot open server 'gdpw6i2ain' requested by the login. Client with IP address '190.42.212.82' is not allowed to access the server. Login failed for user 'miconsa'. 

    EN LA CADENA DE CONEXION NO LES HE MANDADO MI PASSWORD. PORQUE ES PRIVADO.

    Imports System.Data.SqlClient
    
    Public Class Frm_SQL_Azure
        Dim conexion As New SqlConnection("Server=tcp:gdpw6i2ain.database.windows.net;Database=Michael;User ID=miconsa;Password= ;Trusted_Connection=False;")
    
        Private Sub CmdCrearTabla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCrearTabla.Click
           
            Dim consulta As New SqlCommand _
            ("CREATE TABLE Cliente(ID int IDENTITY(1,1), Nombre nvarchar(50) Not Null, Paterno nvarchar(50) Null, Materno nvarchar(50) Null)", conexion)
            Try
                conexion.Open()
                consulta.ExecuteNonQuery()
                conexion.Close()
                MsgBox("Tabla Creada Correctamente")
            Catch ex As Exception
                conexion.Close()
                MsgBox(ex.Message)
            End Try
        End Sub
    
        Private Sub CmdInsertarDatos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdInsertarDatos.Click
            Dim Cluster As New SqlCommand _
            ("Create Clustered Index CIX_Cliente ON Cliente(ID)", conexion)
            Dim consulta As New SqlCommand _
            ("INSER INTO Cliente (Nombre, Paterno, Materno) values ('Michael', 'Contreras', 'Salazar')", conexion)
            Try
                conexion.Open()
                Cluster.ExecuteNonQuery()
                consulta.ExecuteNonQuery()
                conexion.Close()
                MsgBox("Guardado Correctamente en la Nube")
            Catch ex As Exception
                conexion.Close()
                MsgBox(ex.Message)
            End Try
        End Sub
    
        Private Sub CmdBuscarDatos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBuscarDatos.Click
            Dim Conjunto As New DataSet
            Dim Consulta As New SqlDataAdapter _
            ("Select * from Cliente Where ID='" & txtID.Text & "'", conexion)
            Try
                conexion.Open()
                Consulta.Fill(Conjunto, 0)
                conexion.Close()
                DataGridView1.DataSource = Conjunto.Tables(0)
            Catch ex As Exception
                conexion.Close()
                MsgBox(ex.Message)
            End Try
        End Sub
    End Class

    martes, 27 de octubre de 2009 17:56

Respuestas