Mensajes

porque te conectas con esa libreria? si te podes conectar directamente con las librerias del .NET

[.Net Framework Clean Up Tool]

pasale el .Net Framework Clean Up Tool, te limpia todos los frameworks...despues instala de forma limpia el 3.5

saludos.

jaja es la misma cadena de conexion que te dije que pongas hace como 3 post atras !!

no hace falta poner "Persist Security Info=False", ya que de forma predeterminada esta en False...

es mucho pedir que me pases el proyecto y la base que usas? si queres pasamelo por privado.

mmm..mira creo que no...por lo menos no he visto algo parecido, si vi para el SSTab...sino de ultima busca algunos controles Tab personalizados como usercontrols...estan buenos y ahi le podes hacer lo que quieras...

saludos.

[strCN]

Zeroql quise decir que imprimas en el Debug en valor de la variable strCN, una vez que ya se llena con los valores que le pasas...

y si no te molesta , subi el proyecto con la base, en 2 minutos lo solucionamos...

[ChrW()]

es por los unicode...

Visual Basic se basa internamente en el estándar Unicode de doble byte. Sin embargo, fuera del mundo de Visual Basic, se sigue utilizando el modelo ANSI de un bit. Por esta razón, Visual Basic proporciona dos conjuntos de controles de formularios y utiliza los conjuntos ANSI como control predeterminado. Cualquier cadena que se pase al conjunto ANSI de controles de formularios se convierte de su representación Unicode interna a su representación ANSI y las cadenas UNICODE no se mostrarán correctamente. Para poder mostrar la cadena UNICODE en un formulario de Visual Basic, deben utilizarse los controles UNICODE (Forms 2.0). En el ejemplo siguiente se ilustra cómo utilizar los controles de Forms 2.0 para mostrar cadenas UNICODE obtenidas de un archivo de texto Unicode. Puesto que se necesita el paquete de compatibilidad de idioma UNICODE, actualmente este sistema sólo se aplica a Windows NT.

si buscas en internet unicode + visual basic , vas a encontrar toneladas de paginas que hablan del tema, miles de ejemplos hay, controles personalizados, etc...

fijate que en windows hay fuentes que tienen charset de diferentes idiomas, cuando seleccionas la fuente fijate hay un combo abajo de todo que podes cambiar el idioma de la fuente, con eso y poniendo los codigos de los caracteres correctos, te los va a mostrar bien.busca en internet las tablas de los caracteres para los paises, ahi te dcie el codigo que tiene cada letra china, rusa, arabe lo que sea...para despues hacerle el ChrW()...aca te paso un ejemplo...no es el mejor, pero para que veas como es te sirve seguro. pone un control Richtextbox1 en el form y este codigo.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Const CP_UNICODE = 1200
Private Const WM_USER = &H400&
Private Const EM_SETTEXTEX = WM_USER + 97

Private Declare Function SendMessageWLng Lib "user32" Alias "SendMessageW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
Private Enum RTBW_FLAGS
    RTBW_DEFAULT = 0
    RTBW_KEEPUNDO = 1
    RTBW_SELECTION = 2
End Enum

Private Type SETTEXTEX
    flags As RTBW_FLAGS
    codepage As Long
End Type

Private Sub Form_Load()

    Dim vIngles As String
   
    vIngles = ChrW(&H57) & ChrW(&H65) & ChrW(&H6C) & ChrW(&H63) & ChrW(&H6F) & ChrW(&H6D) & ChrW(&H65) & _
              ChrW(&H20) & ChrW(&H74) & ChrW(&H6F) & ChrW(&H20) & _
              "Unicode" & ChrW(&H21)
             
    Dim vAleman As String
   
    vAleman = ChrW(&H42) & ChrW(&H69) & ChrW(&H65) & _
              ChrW(&H6E) & ChrW(&H76) & ChrW(&H65) & ChrW(&H6E) & _
              ChrW(&H75) & ChrW(&H65) & ChrW(&H20) & ChrW(&H61) & _
              ChrW(&H75) & ChrW(&H20) & "Unicode" & ChrW(&H21)

    Dim vJapones As String
   
    vJapones = "Unicode " & ChrW(&H3078) & _
            ChrW(&H3087) & ChrW(&H3045) & ChrW(&H3053) & _
            ChrW(&H305D) & ChrW(&H21)
           
    Dim vPortugues As String
   
    vPortugues = ChrW(&H53) & ChrW(&HE9) & ChrW(&H6A) & _
            ChrW(&H61) & ChrW(&H20) & ChrW(&H42) & _
            ChrW(&H65) & ChrW(&H6D) & ChrW(&H76) & _
            ChrW(&H69) & ChrW(&H6E) & ChrW(&H64) & _
            ChrW(&H6F) & ChrW(&H20) & "Unicode" & ChrW(&H21)
           
    Dim vRusia As String
   
    vRusia = ChrW(&H414) & ChrW(&H43E) & ChrW(&H431) & _
                    ChrW(&H440) & ChrW(&H43E) & ChrW(&H20) & _
                    ChrW(&H43F) & ChrW(&H43E) & ChrW(&H436) & _
                    ChrW(&H430) & ChrW(&H43B) & ChrW(&H43E) & _
                    ChrW(&H432) & ChrW(&H430) & ChrW(&H442) & _
                    ChrW(&H44A) & ChrW(&H20) & ChrW(&H432) & _
                    ChrW(&H20) & "Unicode" & ChrW(&H21)
                   
    Dim vEspañol As String
   
    vEspañol = ChrW(&H42) & ChrW(&H69) & ChrW(&H65) & _
                    ChrW(&H6E) & ChrW(&H76) & ChrW(&H65) & _
                    ChrW(&H6E) & ChrW(&H69) & ChrW(&H64) & _
                    ChrW(&H61) & ChrW(&H20) & ChrW(&H61) & _
                    ChrW(&H20) & "Unicode" & ChrW(&H21)
    Dim vChino As String
   
    vChino = ChrW(&H6B22) & ChrW(&H8FCE) & _
            ChrW(&H4F7F) & ChrW(&H7528) & ChrW(&H20) & _
            "Unicode" & ChrW(&H21)
             
    Call Unicode(vIngles & vbNewLine & vAleman & vbNewLine & vJapones & vbNewLine & vPortugues & vbNewLine & vRusia & vbNewLine & vEspañol & vbNewLine & vChino)
End Sub

Private Sub Unicode(ByRef pTexto As String)

    Dim stUnicode As SETTEXTEX
   
    With stUnicode
        .flags = RTBW_DEFAULT
        .codepage = CP_UNICODE
    End With
   
    Call SendMessageWLng(Richtextbox1.hWnd, EM_SETTEXTEX, VarPtr(stUnicode), StrPtr(pTexto))
End Sub


saludos.

Fijate que no haya otro archivo de access con el mismo nombre de la base (no recuerdo la extension, pero el icono era de unos cubitos al estilo rubik/registro de windows y con un candado abajo) que si existia signifca que la base esta abierta, por lo que no puede ser accedido por otro programa

En la carpeta donde esta la base, que solo este la base (.mdb) y ningun archivo con el mismo nombre y distinta extension

claro, el archivo de bloqueo .ldb, eso depende como abris la base te lo genera o no.

Zeroql

podes poner un punto de interrupcion y probar que valor queda en la variable de la conexion? despues ponela aca.

esta mal la cadena, proba esta, es la que uso y anda, con la que estas usando tira ese error efectivamente.

Código (vb) [Seleccionar] Expandir

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=base.mdb;Jet OLEDB:Database Password=mipass;"


saludos.

claro, si en realidad es parecido, obvio tiene mas propiedades y demas...pero es parecido.

Zeroql.

si solo queres conectarte solamente tenes que hacer...

Código (vbnet) [Seleccionar] Expandir

            Dim vConeccion As New SqlConnection(pCadena)
            vConeccion.Open()

pues en la pagina de el guille es la mejor, esta lleno de ejemplos basicos, tiene todo lo que sea ADO.NET

saludos.