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
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