| Problemas con codigo SQL AYUDA URGENTE!!!
Hola a todos
Tengo un problema con un codigo SQL, tengo una aplicacion en Visual Basic que se comunica con una base de datos en Access, el codigo que me da problemas es el siguiente
Una funcion que agrega un experimento en la base de datos, todos los parametros se los pasa el usuario en un formulario en visual basic
Hasta la parte de creear los strSQL va bien, el problema esta en el segundo execute (esta marcado mas abajo) al llegar ahi se va directamente a la etiqueta de error y me aparece un mensaje que dice que esta mal la sintaxis, yo verifique 1000 veces que los parametros sean los correctos y esten en el orden correcto, lo que si tengo es que hay unos tipos en la base de datos que no son string, por ejemplo la fechaIni, fechaFin, toleranciaT, toleranciaH, toleranciaVA y tiempomuestra, son fechas (los dos primeros), decimales los siguientes 3 y entero el ultimo. Pero para probar los puse todos como texto en al base de datos y tampoco me funciono, alguien me puede ayudar???
Y por otro lado, como hago para manejar esos datos que son enteros, decimales o fechas con sql??
Public Function addExperimento(nombre As String, descripcion As String, fechaIni As String, fechaFin As String, idCamara As String, toleranciaT As String, toleranciaH As String, toleranciaVA As String, tiempomuestra As String, idPersona As String, conexion As ADODB.Connection) As Boolean
Dim strSQL As String
Dim strSQL2 As String
Dim strSQL3 As String
Dim str1 As String
Dim idExperimento As Integer
On Error GoTo addExpError
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conexion
Set rs = New ADODB.Recordset
'.........................................
strSQL = "Select * from Experimento2"
cmd.CommandText = strSQL
Set rs = cmd.Execute
idExperimento = rs.RecordCount
strSQL = "Insert into Experimento (ID_experimento, Nombre_exp, Descripcion_exp, Fecha_inicio, Fecha_finalizacion, ID_camara, ToleranciaT, ToleranciaH, ToleranciaVA, Tiempo_muestra, ID_persona) values ('"
'---------------------
strSQL2 = idExperimento & "','" & nombre & "','" & descripcion & "','" & fechaIni & "','" & fechaFin & "','" & idCamara & "','" & toleranciaT & "','" & toleranciaH & "','" & toleranciaVA & "','" & tiempomuestra & "','" & idPersona & "')"
strSQL3 = strSQL & strSQL2
'---------------------
cmd.CommandText = strSQL
cmd.Execute ' AQUI ESTA EL PROBLEMA
addExperimento = True
Exit Function
'...........................................
addExpError:
addExperimento = False
MsgBox "ERROR: " & Err.Description & Err.Number
Exit Function
End Function |