Keskustelu: Ohjelmointikysymykset: VB.NET: vb2008 ja access recordset

Option Explicit On

Imports ADODB

Imports ADODB.LockTypeEnum

Imports ADODB.CursorTypeEnum

Imports ADODB.CommandTypeEnum

Imports ADODB.CursorLocationEnum

Imports ADODB.EditModeEnum

Imports ADODB.ExecuteOptionEnum

Imports ADODB.SaveOptionsEnum

Imports System.IO

Public Class PeliTilasto

    Inherits System.Windows.Forms.Form

    Private Yhteys As New ADODB.Connection

    Private Rs As New ADODB.Recordset

    Private strSQL As String

    Private HasNotConnected As Boolean = False

    Private HasConnected As Boolean = True

    Private Sub PeliTilasto_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Yhteys.State = HasNotConnected Then

            Yhteys.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Omatohjelmat\Liiga\SM-Liiga\Tietokanta\liigakehitys.mdb;"

            Yhteys.Open()

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        strSQL = "SELECT joukkue1 FROM yleistiedot"

        Rs.Open(strSQL, Yhteys, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)

        With Rs

            .AddNew()

            .Fields("joukkue1").Value = TextBox1.Text

            .Update()

        End With

        Rs.Close()

        Yhteys.Close()

        End

    End Sub