Autor Tema: Error De Tipos (Leído 3951 veces)

DiabloRojo · « **en:** Miércoles 8 de Septiembre de 2004, 18:07 »

Qué tal amigos del foro?
Soy novatillo en la programación de bases de datos y ADO así que para practicar un poco decidí crearme, en access, una base de datos super simple de una sola tabla. Dicha tabla contiene 3 campos: cedula,nombre y fechanac cuyos tipos son texto, texto y fecha/hora respectivamente. El campo fechanac tiene un formato fecha corta del tipo 19/06/1994.
Para trabajar sobre la base de datos uso una referencia a ADO 2.0 y utilizo los tres objetos disponibles, es decir, un objeto conexion, un objeto command y un objeto recorset.
Ahora bien lo que deseo hacer es que el usuario pueda colocar dos fechas y que se devuelva en el recorset todas las fechas que estén dentro de dicho intervalo. Uso un código similar a este:

Código: Text

 
'En la parte de declaracione generales
Dim cnnMiCon As ADODB.Connection
Dim cmdCriterio As ADODB.Command
Dim rstTabla As ADODB.Recordset
'
'
'
'En el botón de búsqueda
Private Sub Buscar() 
   Dim inicial As Date
   Dim final As Date
   '
   If txtFechaInicial.Text &#60;&#62; &#34;&#34; And txtFechaFinal.Text &#60;&#62; &#34;&#34; Then
      '
      Set rstTabla = Nothing 
      Set cmdCriterio = Nothing
      Set cnnMiCon = Nothing
      '
      inicial = txtFechaInicial.Text
      final = txtFechaFinal.Text
      '
      Set cnnMiCon = New ADODB.Connection
      Set cmdCriterio = New ADODB.Command
      Set rstTabla = New ADODB.Recordset   
      '
      cnnMiCon.ConnectionString = &#34;Provider=Microsoft.Jet.OLEDB.3.51;Persist Security                  Info=False;Data Source=C:&#092;WINDOWS&#092;Escritorio&#092;ProyectoFechas&#092;fechas97_1.mdb&#34;
      cnnMiCon.Open
      '
      cmdCriterio.CommandText = &#34;SELECT cedula,nombre,fechaNac FROM tabla1 WHERE fechaNac&#62;'&#34; &         inicial & &#34;'&#34; And fechaNac &#60; &#34;'&#34; & final & &#34;'&#34;
      '   
      rstTabla.Open cmdCriterio.CommandText, cnnMiCon, adOpenDynamic
      '
      rstTabla.MoveFirst
      txtCedula = rstTabla.Fields(&#34;cedula&#34;).Value
      txtNombre = rstTabla.Fields(&#34;nombre&#34;).Value
      txtFecha = rstTabla.Fields(&#34;fechaNac&#34;).Value
   End If
End Sub
 
 

Ahora bien, cuando corro el programa introduzco las fechas y pulso el botón buscar obtengo el error 13 "No coinciden los tipos" en la línea:

Código: Text

 
   cmdCriterio.CommandText = &#34;SELECT cedula,nombre,fechaNac FROM tabla1 WHERE fechaNac&#62;'&#34; &       inicial & &#34;'&#34; And fechaNac &#60; &#34;'&#34; & final & &#34;'&#34;

Si coloco directamente en el código por ejemplo:

Código: Text

 
   cmdCriterio.CommandText = &#34;SELECT cedula,nombre,fechaNac FROM tabla1 WHERE fechaNac &#62;            #1/1/1960# AND fechaNac &#60; #1/1/1991#&#34;

No obtengo ningún error.

Necesito dos cosas:
1.- Estoy implementando bien el código para trabajar con ADO?
2.- Cómo corrijo el error de tipos?

De antemano muchas gracias por la ayuda.

DiabloRojo

Kev

Para corregir este error deberas validar el ingreso de datos, para esto puedes usar la funcion IsDate()

Código: Text

 
If IsDate(Text1.Text) Then
   'Aca colocas tus instrucciones o la consulta SQL
End If

IsDate te devuelve un valor Booleano, true o false

Salu2

DiabloRojo

Qué tal Kev?
Gracias por responder. Hago lo que me dices y me sigue mostrando el mismo error. Incluso he añadido la función CDate() a las líneas:

Código: Text

 
   inicial=CDate(txtFechaInicial.text)
   final=CDate(txtFechaFinal.text)

Y me muestra el mismo error.

Añadí un control ADODC y un MSHFlexGrid para ver todos los registros y me doy cuenta que a pesar de haber colocado el campo fechanac de tipo fecha/hora en formato dd/mm/yyyy (fecha corta) los registros aparecen con el formato mm/dd/yyyy ¿tendrá esto que ver con la aparición del error?.

Agradezco toda ayuda.

DiabloRojo

cpmario

El error 13 se debe a que estás intentando hacer una búsqueda de fecha como String, con comillas simples, sustituye las comillas simples por el signo de número como sigue:

Código: Text

cmdCriterio.CommandText = &#34;SELECT cedula,nombre,fechaNac FROM tabla1 WHERE fechaNac&#62;#&#34; & inicial & &#34;#&#34; And fechaNac &#60; &#34;#&#34; & final & &#34;#&#34;

El formato de fecha para hacer la búsqueda debe ser mm/dd/yyyy o no funcionará.

---------------------
"Corrector Ortográfico de Notas", freeware, utilidad para programadores.
Programado en VB6, con diccionario propio.

http://consultapractica.aztecaonline.net/index2.html

DiabloRojo

Qué tal cpmario?
Gracias por contestar. Ya resolví el problema y venía a contestar cuando ví tu respuesta. La solución es la siguiente:

Código: Text

 
   Dim inicial As String
   Dim final As String
 
   inicial= &#34;#&#34; & txtFechaInicial.Text & &#34;#&#34;
   final= &#34;#&#34; & txtFechafinal & &#34;#&#34;
 
   cmdCriterio.CommandText=&#34;SELECT cedula,nombre,fechaNac FROM tabla1    WHERE fechaNac&#62; &#34; & inicial & &#34; And fechaNac &#60; &#34; & final

Según entiendo, las variables "inicial" y "final" NO tienen que ser de tipo Date ya que la propiedad CommandText es precisamente una cadena de caracteres (esto explica el error de tipos). Luego cuando se abre el recorset (con Open) ADO se encarga de convertir lo que contenga esta cadena -si es el caso- en una instruccuón SQL.

Bueno, eso era todo. Gracias a todos los que respondieron y a los que se tomaron el tiempo de leer mi duda.

Suerte.

DiabloRojo

Kev

Tienes razon, pero yo te aconsejaba el uso de IsDate solo para validar no para convertir a formato fecha, como ya te indique IsDate te devuelve true o false

Ej:

Código: Text

 
Dim Fecha1 As String
Dim Fecha2 As String
Dim Fecha3 As String
Dim Resultado As Boolean
 
Fecha1=&#34;November 26, 1981&#34;
Fecha2=#11/26/81#
Fecha3=&#34;Cualquier cosa&#34;
 
Resultado = IsDate(Fecha1)   'Devuelve True
 
If Resultado Then
   'Aca colocas tus instrucciones a realizar si la fecha introducida seria valida
End If
Resultado = IsDate(Fecha2)   'Devuelve True
Resultado = IsDate(Fecha3)   'Devuelve False
 
 

Nota.- El formato de la fecha depende de la configuracion regional, en este ejemplo el idioma es Ingles, y en este formato se coloca primero el mes.

Salu2

DiabloRojo

Hola Kev.
Te agradezco la recomendación de validar las entradas. Como solo estoy practicando y soy el único que utilizará la aplicación no consideré necesario incluir validaciones. Lo que sí me extraña es que me esté me guardando con el formato mm/dd/yyyy siendo que mi computador está configurado al español. Por cierto, hay alguna forma de que aparezca en mi MSHFlexGrid el campo con el formato dd/mm/yyyy aunque en la tabla esté almacenado como mm/dd/yyyy?.

Bueno, muchas gracias por los comentarios y consejos.

DiabloRojo

Kev

Intenta con esto:

Código: Text

 
FlexGrid.TextMatrix(i,j) = format (Tufecha,&#34;dd/mm/yyyy&#34;)

Nota.- TuFecha es la variable donde almacenas tu fecha (creo que es logico pero no esta por demas aclarar), aparte i, j, con variables que almacenan la posicion en la que te encuentras(fila y columna)

Salu2

Juanolo

Un pequeño aporte:
Me parece que se está pasando por alto un punto muy relevante, y que en su momento me tuvo de cabeza.

El asunto es que en una instrucción SQL el formato de fecha, además de ir entre alfombrillas (#), DEBE se el formato gringo; es decir "mm/dd/yy" (mes/día/año). Si utilizas otro no dará los resultados que esperas.

Luego, una forma de asegurarnos que todo esté correcto es:

Código: Text

  inicial= &#34;#&#34; & format(txtFechaInicial.Text, &#34;mm/dd/yy&#34;) & &#34;#&#34;
  final= &#34;#&#34; & format(txtFechafinal.text, &#34;mm/dd/yy&#34;) & &#34;#&#34;
 

Espero ser de ayuda.

Salu2.

DiabloRojo

Tienes toda la razón Juanolo. Todo comentario y sugerencia es bien recibido.
Gracias por tomarte el tiempo.

DiabloRojo

SoloCodigo

Autor Tema: Error De Tipos (Leído 3951 veces)

DiabloRojo

Error De Tipos

Kev

Re: Error De Tipos

DiabloRojo

Re: Error De Tipos

cpmario

Re: Error De Tipos

DiabloRojo

Re: Error De Tipos

Kev

Re: Error De Tipos

DiabloRojo

Re: Error De Tipos

Kev

Re: Error De Tipos

Juanolo

Re: Error De Tipos

DiabloRojo

Re: Error De Tipos