Foro de elhacker.net

 hola a todos... estoy comenzando a utilizar Visual .Net y estoy haciendo una mi aplicacion que se conecta con SQL Server, pero no logro conectarme con sql server ni mucho menos ejecutar un query...  :-\ tengo el siguiente codigo pero no me sirve ... no logro realizar mi conexion ???

Public Sub InsertRow(ByVal myConnectionString As String)
        ' If the connection string is null, use a default.
        If myConnectionString = "" Then
            myConnectionString = "Initial Catalog=Northwind;Data Source=localhost;Integrated Security=SSPI;"
        End If
        Dim myConnection As New SQLconnection(myConnectionString)
        Dim myInsertQuery As String = "INSERT INTO usuario (name, apellidos) Values('Prueba', 'Solo Prueba')"
        Dim myCommand As New SqlComman(myInsertQuery)
        myCommand.Connection = myConnection
        myConnection.Open()
        myCommand.ExecuteNonQuery()
        myCommand.Connection.Close()
    End Sub


Alguien me puede dar un ejemplo de como realizar mi conexion a Sql Server ... gracias por toda la ayuda que me brinden ... Feliz Dia..  :)

Bueno creo que pasaste de programación estructurada a POO porque hay errores de programación muy graves.


Por ejemplo no se pueden hacer esas asignaciones, todas las variables en VB se inicializan a su valor predeterminado y luego se les puede cambiar el valor, pero no cuando se declaran. Eso debería ser:


Te recomiendo que leas un curso de VB. Aprenda Visual Basic como en primero es un buen curso. O sino el del guille que hace poco lo pusieron.

Saludos.

yo estoy programando en Visual .Net que es orientado a objetos y  la forma de conexion es distinta a VB ....  ese codigo es para VB no.. ?? , igual ya lo probe en .Net y no me funciona ... gracias por tu ayuda  :)

ya pude resolver mi problema... es que no estaba importando las libreria de SqlClient.. ya el codigo correcto es el siguiente

esto va en la parte de declaraciones

Imports System.Data.SqlClient

Dim str As String
        Dim myConn As SqlConnection = New SqlConnection("Server=Servidor;uid=sa;pwd=mipwd;database=MiDataBase")
        str = "Query a realizar"
        Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
        Try
            myConn.Open()
            Dim reader
            Datos.DataSource = myCommand.ExecuteNonQuery()
            reader = myCommand.ExecuteNonQuery()
           
            MessageBox.Show("Query sucesfull", _
                            "MyProgram", MessageBoxButtons.OK, _
                             MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        Finally
            If (myConn.State = ConnectionState.Open) Then
                myConn.Close()
            End If
        End Try


gracias por tu ayuda Anhur ....