Hola amigos, estoy trabajando en visual basic 2010 con capas. Actualmente cuento con una capa de datos, capa negocios, capa de presentación. En la capa presentación me arroja el siguiente mensaje, es por la conexión. Les agradecería que me ayude.
Ya están referenciados
Código:
Imports Farmacia.Datos
Imports Farmacia.Negocios
Imports System.Data
Imports System.Data.SqlClient
Public Class frm_usuarios
Dim conecta As ConexionBD ''''1
Dim Par_Farmacia As SqlParameter
Dim Cmd_usuario As New SqlCommand '''''2
Dim Ad_usuarios As New SqlDataAdapter ''''3
Dim Ds_usuario As New DataSet
Dim Dt_usuario As New DataTable
Dim Dt_Farmacia As New DataTable
Private Sub frm_usuarios_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Cmd_usuario = New SqlCommand("select * from a_usuarios", conecta)
Ad_usuarios = New SqlDataAdapter(Cmd_usuario)
Ad_usuarios.Fill(Dt_usuario)
DataGridView2.DataSource = Dt_usuario
EL ERROR SE UBICA EN LA LINEA DE CODIGO EN "CONECTA" Cmd_usuario = New SqlCommand("select * from a_usuarios", conecta)
Me arroja el siguiente
Error 1 Un valor de tipo 'Farmacia.Datos.ConexionBD' no se puede convertir en 'System.Data.SqlClient.SqlConnection'.
ACA ESTA EL CODIGO DE LA CONEXIÓN, CODIGO EN CAPA DE DATOS.
Código:
Imports System.Data.SqlClient
Imports System.Data
Imports console = System.Console
Imports System.IndexOutOfRangeException
Imports System.Windows.Forms
Public Class ConexionBD
Dim ConexionBDFarmacia As New SqlClient.SqlConnection
Dim AdapatadorFarmacia As SqlDataAdapter
Dim DT As New DataTable
Private mINI As New Clase_ini
'variables "server y base de datos" declarados en la clase variables:globales.vb
Public Server As String
Public BasedeDatos As String
Public Sub Conectar()
Dim sFicINI As String
sFicINI = Application.StartupPath & "\conexion.ini"
Dim sSeccion As String = "CONEXION"
Dim Tcontenidos() As String
Dim mensaje As String
Tcontenidos = mINI.IniGetSection(sFicINI, sSeccion)
Server = Tcontenidos(1)
BasedeDatos = Tcontenidos(3)
ConexionBDFarmacia.ConnectionString = "integrated security=sspi;Data Source=" & Server & ";Initial Catalog=" & BasedeDatos & ";connect timeout=5"
Try
ConexionBDFarmacia.Open()
MsgBox("Base de Datos Conectado", MsgBoxStyle.Information, BasedeDatos)
Catch ex As SqlClient.SqlException
Select Case ex.Number
Case 2
mensaje = "Servidor detenido"
MsgBox("Servidor detenido", MsgBoxStyle.Information)
Exit Sub
Case 17142
mensaje = "Servidor Pausado"
MsgBox("Servidor pausado", MsgBoxStyle.Information)
Exit Sub
Case 53
mensaje = "No se pudo encontrar el servidor"
MsgBox("Nose pudo encontrar el servidor", MsgBoxStyle.Information)
Exit Sub
Case 4060
mensaje = "No se encontró la base de datos"
MsgBox("No se encontró la base de datos", MsgBoxStyle.Information)
Exit Sub
Case 18456
mensaje = "Usuario o Clave incorrectas"
MsgBox("Usuario o Clave incorrectas", MsgBoxStyle.Information)
Exit Sub
Case Else
mensaje = ex.Message
Exit Sub
End Select
End Try
End Sub
Public Sub Cerrar_ConexionFarmacia()
ConexionBDFarmacia.Close()
End Sub
Public Sub Abrir_ConexionFarmacia()
ConexionBDFarmacia.Open()
End Sub