Option Explicit
Public rsCiudad2 As Recordset
Public cnPrueba As Connection
Private Sub Command1_Click()
If Text1 = "" Or Combo1 = "" Then
MsgBox "Debe ingresar datos en los campos", vbCritical, Me.Caption
Exit Sub
End If
'crear un objeto conexion
Set cnPrueba = New Connection
'Establecer sus propiedades
With cnPrueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnPrueba.Open
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
.CursorLocation = adUseClient
.Open "SELECT * FROM Ciudad2", cnPrueba, adOpenDynamic, adLockOptimistic
End With
'Añadimos los registros del formulario a la base de datos
With rsCiudad2
.AddNew
.Fields("idprovincia") = Text2.Text
.Fields("Ciudad") = Text1.Text
.Fields("Provincia") = Combo1.Text
.Update
End With
MsgBox ("Datos Añadidos")
'Refrescamos el formulario para que se borren los datos introducidos
With rsCiudad2
MSFlexGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
.Update
End With
'Añadimos el formulario al msflexgrid
While Not rsCiudad2.EOF
MSFlexGrid1.AddItem rsCiudad2("idprovincia") & vbTab & rsCiudad2("ciudad") & vbTab & rsCiudad2("Provincia")
rsCiudad2.MoveNext
Wend
'Insertamos la cabezera
MSFlexGrid1.TextMatrix(0, 0) = "idprovincia"
MSFlexGrid1.TextMatrix(0, 1) = "ciudad"
MSFlexGrid1.TextMatrix(0, 2) = "Provincia"
Screen.MousePointer = vbDefault
End Sub
Private Sub Command2_Click()
'Pregunta
If MsgBox("¿Está seguro de que desea eliminar el registro?", vbQuestion + vbYesNo, Me.Caption) = vbNo Then Exit Sub
'Se elimina de la base de datos.
Set cnPrueba = New ADODB.Connection
cnPrueba.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prueba.mdb;Persist Security Info=False"
cnPrueba.Open
cnPrueba.Execute "delete from Ciudad2 "
cnPrueba.Close
Set cnPrueba = Nothing
'Se elimina el registro del msflexgrid
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
End Sub
Private Sub Command3_Click()
Unload Me
End
End Sub
Private Sub Command4_Click()
Set cnPrueba = New Connection
'Establecer sus propiedades
With cnPrueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnPrueba.Open
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
.CursorLocation = adUseClient
cnPrueba.Execute "UPDATE provincias SET Ciudad='" & Text1 & ",provincia='" & Combo1 & "'Where idprovincia = " & Text2 & ""
.ActiveConnection = cnPrueba
.LockType = adLockOptimistic
End With
With rsCiudad2
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = frmciudades.Text1.Text
End With
End Sub
Private Sub Command5_Click()
Set cnPrueba = New Connection
'Establecer sus propiedades
With cnPrueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnPrueba.Open
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
.CursorLocation = adUseClient
.Open "SELECT * FROM Ciudad2", cnPrueba, adOpenDynamic, adLockOptimistic
End With
'Limpiamos el formulario
With rsCiudad2
MSFlexGrid1.Refresh
Text1.Text = ""
Combo1.Text = ""
Text2.Text = ""
.Update
End With
End Sub
Private Sub Form_Load()
Set cnPrueba = New Connection
'Establecer sus propiedades
With cnPrueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnPrueba.Open
'Visualizar el formulario
frmciudades.Show
frmciudades.Refresh
MSFlexGrid1.Refresh
'crear un objeto conexion
Set cnPrueba = New Connection
'Establecer sus propiedades
With cnPrueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnPrueba.Open
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
.Source = "select idprovincia,ciudad,provincia from Ciudad2"
.ActiveConnection = cnPrueba
.LockType = adLockOptimistic
End With
rsCiudad2.Open Options:=adCmdText
'Añadimos la cabezera
MSFlexGrid1.Cols = 3
MSFlexGrid1.FixedCols = 0
While Not rsCiudad2.EOF
MSFlexGrid1.AddItem rsCiudad2("idprovincia") & vbTab & rsCiudad2("Ciudad") & vbTab & rsCiudad2("provincia")
rsCiudad2.MoveNext
Wend
'Insertamos la cabezera
MSFlexGrid1.TextMatrix(0, 0) = "idprovincia"
MSFlexGrid1.TextMatrix(0, 1) = "Ciudad"
MSFlexGrid1.TextMatrix(0, 2) = "Provincia"
Screen.MousePointer = vbDefault
MSFlexGrid1.ColWidth(1) = 2000
MSFlexGrid1.ColWidth(2) = 2000
End Sub
Private Sub MSFlexGrid1_Click()
frmciudades.Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
frmciudades.Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)
frmciudades.Combo1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)
End Sub