Access 2000
Hola, Estoy cambiando mis bases de datos de access 97 a acces2000. Cuando realizas la conversión, la propiedad "Permitir longitud cero", siempre me pone que no en todos los campos de texto (access 2000). Como puedo cambiar automáticamente desde VB esa propiedad para que me ponga que "SI". He buscado en las instrucciones de SQL y solo he encontrado algo parecido en ALFTER TABLE pero esa propiedad no la pone.
Esto se debe a que ahora al ejecutar el programa, con la nueva base de datos, me da unos errores que antes no me daban, y he comprobado que es por culpa de que ese campo esta en "NO".
Agradecería una respuesta rápida ya que mi programa actualizado depende de ello.
Esto se debe a que ahora al ejecutar el programa, con la nueva base de datos, me da unos errores que antes no me daban, y he comprobado que es por culpa de que ese campo esta en "NO".
Agradecería una respuesta rápida ya que mi programa actualizado depende de ello.
1 Respuesta
Respuesta de atip
1
Desde un proyecto nuevo en VB añade referencia a:
Microsoft DAO 3.6
En un botón pon el siguiente código:
Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Set db = OpenDatabase("c:\tu_directorio\tu_database.mdb", 0, False)
For Each tdf In db.TableDefs
If Not CBool(tdf.Attributes And dbAttachedTable) And Not CBool(tdf.Attributes And dbAttachedODBC) And Not CBool(tdf.Attributes And dbHiddenObject) And Not CBool(tdf.Attributes And dbSystemObject) Then
For Each fld In tdf.Fields
If fld.Type = dbText Then
fld.AllowZeroLength = True
End If
Next
End If
Next
Microsoft DAO 3.6
En un botón pon el siguiente código:
Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Set db = OpenDatabase("c:\tu_directorio\tu_database.mdb", 0, False)
For Each tdf In db.TableDefs
If Not CBool(tdf.Attributes And dbAttachedTable) And Not CBool(tdf.Attributes And dbAttachedODBC) And Not CBool(tdf.Attributes And dbHiddenObject) And Not CBool(tdf.Attributes And dbSystemObject) Then
For Each fld In tdf.Fields
If fld.Type = dbText Then
fld.AllowZeroLength = True
End If
Next
End If
Next
