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