Red de conocimiento informático - Problemas con los teléfonos móviles - tutorial de base de datos vb 6

tutorial de base de datos vb 6

Opción explícita

Rs privadas como nuevo ADODB.Recordset

Conexión privada como nueva ADODB.Connection

Conexión privada Sub Form_Load( )

Private Sub Form_Load()

Dim strConn As String

' String para conectarse a la base de datos

' Para conectarse a una base de datos con una contraseña, ingrese el carácter de conexión Luego agregue Jet OLEDB directamente: DataBase Password='Su contraseña'

' Para conectarse a la base de datos Access97, necesita usar Jet.OLEDB.3.5.X y Jet.OLEDB.3.8.X. .5.OLEDB.4.0 para bases de datos Access2K y superiores

strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" amp App.Path amp "\test.mdb; Persist Security Info=False"

'Usar cursor de datos del cliente

Conn.CursorLocation = adUseClient

'Conexión de acceso abierto

Conn. Abrir strConn

' Si el estado del RecordSet no es cerrado, cierre el Recordset

If Rs.State lt;gt; adStateClosed Then Rs.Close

' Recorders Abra la tabla Personas

Rs.Open "Select * Select * from People", Conn, adOpenKeyset, adLockOptimistic

' Informa cuántos datos hay y prueba si existen

p>

' MsgBox Rs.RecordCount

' Vincular a DataGrid

' Establecer DataGrid1.DataSystem.DataSystem.DataSystem.DataSystem.Set DataGrid1.DataSource = Rs

Fin Sub

上篇: ¿Qué significa "666666"? 下篇: ¿Cuáles son las habilidades para la vista aérea del paisaje de PS?

Artículos populares