Hola!
Muchas gracias me ha funcionado bien!
Los + hay que remplazarlos por &, o por lo menos eso creo, aunque he visto en ejemplos ambas cosas... estaría bien que quien pudiera explicara la diferencia... :P
Al final he tenido que quitar el procedimiento para pasar de formato DD/MM/YYYY a YYYY-MM-DD y ponerlo tal cual lo ha puesto gnzsoloyo, si lo pongo en la función no funciona... raro raro
EDITO:
Sabeis aquello que dicen que después de descanasar se ven las solucionas mas rapido? pues si... xD ayer estaba ofuscado ya... bueno asi me funciona bien del todo:
Código vb:
Ver original'Declaración de variables
Dim sexo As New Integer
Dim fechaNacimiento As String
Dim fechaIngreso As String
'tratamos el radioButton (Masculino/Femenino)
If rdoMasculino.Checked = True Then
sexo = 0 'masculino=0
ElseIf rdoFemenino.Checked = True Then
sexo = 1 'femenino=1
End If
'tratamos la fecha del dtpNacimiento (formateo)
'fechaNacimiento = dtpNacimiento.Value.ToString("yyyy-MM-dd")
'fechaNacimiento = dtpNacimiento.Value.ToString()
'tratamos la fecha actual (formateo)
'fechaIngreso = DateTime.Now.ToString("yyyy-MM-dd")
'----------------
'tratamos la fecha del dtpNacimiento (formateo)
'dtpNacimiento.CustomFormat = "yyyy-mm-dd"
fechaNacimiento = dtpNacimiento.Value.ToString("yyyy-MM-dd")
'tratamos la fecha actual (formateo)
fechaIngreso = DateTime.Now.ToString("yyyy-MM-dd")
'--------------------------------
Dim conexion As New SQLite.SQLiteConnection()
Dim comando As SQLiteCommand
'origen de datos
conexion.ConnectionString = My.Settings.origConnectionString
'abrimos conexion
conexion.Open()
'creamos un comando y lo asociamos a la conexión
comando = conexion.CreateCommand
'query
comando.CommandText = "INSERT INTO CLIENTES (nombre,apellido1,apellido2,sexo,fechanacimiento,fechaingreso,telefono,movil,correoe,domicilio,poblacion,provincia,cp,pais,especialidad) VALUES('" & txtNombre.Text.Replace("'", "''") & "', '" & txtApellido1.Text.Replace("'", "''") & "', '" & txtApellido2.Text.Replace("'", "''") & "', '" & sexo & "', '" & fechaNacimiento & "', '" & fechaIngreso & "', '" & txtTelefono.Text.Replace("'", "''") & "', '" & txtMovil.Text.Replace("'", "''") & "', '" & txtCorreoe.Text.Replace("'", "''") & "', '" & txtDomicilio.Text.Replace("'", "''") & "', '" & txtPoblacion.Text.Replace("'", "''") & "', '" & txtProvincia.Text.Replace("'", "''") & "', '" & txtCodigoPostal.Text.Replace("'", "''") & "', '" & txtPais.Text.Replace("'", "''") & "', '" & cbEspecialidad.SelectedItem & "')"
'OK Sin fechas> comando.CommandText = "INSERT INTO CLIENTES (nombre,apellido1,apellido2,sexo,fechanacimiento,fechaingreso,telefono,movil,correoe,domicilio,poblacion,provincia,cp,pais,especialidad) VALUES('" & txtNombre.Text.Replace("'", "''") & "', '" & txtApellido1.Text.Replace("'", "''") & "', '" & txtApellido2.Text.Replace("'", "''") & "', '" & sexo & "', '" & fechaNacimiento & "', '" & fechaIngreso & "', '" & txtTelefono.Text.Replace("'", "''") & "', '" & txtMovil.Text.Replace("'", "''") & "', '" & txtCorreoe.Text.Replace("'", "''") & "', '" & txtDomicilio.Text.Replace("'", "''") & "', '" & txtPoblacion.Text.Replace("'", "''") & "', '" & txtProvincia.Text.Replace("'", "''") & "', '" & txtCodigoPostal.Text.Replace("'", "''") & "', '" & txtPais.Text.Replace("'", "''") & "', '" & cbEspecialidad.SelectedItem & "')"
'con TO_DATE > comando.CommandText = "INSERT INTO CLIENTES (nombre,apellido1,apellido2,sexo,fechanacimiento,fechaingreso,telefono,movil,correoe,domicilio,poblacion,provincia,cp,pais,especialidad) VALUES('" & txtNombre.Text.Replace("'", "''") & "', '" & txtApellido1.Text.Replace("'", "''") & "', '" & txtApellido2.Text.Replace("'", "''") & "', '" & sexo & "', to_date('" & fechaNacimiento & "','DD/MM/YYYY'), to_date('" & fechaIngreso & "','DD/MM/YYYY'), '" & txtTelefono.Text.Replace("'", "''") & "', '" & txtMovil.Text.Replace("'", "''") & "', '" & txtCorreoe.Text.Replace("'", "''") & "', '" & txtDomicilio.Text.Replace("'", "''") & "', '" & txtPoblacion.Text.Replace("'", "''") & "', '" & txtProvincia.Text.Replace("'", "''") & "', '" & txtCodigoPostal.Text.Replace("'", "''") & "', '" & txtPais.Text.Replace("'", "''") & "', '" & cbEspecialidad.SelectedItem & "')"
'Lanza la query
comando.ExecuteNonQuery()
'cerramos comando y conexion
comando.Dispose()
conexion.Close()
MsgBox("Se ha dado de alta un cliente nuevo en la base de datos")
saludos y muchas gracias por la ayuda