RE:Introducir info de campos de texto cn INSERT en
Ejemplo, inserta los valores de un MsFlexGrid con la instruccion Insert, la variable cnbase es un variable de conexion en la cual se conecta de la siguiente manera:
Dim Rec As ADODB.Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Sub Conectar()
Dim Ruta As String
Dim NomBase As String
NomBase = "BaseDatos.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Set Rec = New ADODB.Recordset
End Sub
Private Sub CmdGuardar_Click()
Dim I As Integer
'Ahora Hacemos un ciclo para ver quien Asistio y Grabarlo
With MSFlexGrid1
For I = 1 To .Rows - 1
For D = 1 To 3 'Son las 3 Columnas
If .TextMatrix(I, D) = strChecked Then
sql = "Insert Into Tabla3(nombrealumno,fecha,asignatura,hora) " & _
"Values ('" & .TextMatrix(I, 0) & "','" & Format(txtfecha, "dd/mm/yyyy") & "','" & comboasig & "'," & D & ")"
cnbase.Execute sql
End If
Next D
Next I
End With
MsgBox "Grabado con Exito", vbInformation, "mIgUeL aNgEl"
Command1.Enabled = False
End Sub