Insertar Registro

Favor de ayudarme con que instrucciones inserto un nuevo registro a una tabla de sql cuando yo ya tengo mi recorset y la tabla abierta, tengo entendido que desde sql se realiza con un insert into, ¿pero desde VB como lo hago?

1 respuesta

Respuesta
1
De manera directa desde SQL puedes utilizar
"Insert Into InfRecepcion " & _
"(FolioRec, Placas, Fecha, LineaTransp, " & _
"Proveedor, Contacto,Comentarios, Remision, " & _
"Plataforma,DocSap, Tipo,Impresa, " & _
"Rollo,Identificacion, Oxidacion,opTipo) " & _
"Values " & _
"( '" & strIndice & "' " & _
", '" & UCase(Me.txtPlacas.Text) & "' " & _
", '" & Format(Now, "dd/mm/yyyy hh:mm:ss am/pm") & "' " & _
", '" & UCase(Me.txtTransporte.Text) & "' " & _
", '" & UCase(Me.txtDestino.Text) & "' " & _
", '" & UCase(Me.txtVendedor.Text) & "' " & _
", '" & UCase(Me.txtComentario.Text) & "' " & _
", '" & UCase(Me.txtFactura.Text) & "' " & _
", '" & UCase(Me.txtGondola.Text) & "' " & _
", '" & UCase(Me.txtDSAP.Text) & "' " & _
", '" & UCase(Me.cmbTipo.Text) & "' " & _
", 0 "
o creas un storeprocedure y le envías los parámetros por visual basic
Dim comando As New ADODB.Command
If conexion.State <> 1 Then abrir_conexion_fletes
Set comando.ActiveConnection = conexion
comando.CommandText = "sp_update_CARRIERS_TRANSPORTISTAS"
comando.CommandType = adCmdStoredProc
With comando.Parameters
.Append comando.CreateParameter("NOMBRE_TABLA", adVarChar, adParamInput, 15, "TRANSPORTISTAS")
.Append comando.CreateParameter("Id", adInteger, adParamInput, , txt_Id_transportista.Text)
.Append comando.CreateParameter("Nombre", adVarChar, adParamInput, 42, Trim(txt_Nombre.Text))
.Append comando.CreateParameter("Nombrecorto", adVarChar, adParamInput, 17, Trim(txt_Nombrecorto.Text))
.Append comando.CreateParameter("Contacto_1", adVarChar, adParamInput, 52, Trim(txt_Contacto_1.Text))
.Append comando.CreateParameter("Contacto_2", adVarChar, adParamInput, 52, Trim(txt_Contacto_2.Text))
.Append comando.CreateParameter("Tel_1", adVarChar, adParamInput, 22, Trim(txt_Tel_1.Text))
.Append comando.CreateParameter("Tel_2", adVarChar, adParamInput, 22, Trim(txt_Tel_2.Text))
.Append comando.CreateParameter("E_mail_1", adVarChar, adParamInput, 52, Trim(txt_E_mail_1.Text))
.Append comando.CreateParameter("E_mail_2", adVarChar, adParamInput, 52, Trim(txt_E_mail_2.Text))
. Append comando. CreateParameter("Nextel", adVarChar, adParamInput, 22, Trim(txt_Nextel.Text))
. Append comando. CreateParameter("Fax", adVarChar, adParamInput, 22, Trim(txt_Fax.Text))
. Append comando. CreateParameter("Direccion", adVarChar, adParamInput, 72, Trim(txt_Direccion.Text))
. Append comando. CreateParameter("Rfc", adVarChar, adParamInput, 22, Trim(txt_Rfc.Text))
. Append comando. CreateParameter("rc", adInteger, adParamOutput)
End With
comando.Execute
If comando("rc") = 1 Then
' int_mensajes_informacion 3, "el Transportista " & txt_Id_transportista.Text
Else
int_mensajes_error 3, "El Transportista " & txt_Id_transportista.Text
End If

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Poner contraseña en visual basic thisworkbook

Tengo una función en ThisWorkbook que elimina el libro al llegar a una fecha de caducidad, ahora requiero colocar una contraseña para protección, la cual, al colocar una contraseña errónea, ejecute el borrado de la hoja
2 respuestas

Macro exportar excel a sentencia SQL

Desde un archivo excel necesito crear un archivo *.txt para incorporar a mi base sql. Te adjunto lo que necesitaría en una imagen. (En este caso son dos filas pero podrían ser más). Se que traspasa lo que es una duda, pero es que los conocimientos en...
2 respuestas

Calcular Mantenimiento preventivo de automóvil

Antes que nada hola a todos!. Bueno hoy tengo un pequeño problema a resolver con un programa que se me solicito desarrollar en php. Por ejemplo a cada automóvil se le debe realizar mantenimiento a los 10, 000 Km. Y mandar una notificación o alerta de...
3 respuestas

Resaltar celda de hoja1 si la celda de la hoja2 es igual

Me podrian ayudar necesito una macro para resaltar las celdas de la hoja1 de color amarillo conforme se van agregando en la hoja 2. Hoja1 hoja2 NOMBRE NOMBRE LUIS ERNESTO JUAN FABIO PEDRO LUIS ISAIAS PEDRO ESTEBAN PAOLO MAURO
3 respuestas

Conversión de números a letras en LPP

Necesito desarrollar un algoritmo con la función MIENTRAS que permita la entrada de un numero de un dígito y escriba su valor en letras, el algoritmo se debe repetir hasta que se ingrese una letra. Ejemplo: si el usuario digita el número 4, el...
2 respuestas

Valores duplicados en hoja de excel con macro

Necesito ayuda con esta macro tengo una tabla donde ingreso datos, quiero que cuando encuentre uno repetido me salga un mensaje que ya esta registrado. Private Sub CommandButton_aceptar_Click() prueba =...
1 respuesta

Macro para exportal excel a txt

Desde un archivo excel necesito crear un archivo *.txt para incorporar a mi base sql. Os adjunto lo que necesitaría en una imagen. En este caso son dos filas pero podrían ser más). Muchas gracias....
2 respuestas

Copiar fórmula de una celda hoja1 a hoja 2

No se mucho de macros ni fórmulas estoy aprendiendo me pueden orientar por favor en una hoja de excel tengo esta instruccion que me copia datos de hoja base en celdas G16, D14, D16, en G18 no tengo instruccion aqui...
2 respuestas

Cómo automatizar una tabla Power Query

En un trabajo de Excel he sacado una tabla con power query. Necesito que la tabla creada por power query se automatice al cambiar los datos de la tabla Excel.
1 respuesta

Macro para botón copiar celdas captura a hoja resumen

Comunidad desconozco el proceso para hacer una macro pueden auxiliarme mi consulta es la siguiente por medio de un identificador que se le llama ID (celda D8)se ingresan en celdas datos en la hoja captura y estas copiarlas mediante un botón a hoja...
1 respuesta