Insertar en visual basic
Hola soy nuevo quiero saber como rellenando varios textbox de un formulario y dándole a un botón aceptar se me guarde un nuevo registro por ejemplo de un cliente en la tabla clientes que tengo creada en visual basic gracias
1 respuesta
Respuesta de drinfierno
1
Para la conexión
Primero hacer Referencia en POroyecto - referencia encontrás un enlace que dirá Microsoft Activex 2.8 le das un check y aceptas
después en un formulario
Entorno código
General Declaraciones
Private Cn as adodb.connection
`para la conecion
Public Sub Conectar()
Set Cn = New ADODB.Connection
With Cn
.CursorLocation = adUseClient
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.Open "\d\Sistema\Data\TUDATA.mdb"
End With
If Cn.State = adStateClosed Then
MsgBox "Error en la conexion", 64, "Sistema"
Else
Beep
End If
End Sub
Pra la Tabla
Esto va en el Load del formulario
conectar
Dim RsAlmacen as adodb.Recordset
Set RsAlmacen = New ADODB.Recordset
With RsAlmacen
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "Tienda", Cn
End With
Ahjora para guardar lo siguiente
rsalmacen.addnew
RsAlmacen!Nombredelcampo =texto
o
RsAlmacen(IndicedelCampo 0,1,2, etc) = texto
rsalmacen.Update
Se acabo espero te sirva
[email protected]
Primero hacer Referencia en POroyecto - referencia encontrás un enlace que dirá Microsoft Activex 2.8 le das un check y aceptas
después en un formulario
Entorno código
General Declaraciones
Private Cn as adodb.connection
`para la conecion
Public Sub Conectar()
Set Cn = New ADODB.Connection
With Cn
.CursorLocation = adUseClient
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.Open "\d\Sistema\Data\TUDATA.mdb"
End With
If Cn.State = adStateClosed Then
MsgBox "Error en la conexion", 64, "Sistema"
Else
Beep
End If
End Sub
Pra la Tabla
Esto va en el Load del formulario
conectar
Dim RsAlmacen as adodb.Recordset
Set RsAlmacen = New ADODB.Recordset
With RsAlmacen
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "Tienda", Cn
End With
Ahjora para guardar lo siguiente
rsalmacen.addnew
RsAlmacen!Nombredelcampo =texto
o
RsAlmacen(IndicedelCampo 0,1,2, etc) = texto
rsalmacen.Update
Se acabo espero te sirva
[email protected]
Puedes explicármelo de una manera más sencilla yo es que se lo básico vamos y la mitad de cosas no me entero, ¿puede ser con el insert into?
Insert Into ok, Pero lo que psa es q tengo el Insert Into pero con el SqlServer llamando a Store Procedure
¿No se si ello t ayudaría?, pero dejame ver ok!
Si estas en linea en 30 min t doy la respuesta tengo que salir a comprar mi almuerzo :D
¿No se si ello t ayudaría?, pero dejame ver ok!
Si estas en linea en 30 min t doy la respuesta tengo que salir a comprar mi almuerzo :D
¿Si yo creo que me serviría el de sql mándamelo si puedes ok? Muchas gracias
Public Function Insertar(ByVal vcodigo As String,ByVal vDescripcion As String) As Recordset
On Error GoTo Mal
Dim COMR As ADODB.Command: Set COMR = New Command
With COMR
.ActiveConnection = Cn
.ActiveConnection.CursorLocation = adUseClient
.CommandType = adCmdStoredProc
.CommandText = "aqui tu store procedure de insercion"
.Parameters.Append .CreateParameter("campo1", adVarChar, adParamInput, caracteresdelcampo, vcodigo)
.Parameters.Append .CreateParameter("campo2", adVarChar, adParamInput,caracteresdelcampo, vdescrpcion)
Set Insertar = .Execute
Set COMR = Nothing
End With
Mal:
Select Case Err.Number
Case 3021: VerificaTransaccion
End Select
End Function
Public Sub Conectar()
Dim X As Object
Set Cn = New ADODB.Connection
With Cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sA;pWD=sa;Initial Catalog=tubd"
.Open
End With
End Sub
el Store Procedure en Sql server
Create Procedure Usp_InsertarPrueba
@Codigo varchar(5),
@Descripcion varchar(50)
As
Insert Into Nombredelatabla
Values
( @Codigo,@Descripcion)
En el formulario solo llamas a la función
insertar (txtcodigo, txtdescripcion)
Y eso es todo
On Error GoTo Mal
Dim COMR As ADODB.Command: Set COMR = New Command
With COMR
.ActiveConnection = Cn
.ActiveConnection.CursorLocation = adUseClient
.CommandType = adCmdStoredProc
.CommandText = "aqui tu store procedure de insercion"
.Parameters.Append .CreateParameter("campo1", adVarChar, adParamInput, caracteresdelcampo, vcodigo)
.Parameters.Append .CreateParameter("campo2", adVarChar, adParamInput,caracteresdelcampo, vdescrpcion)
Set Insertar = .Execute
Set COMR = Nothing
End With
Mal:
Select Case Err.Number
Case 3021: VerificaTransaccion
End Select
End Function
Public Sub Conectar()
Dim X As Object
Set Cn = New ADODB.Connection
With Cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sA;pWD=sa;Initial Catalog=tubd"
.Open
End With
End Sub
el Store Procedure en Sql server
Create Procedure Usp_InsertarPrueba
@Codigo varchar(5),
@Descripcion varchar(50)
As
Insert Into Nombredelatabla
Values
( @Codigo,@Descripcion)
En el formulario solo llamas a la función
insertar (txtcodigo, txtdescripcion)
Y eso es todo
