Insertar hacia FOX

ivonnealdanal
24 de Noviembre del 2005
Necesito INSERTAR datos hacia tablas son manejados actualmente con una aplicacion hecha en foxpro 2.6... ya logre conectarlo, ya pude hacer una consulta asi:

Protected Str_ConexionFox As String = "DBQ=C:SIAHR;Driver={Microsoft dBase Driver (*.dbf)};DefaultDir=C:SIAHR;DriverId=533"
Public sqlcon_ConexionBDFOX As New System.Data.Odbc.OdbcConnection(Str_ConexionFox) 'DBQ=C:NFOX;Driver={Microsoft dBase Driver (*.dbf)};DefaultDir=C:NFOX;DriverId=533

Public Sub AbrirConexion()
sqlcon_ConexionBDFOX.Open()
End Sub

Public Sub CerrarConexion()
sqlcon_ConexionBDFOX.Close()

End Sub
Public Function ConsultaBDFOX(ByVal query As String) As DataSet
Dim data_tabla As New DataSet
Dim AdaptadorFOX As New Odbc.OdbcDataAdapter
AbrirConexion()
AdaptadorFOX.SelectCommand = New Odbc.OdbcCommand(query, sqlcon_ConexionBDFOX)
AdaptadorFOX.Fill(data_tabla)
CerrarConexion()
Return data_tabla
End Function

PERO AHORA LO QUE NECESITO ES INSERTAR NECESITO URGENTEMENTE AYUDA!!!

ESTE codigo:

str_insertar: INSERT INTO TABLA Values(valor1,valor2)

Public Sub Insert_test(ByVal str_insertar As String)
Dim cmd_Comando As New OdbcCommand
AbrirConexion()
cmd_Comando.Connection = sqlcon_ConexionBDFOX
cmd_Comando.CommandText = str_insertar
Try
cmd_Comando.ExecuteNonQuery()
Catch ex As Exception
Dim a As Integer
Finally
CerrarConexion()
End Try
End Sub

NO me saca ningun error pero tampoco hace la insersion ¿Como puedo hacerlo?

GRACIAS DE ANTEMANO

josuth
24 de Noviembre del 2005
Hola!

El código parece correcto. Sólo he visto dos cosas que a lo mejor no tienen nada que ver con tu problema o si:

Cuando abres la conexión en el método Insert_test, deberías meter la llamada a AbrirConexion dentro del try catch.

Por otro lado, en el catch de Insert_test no haces nada, de esta manera capturará la excepción y no verás ningún error por ningún lado. A menos que depures la aplicación, y veas que no entra en el catch no podrás saber si ocurre un error o no.

Si ya has depurado la aplicación y no salta ninguna excepción, no sé de qué puede tratarse.

Un saludo!