Que forma recomiendan en visual basic+access

[Sponsored links]

[-thor-]

Soy nuevo en el mundo de visual basic 6.0 y encontre estos dos codigos para estudiarlos,trabajan conectandose a una base de datos access.
Cual de las dos formas es mas conveniente aprender y usar?,que diferencia tiene cada una.

en sql me manejo bien.
gracias

forma 1

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

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

[Kolb]

Mano, la primera diferencia entre los dos es que el 1 usa ADO y el 2 usa DAO. ADO es el último y mejor modelo después de DAO y RDO. O sea que use el 1. Pero....
El ejemplo 1 esta usando ODBC y no lo recomiendo para nada, es mejor usar OLEDB con MS Jet 4.0. Qué enredo no? echele una miradita a este link:

http://aspn.activestate.com/ASPN/Cookbook/PHP/Recipe/123709

Es para C pero el concepto es aplicable. Para VB haga la conección asi:

Public con As New Connection ' La Base de Datos
con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\bd\comercio.mdb" & _
";Jet OLEDB:Database Password=xxxxxl"

Y recuerde en Referencias chequear al "Microsoft ActiveX Data Objects x.x Library"