Insertar hacia fox

ivonnealdanal
18 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