none
hola, necesti ayuda con una conexion entre vb.net 2008 y access RRS feed

  • Pregunta

  • Hola, yo estoy haciendo un programa en visual basic 2008 expres que esta enlazado con una base de datos, en acces, el programa es para uso administrativo.
    tengo una duda lo q sucede es q kiero q el programa  como tal, se instale en otras pc  pero el problema es q cuando lo cambio de pc la conexion a la base datos  me arroja error,  un error xq la ruta  no es la misma a la que en donde estoy trabajando, … entonces lo q kiero saber es si puedo crear una conexion q me permita cambiar de pc y no tener q estar cambiando en todo momento la  ruta de conexion de la base de datos en cada pc.
    este es  el codigo que estoy usando en el boton de guardar
    Dim oConn As New OleDbConnection
            Dim oComn As New OleDbCommand
            Dim oData As OleDbDataReader
            'Cadena de informaciòn para conectarse a la base de datos
            oConn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + My.Application.Info.DirectoryPath.ToString & "\cheques.mdb")
            Try
                'Abrir base de datos
                oConn.Open()
                'Cadena de texto que tiene la sentencia SQL para consultar el usuario que se quiere loguear
                oComn.CommandText = "INSERT INTO   Venezuela(NumeroDeCheque,Nombre,Monto,Fecha,Descripcion ) VALUES ( '" + TextBox3.Text + "','" + TextBox1.Text + "', '" + TextBox2.Text + "','" + DateTimePicker1.Value.Date + "', '" + RichTextBox1.Text + "')"
                'Asigna la conexion al comando de la consulta
                oComn.Connection = oConn
                'Ejecutar la consulta SQL
                oData = oComn.ExecuteReader()
                MsgBox("se guardo la informacion")
                'Cerramos a conexion a la base de datos
                oConn.Close()
            Catch ex As Exception
                MsgBox("Ha ocurrido un error")
                MessageBox.Show(ex.Message)
            End Try
            TextBox3.Text = ""
            TextBox1.Text = ""
            TextBox2.Text = ""
            RichTextBox1.Text = ""
    y tambien utilizo un datagridwiew, para ver los datos y esta es la codificacion que utiliza
    Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + My.Application.Info.DirectoryPath.ToString & "\cheques.mdb")
            cnn.Open()
            Dim da As New OleDbDataAdapter("SELECT * FROM Venezuela", cnn)
            Dim ds As New DataSet
            da.Fill(ds)
            DataGridView1.DataSource = ds.Tables(0)
    miércoles, 31 de agosto de 2011 17:39

Todas las respuestas

  • hola

    se reponde en el foro de vb.net

    http://social.msdn.microsoft.com/Forums/es-ES/vbes/thread/9d4370f3-14e1-4c36-a2db-adffe8e4507f


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    jueves, 1 de septiembre de 2011 2:59