Mensaje dentro de Foro VB.NET

Responder 
#1 - 02/05/2011 1:10:56 Reporta abuso | Link Permanente
Julian
Usuario no registrado
Trabajando con access

Responder Citar
hola tengo el siguiente problema, primero planteo la idea: yo tengo 4 bases de datos de medicos divididos por zonas, encontonces deseo que el usuario pueda agregar nuevos medicos a alguna de las 4 bases ke el desee, obiamnete seleccionando cual a traves de un combobox pero resulta que me salta un error, plaanteo los codigos:
Public Class Form
 Private activeConn As New OleDb.OleDbConnection

Sub NUEVO_MEDICO()
        Dim query As String = "INSERT INTO Nombres (Nombre) VALUES(@Nombre)"
        Dim CMD As New OleDb.OleDbCommand(query, activeConn)
        CMD.Parameters.AddWithValue("@Nombre", txtDatoNuevoMedico.Text)
        activeConn.Open()
        CMD.ExecuteNonQuery()
        activeConn.Close()
        LIMPIAR()
        Mostrar()
        MsgBox("Nuevo medico:'" & txtDatoNuevoMedico.Text & "' ha sido ingresado")
    End Sub

Private Sub cbxDatoBase_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbxDatoBase.SelectedIndexChanged
        If cbxDatoBase.SelectedValue = "Norte - Luis Clerici" Then
            Dim activeConn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Norte - Luis Clerici.accdb")
        End If
        If cbxDatoBase.SelectedValue = "Rosario - Mariela Bengoechea" Then
            Dim activeConn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Norte - Luis Clerici.accdb")
        End If
        If cbxDatoBase.SelectedValue = "Bs.As y La Plata - Patricia Murano" Then
            Dim activeConn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Bs.As y La Plata - Patricia Murano.accdb")
        End If
        If cbxDatoBase.SelectedValue = "Varios - Mauro Legnoverde" Then
            Dim activeConn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Varios - Mauro Legnoverde.accdb")
        End If
    End Sub

el error que recibo es este:
No se controló System.InvalidOperationException
  Message=No se ha inicializado la propiedad ConnectionString.
  Source=System.Data
  StackTrace:
       en System.Data.OleDb.OleDbConnection.PermissionDemand()
       en System.Data.OleDb.OleDbConnectionFactory.PermissionDemand(DbConnection outerConnection)
       en System.Data.ProviderBase.DbConnectionClosed.OpenConnection(DbConnection outerConnection, DbConnectionFactory connectionFactory)
       en System.Data.OleDb.OleDbConnection.Open()
       en Ventas_ADerma.Form1.NUEVO_MEDICO() en C:\Users\J Diaz\Desktop\Ventas-ADerma\Ventas-ADerma\Form1.vb:línea 105
       en Ventas_ADerma.Form1.btnDatoNuevoMedico_Click(Object sender, EventArgs e) en C:\Users\J Diaz\Desktop\Ventas-ADerma\Ventas-ADerma\Form1.vb:línea 167
       en System.Windows.Forms.Control.OnClick(EventArgs e)
       en System.Windows.Forms.Button.OnClick(EventArgs e)
       en System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       en System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       en System.Windows.Forms.Control.WndProc(Message& m)
       en System.Windows.Forms.ButtonBase.WndProc(Message& m)
       en System.Windows.Forms.Button.WndProc(Message& m)
       en System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       en System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       en System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       en System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       en System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
       en System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       en System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       en Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       en Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       en Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       en Ventas_ADerma.My.MyApplication.Main(String[] Args) en 17d14f5c-a337-4978-8281-53493378c1071.vb:línea 81
       en System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
       en System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       en Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       en System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       en System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)
       en System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       en System.Threading.ThreadHelper.ThreadStart()
  InnerException: 

Volver arriba