Visual Basic - boton guardar

Life is soft - evento anual de software empresarial
   
Vista:

boton guardar

Publicado por santiago (4 intervenciones) el 17/06/2010 19:53:01
buenas, tengo que hacer un boton de guardar pero no se que codigo es
grcias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- ADODC
- Juego de coches
- Tiempo de uso del PC

RE:boton guardar

Publicado por Julio (72 intervenciones) el 17/06/2010 21:21:48
Primero entra a referencias y tilda
Microsoft Activex data Objects 2.6 librery

En un modulo realizas la conexion a la base de datos este ej se conecta a x.mdb osea access

Public Sub Access()
'*
Dim Cadena As String, NomBase As String, Ruta As String
'*
On Error GoTo 1
'*
NomBase = "x.mdb"
'*
Ruta = App.Path & "\" & NomBase
'*
Cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source =" & Ruta & ""
'*
Set Ado = New ADODB.Connection
'*
Ado.CursorLocation = adUseClient
'*
Ado.Open Cadena
'*
Exit Sub
1:
Call Error
End Sub

luego en el form en el load haces

Private Sub Form_Load()
'*
On Error GoTo 1
'*
Call Access
'*
Exit Sub
1:
Call Error
End Sub

y luego en boton haces:

Private Sub Command1_Click()
Ado.BeginTrans
Ado.Execute ("Insert Into Rubros values ('" + T1.Text + "')")
Ado.CommitTrans
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar