conexion a access

[juannavarro1481]

hola amigos hice esta cadena de conexión para conectarme a una base de datos access

Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ControlDeAlumnos\cdh.mdb; Password=LaPlaza"

todo esta bien hasta que le trate una clave a la base de datos, que es LaPlaza, amigos nose si alguien puede ayudarme a modificar esta cadena para que funcione ya que no puedo entrar al sistema
gracias cualquier aporte sera bien recibido

[rikakashi]

Código vb:

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim cnn As OleDbConnection
        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabasename.mdb;"
        cnn = New OleDbConnection(connetionString)
        Try
            cnn.Open()
            MsgBox("Connection Open ! ")
            cnn.Close()
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class
 

[rikakashi]

si vas a colocar pass tambien pon el user

[juannavarro1481]

gracias rikakashi
la modifique asi
Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ControlDeAlumnos\cdh.mdb; User Id=admin;Password=LaPlaza"
pero nada

[rikakashi]

Código vb:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ControlDeAlumnos\cdh.mdb; User Id=admin;Password=LaPlaza;"
 

La instruccion debe terminar con ; verifica o prueba con mi ejemplo de arriba o muestrame todo tu codigo para verificarlo y ayudarte mejor

[HaverRamirez]

tambien puedes revisar en http://connectionstrings.com/

[juannavarro1481]

Hola amigos, gracias por la ayuda prestada, pero no funciona la cadena de conexión
Estoy usando esta

Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ControlDeAlumnos\cdh.mdb; User Id=admin;Password=LaPlaza;"

y la invoco en este pedazo de codigo
Dim temp As String
Dim oComm As New OleDbCommand("SELECT Usuario.* FROM Usuario where Nombre = '" + id_Usuario + "' and Clave='" + password + "';", oConn)
oComm.CommandType = CommandType.Text
oConn.Open()
Dim oAdap As New OleDbDataAdapter(oComm)
Dim oData As New DataSet()
oAdap.Fill(oData, "Datos")
oComm.ExecuteNonQuery()

en la linea “oConn.Open()” se dispara este error

No se puede iniciar la aplicación. Falta el archivo de información del grupo de trabajo o bien está abierto en modo exclusivo por otro usuario.

Por favor si pudieran darme una ayuda se los agradecería

[DexterGlue]

En este caso se debe a que debes definir la ruta del archivo de seguridad de access por lo general se llama system.mdw debes de buscarlo e indicarle la ruta de su ubicacion dentro de la cadena de conexion dentro de la propiedad

Código:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword;

o tambien prueba este..

Código:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:System Database=system.mdw;User ID=myUsername;Password=myPassword;

Espero te sirva
SAludos

[rikakashi]

Dim temp As String
Dim oComm As New OleDbDataAdapter("SELECT Usuario * FROM Usuario where Nombre = '" + id_Usuario + "' and Clave='" + password, oConn)
Dim oData As New DataSet()
oComm.fill(oData)
oComm.ExecuteNonQuery()

Creo que seria algo asi espero estar en lo correcto!!! no entriendo como es q aun no lo consigues ni utilizas mi ejemplo :/

[rikakashi]

Iniciado por rikakashi

Dim temp As String
Dim oComm As New OleDbDataAdapter("SELECT Usuario * FROM Usuario where Nombre = '" + id_Usuario + "' and Clave='" + password, oConn)
Dim oData As New DataSet()
oComm.fill(oData)
oComm.ExecuteNonQuery()

Creo que seria algo asi espero estar en lo correcto!!! no entriendo como es q aun no lo consigues ni utilizas mi ejemplo :/

perdon, en lugar de + seria & y al final de el password seria + "'" eso si tu pass no es entero de serlo tu pas no llevaria la comilla simple ' '