¿Como muestro datos en un datagriw de una busqueda de recordset en access
Publicado por kevin (1 intervención) el 27/10/2017 05:22:48
disculpen :c este es un proyecto de la escuela este es el codigo :C
Lo que quiero es que cuando cargue el formulario se muestren los resultado de la búsqueda de SQL en access, en un datagriw de referencias estoy usando microsoft DAO 6.0
soy nuevo en esto ayuda :c
(general)
Lo que quiero es que cuando cargue el formulario se muestren los resultado de la búsqueda de SQL en access, en un datagriw de referencias estoy usando microsoft DAO 6.0
soy nuevo en esto ayuda :c
(general)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim dbAcceso As Database
Dim SQL As String
Dim rscentros_de_distribucion As Recordset
Private Sub Form_Load()
Set dbAcceso = OpenDatabase(App.Path & "\base de datos de kya.mdb")
SQL = "Select * From centros_de_distribucion"
Set rscentros_de_distribucion = dbAcceso.OpenRecordset(SQL)
If Not (rscentros_de_distribucion.BOF And rscentros_de_distribucion.EOF) Then
rscentros_de_distribucion.MoveLastMe.txtclave.Text = rscentros_de_distribucion("IDCD") + 1
Else
Me.txtclave.Text = 1
End If
Centros_de_distribucion.usuario2 = Form1.usuario.Text
End Sub
Valora esta pregunta
0