luego escogemos desde la parte izquierda la opción settings y cambiamos los parámetros así:
en la parte de value tendremos un botón para examinar con la representación de tres puntos (...), lo presionamos y tendremos esta ventana donde ustedes seleccionan su servidor y su base de datos, damos click en OK guardamos y ya tendremos nuestra cadena de conexión en el archivo app.config de nuestro proyecto
ya hecho lo anterior, añadimos una nueva clase que se llame prueba y pegamos este código:
Imports System.Data.SqlClient
Public Class prueba
Public sql As New SqlConnection(My.Settings.img)
Dim da As DataTable
Dim cdm As SqlCommand
Dim daa As SqlDataAdapter
Public Sub conectar()
sql.Open()
End Sub
Public Function llenar() As DataTable
Try
sql.Open()
cdm = New SqlCommand("select * from img", sql)
daa = New SqlDataAdapter(cdm)
da = New DataTable
daa.Fill(da)
Catch ex As Exception
MessageBox.Show("No hay nada")
End Try
Return da
End Function
Public Sub insertar(ByVal valor1, ByVal valor2, ByVal valor3)
Try
sql.Open()
Dim cmd As New SqlCommand("inserccion", cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@nombre", SqlDbType.NVarChar).Value = valor1
cmd.Parameters.Add("@comentarios", SqlDbType.NVarChar).Value = valor2
cmd.Parameters.Add("@ruta", SqlDbType.NVarChar).Value = valor3
cmd.ExecuteNonQuery()
MessageBox.Show("Cliente Activado")
sql.Close()
Catch ex As Exception
End Try
End Sub
Public Sub actualizandoDatos(ByVal text1, ByVal text2, ByVal text3, ByVal id)
cnn.Open()
Dim comando As New SqlCommand("actualizar", cnn)
comando.CommandType = CommandType.StoredProcedure
comando.Parameters.Add("@nombre", SqlDbType.NVarChar).Value = text1
comando.Parameters.Add("@comentarios", SqlDbType.NVarChar).Value = text2
comando.Parameters.Add("ruta", SqlDbType.NVarChar).Value = text3
comando.Parameters.Add("@id", SqlDbType.Int).Value = id
comando.ExecuteNonQuery()
MessageBox.Show("cliente modificado")
cnn.Close()
End Sub
Public Sub eliminarDatos(ByVal id)
cnn.Open()
Dim p As New SqlCommand("eliminar", cnn)
p.CommandType = CommandType.StoredProcedure
p.Parameters.Add("@codigo", SqlDbType.Int).Value = id
p.ExecuteNonQuery()
MessageBox.Show("cliente eliminado satisfactoriamente")
cnn.Close()
End Sub
End Class
