Movenext
Publicado por Hugo (2 intervenciones) el 27/10/2015 21:34:14
Buenas tardes.
Tengo el siguiente código:
Como puedo hacer esto mismo pero con Visual Studio 2012 Partiendo de que abro una tabla de la siguiente manera?
Gracias.
Tengo el siguiente código:
1
2
3
4
Me.AdoInventario.RecordSource = "Select * From Inventario"
Me.AdoInventario.Refresh
AdoInventario.Recordset.MoveNext
Como puedo hacer esto mismo pero con Visual Studio 2012 Partiendo de que abro una tabla de la siguiente manera?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Abrir()
' / ***** Ver todos los registros
Dim dt As DataTable
OpenDB()
Dim STRSQL As String = ""
STRSQL = "SELECT * from Datos Order by Provincia, canton"
dt = Retornar_Datos(STRSQL)
Me.DGVDatos.DataSource = dt ' / ***** Ver todos los datos de Base Original en un DataGridView
End Sub
Public Function OpenDB() As Boolean
Dim StrCadena As String = ""
StrCadena = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = " + pubRutabaseDatos + "; Jet OLEDB:Database Password=''"
Try
'Cerrar la conexion en caso que se encuentre abierta
CloseDB()
'Abrir la base de datos
PubCon.ConnectionString = StrCadena
PubCon.Open()
'Realizar la conexion
With PubComand
.CommandType = CommandType.Text
.CommandTimeout = 120
.Connection = PubCon
End With
Return True
Catch ex As Exception
MessageBox.Show(Err.Description, "OpenDB", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
Gracias.
Valora esta pregunta
0