Pregunta:
VISUAL BASIC .! necesito respuesta facil (10 PUNTOS)?
Josnel R
2008-06-25 20:52:26 UTC
Hola, tengo mi base de datos de accees montada en visual basic.! PERO ahora necesito cargar registros y que dichos registros me los guarde en la base de datos.! se que tengo que crear un boton de aceptar.! pero es hay donde no recuerdo.! que codigo le meto para que los datos que esten en los cajones de textos se guarden en la Base de datos de accees!!!!!!!!! PLS RESPUESTAS FACILES SENCILLA SIN APUROS.!!! espero sus ayudas son 10 a LA MEJOR RESPUESTAAAAAA
Cuatro respuestas:
Jgiron
2008-06-25 21:52:35 UTC
Visita esta página, tal vez te ayude en algo.



http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-data.htm
2008-06-26 15:51:51 UTC
paso 1) Agregar Referencia.

Ir a menu proyecto, pinchar referencias y marcar "Microsoft activex Data Object 2.8 Library", o alguna parecida



paso 2) Conectar la base (en este caso se llamara mibase.mdb)



Public MiConexion As ADODB.Connection

Public Sub conectar()

Dim cadena As String

Set MiConexion = New ADODB.Connection

cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mibase.mdb;User Id=admin;Password=;"



MiConexion.ConnectionString = cadena

MiConexion.Open

End Sub



paso 3) agregar registros a una tabla. puedes hacer la llamada desde un command_click por ejemplo, con el nombre de "boton1"



Private Sub Boton1_Click()

guardar

end sub



private sub guardar()

Dim rsTabla as ADODB.recordset

Dim cadena as string

set rsTabla = new ADODB.recordset



cadena ="select nombre,apellido,edad from clientes"

rstabla.open cadena, MiConexion, adOpenDynamic, adLockOptimistic



rstabla.addnew

rstabla("nombre")= text1.text

rstabla("apellido")=text2.text

rstabla("edad")=text3.text

rstabla.update



end sub



paso 4) ver datos en una grilla. Agrega el componente adecuado para la grilla, yo uso el "Microsoft Hierarchical Flexgrid...". y nombralo "grilla1"



private sub VerEnGrilla()

Dim rsTabla as ADODB.recordset

Dim cadena as string

set rsTabla = new ADODB.recordset



cadena ="select nombre,apellido from clientes"

rstabla.open cadena, MiConexion, adOpenDynamic, adLockOptimistic

set grilla1.recordset = rstabla

end sub



si quieres filtrarla por ejemplo para que te muestre solo los clientes mayores de edad cambia la cadena a algo así:



cadena="select nombre,apellido from clientes where edad>=18"



ahora si el valor "18" o cualquier otro esta contenido en otro control, digamos un list puedes hacer lo siguiente



cadena="select nombre,apellido from clientes where edad>=" & list1.text



SI la información fue de tu agrado califica!!!!!!!
pysico
2008-06-25 21:24:10 UTC
puedes usar un modulo que te funcione para vincular la base

este es el codigo del modulo



Option Explicit

Declare Sub InitCommonControls Lib "comctl32.dll" ()

Global DbA As New ADODB.Connection

Global Rs1 As New ADODB.Recordset

Global UsuarioActivo As String



Sub Main()

DbA.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\base.mdb" & ";"

DbA.Open



Rs1.ActiveConnection = DbA

Rs1.LockType = adLockOptimistic

Rs1.CursorLocation = adUseClient



InitCommonControls

Form1.Show

End Sub



Public Sub RunRs1(ByVal Query As String)

If Rs1.State = 1 Then Rs1.Close

Rs1.Open Query

End Sub





ahora el boton de guardar ira de esta forma



RunRs1 "SELECT * FROM USUARIOS WHERE NOMBRE='" & Text1.Text & "'"

If Rs1.RecordCount > 0 Then

resp = MsgBox("Desea modificar este usuario este usuario ", vbQuestion + vbYesNo, "Confirmacion ")

If resp = 6 Then

Dim cadena1 As String

cadena1 = " UPDATE USUARIOS SET NOMBRE='" & Text1.Text & "' "

cadena1 = cadena1 & "WHERE APELLIDO='" & Text2.Text & "'"



Else

Dim cadena As String

cadena = " INSERT INTO USUARIOS ( NOMBRE, APELLIDO ) VALUES('"

cadena = cadena & Text1.Text & "','"

cadena = cadena & Text2.Text & "')"



RunRs1 cadena



End If

End If

End Sub



si tienes dudas contactame
2008-06-25 21:04:30 UTC
para visualizar los registros de la base de datos en visual basic toenes que utilizar la herramienta data. en visual basic no se pueden modificarlos registrros solo se pueden visualizar,



para visualizar los registros tienes que utilizar la propiedad datafield y data base nameen tre otras.


Este contenido se publicó originalmente en Y! Answers, un sitio web de preguntas y respuestas que se cerró en 2021.
Loading...