
07/03/2008, 13:37
|
| | Fecha de Ingreso: marzo-2008
Mensajes: 12
Antigüedad: 17 años Puntos: 0 | |
Miren Este Codigo Me pueden Decir que es lo malo que tengo
Dim conn As OdbcConnection
Dim Ssql As String
Dim ejecutar As OdbcCommand
Dim DatosUsuarios As Integer
conn = New OdbcConnection("DRIVER={Microsoft FoxPro VFP Driver (*.dbf)};dbq=C:\DATA\PREMP.DBF")
conn.Open()
Ssql = "Insert into C:\Data\Premp.dbf(emp_no,emp_first,emp_last,emp_ad dr,emp_city,emp_phone,emp_type,sex,marital,ssno,Bi rth_date,nacion,cip,hire_date)"
Ssql &= "Values('" & codtpm & "' , '" & activo & "', '" & tipoEmpleado & "' ,"
Ssql &= "'" & nombre & "' , '" & apellidos & "' , '" & fechanacimiento & "' ,"
Ssql &= "'" & fechanacimiento & "' , '" & lugarnacimiento & "' , '" & nacionalidad & "')"
ejecutar = New OdbcCommand(Ssql, conn)
DatosUsuarios = ejecutar.ExecuteNonQuery()
conn.Close()
Última edición por saulmurillo; 07/03/2008 a las 14:10 |