| Pregunta: | 46013 - SOLUCIóN AL ERROR -2147467259 |
| Autor: | Carlos Amaro |
| Saludos a todos.
Estoy corriendo un DTS programado en VB para insertar datos en SQL Server a una tabla definitiva desde un archivo en Excel, pero me genera el error -2147467259 la primera vez que lo corro. si lo corro por segunda ves se ejecuta sin ningun problema. Ya verifique que los nombres y tipos de datos de los campos de la tabla correspondan con la definición del DTS. (OK) Ya verifique del OLEDB en el regedit, para que permita valores NULL (OK) Alguien podria ayudarme a resolver mi problema. De antemano les doy las gracias por la ayuda. | |
| Respuesta: | Jose Ocampo |
| Ese error lo tengo cundo intento abrir una Base de Datos Access, inexistente, y lo solucione asi. Evidentemente te da el error porque no encuentra la base de datos la primera vez, seguramente despues la creas por eso te tira el error. Si te sirve....
Sub main() Titulo = "Sistema carga Procreación Responsable" On Error GoTo Mal Set Cn = New ADODB.Connection Txt = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\EnBlanco.MDB;Persist Security Info=False" With Cn .ConnectionString = Txt .Open End With Load frmUnificacion frmUnificacion.Show Mal: If Err.Number = -2147467259 Then MsgBox "No se encontro la Base de Datos" & vbCrLf & "Se " _ & "cerrará la aplicacion", vbCritical, Titulo Exit Sub End If End Sub | |