Cual de las dos formas es mas conveniente aprender y usar?,que diferencia tiene cada una.
en sql me manejo bien.
gracias
forma 1
Código:
Public Rs As ADODB.Recordset Public con As Connection Sub conexion() Set con = New ADODB.Connection 'string de conexion con.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=C:\bd\comercio.mdb;" & "Uid=;Pwd=" con.Open End Sub -------------------------------------------------------------------------------------------------------- Private Sub ingresar_Click() If (codigo= "") Then Label1 = "codigo vacio" ElseIf (pais = "") Then Label1 = "pais vacio" ElseIf (region = "") Then Label1 = "region vacio" Else Dim codigoo As String Dim paiss As String Dim regionn As String codigoo= codigo.Text paiss = pais.Text regionn = region.Text Text1 = "" Text2 = "" Text5 = "" Text6 = "" SQL = "INSERT INTO datos (codigo,pais,region) " SQL = SQL & " VALUES (" SQL = SQL & "'" & codigoo & "'," SQL = SQL & "'" & paiss & "'," SQL = SQL & "'" & regionn& "')" con.Execute (SQL) End If End Sub
forma 2
Código:
Private Sub Agregar_Click() Dim mensaje Dim bdd As Database, regcli As Recordset Set bdd = OpenDatabase(App.Path & "\comercio.mdb") Set regcli = bdd.OpenRecordset("datos") Call todos 'agrega un registro en blanco regcli.AddNew For i = 0 To 6 regcli.Fields(i) = UCase(Trim$(Text1(i))) Next If Option1 = True Then regcli!sexo = "FEMENINO" Else regcli!sexo = "MASCULINO" End If 'graba la base de datos regcli.Update 'cierra la base de datos regcli.Close 'lo siguiente limpia los datos ingresados del textbox Call limpiar Text1(0).SetFocus Agregar.Visible = False Buscar.Visible = True End Sub