Problemas BD Access vs VB 6.0
Publicado por Argenis Silva (1 intervención) el 26/01/2011 03:56:13
Buenas noches estimados compañeros...
El presente tiene como finalidad solicitar su ayuda en una situación que se me presentó, a saber:
Tengo una tabla en Access llamada Personal con varios campos, por ejemplo: Nombre, Apellido, Edad, Dirección.
Estoy llenando en VB 6.0 un MSFlexgrid con los registros de esa base de datos , pero cuando uno de los campos no posee datos, por ejemplo, al Señor Pedro Perez no se le llenó el campo de su dirección, por lo tanto está vacía, aparece el siguiente error:
Error '94' en tiempo de ejecución:
Uso no válido de Null.
Me fui a la base de datos en Access y en ese campo "Dirección" verifiqué que la propiedad "Permitir longitud cero" estuviera en SI.
Pero no deja de salir el error.
El error aparece justo cuando llega a la linea D5...
¿Cómo hago para llenar el MSFlexGrid cuando uno de los campos de la Base de Datos está vació?
Muy agradecido por su colaboración.
Parte del codigo fuente
ChkStr = "SELECT * FROM Personal WHERE Nombre = '" & TxtNombre.Text & " ' "
Set Rst = MyData.OpenRecordset(ChkStr)
If Rst.RecordCount <> 0 Then
Do While Not Rst.EOF
D0 = Rst.Fields("Nombre")
D1 = Rst.Fields("Apellido")
D2 = Rst.Fields("Cedula")
D3 = Rst.Fields("Sexo")
D4 = Rst.Fields("Edad")
D5 = Rst.Fields("Dirección")
MSFG.AddItem vbTab & D0 & vbTab & D1 & vbTab & D2 & vbTab & D3 & vbTab &
D4 & vbTab & D5
Rst.MoveNext
Loop
End If
El presente tiene como finalidad solicitar su ayuda en una situación que se me presentó, a saber:
Tengo una tabla en Access llamada Personal con varios campos, por ejemplo: Nombre, Apellido, Edad, Dirección.
Estoy llenando en VB 6.0 un MSFlexgrid con los registros de esa base de datos , pero cuando uno de los campos no posee datos, por ejemplo, al Señor Pedro Perez no se le llenó el campo de su dirección, por lo tanto está vacía, aparece el siguiente error:
Error '94' en tiempo de ejecución:
Uso no válido de Null.
Me fui a la base de datos en Access y en ese campo "Dirección" verifiqué que la propiedad "Permitir longitud cero" estuviera en SI.
Pero no deja de salir el error.
El error aparece justo cuando llega a la linea D5...
¿Cómo hago para llenar el MSFlexGrid cuando uno de los campos de la Base de Datos está vació?
Muy agradecido por su colaboración.
Parte del codigo fuente
ChkStr = "SELECT * FROM Personal WHERE Nombre = '" & TxtNombre.Text & " ' "
Set Rst = MyData.OpenRecordset(ChkStr)
If Rst.RecordCount <> 0 Then
Do While Not Rst.EOF
D0 = Rst.Fields("Nombre")
D1 = Rst.Fields("Apellido")
D2 = Rst.Fields("Cedula")
D3 = Rst.Fields("Sexo")
D4 = Rst.Fields("Edad")
D5 = Rst.Fields("Dirección")
MSFG.AddItem vbTab & D0 & vbTab & D1 & vbTab & D2 & vbTab & D3 & vbTab &
D4 & vbTab & D5
Rst.MoveNext
Loop
End If
Valora esta pregunta
0