RE:insert into con errores vacios
Textcampo(6).SetFocus
With cmd
.ActiveConnection = adocnn
.CommandText = ordensql
'.Prepared = True
.CommandType = adCmdText
'.Parameters(nombre) = Textcampo(6)
'.Parameters(nif) = Textcampo(7)
'.Parameters(postal) = Textcampo(8)
'.Parameters(población) = Textcampo(9)
'.Parameters(dirección) = Textcampo(10)
'.Parameters(provincia) = Textcampo(11)
'.Parameters(telefono1) = Textcampo(12)
'.Parameters(telefono2) = Textcampo(13)
'.Parameters(fax) = Textcampo(14)
'.Parameters(movil) = Textcampo(15)
'.Parameters(email) = Textcampo(16)
'.Parameters(web) = Textcampo(17)
'.Parameters(observaciones_cliente) = Textcampo(18)
End With
ordensql = "insert into clientes (nombre,población,nif,postal,dirección,provincia,telefono1,telefono2,fax,movil,email,web,observaciones_cliente)" _
& "Values ('" & Textcampo(6) & "', '" & Textcampo(9) & "','" & Textcampo(7) & "','" & Textcampo(8) & "','" & Textcampo(10) _
& "','" & Textcampo(11) & "','" & Textcampo(12) & "','" & Textcampo(13) & "','" & Textcampo(14) & "','" & Textcampo(15) _
& "','" & Textcampo(16) & "','" & Textcampo(17) & "','" & Textcampo(18) & "')"
cmd.Execute ordensql