Imports System.Data.OleDb
Public Class highScore
Dim dbConnection As OleDb.OleDbConnection
Dim dbCommand As OleDb.OleDbCommand
Dim dbAdapter As OleDb.OleDbDataAdapter
Dim ConnectionString As String = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = SSADatabase.mdb"
Dim dtHighScore As DataTable
Dim SelectedData As String = "highScore"
Private Sub getData()
dbConnection = New OleDb.OleDbConnection(ConnectionString)
dbAdapter = New OleDb.OleDbDataAdapter
dtHighScore = New DataTable
dbCommand = New OleDb.OleDbCommand(SelectedData)
dbCommand.CommandType = CommandType.TableDirect
dbAdapter.SelectCommand = dbCommand
dbAdapter.SelectCommand.Connection = dbConnection
dbConnection.Open()
dbAdapter.Fill(dtHighScore)
DataGridView.DataSource = dtHighScore
End Sub
Private Sub highScore_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
getData()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim objRow As DataRow
Dim tableName As String = "highScore"
Dim objDataSet As New DataSet
If txtName.Text = "" Then
MsgBox("You need to fill out your name")
Exit Sub
End If
Dim newAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM " & tableName & "", ConnectionString)
objDataSet.Clear()
newAdapter.FillSchema(objDataSet, SchemaType.Source, tableName)
newAdapter.Fill(objDataSet, tableName)
objRow = objDataSet.Tables(tableName).Rows.Find(objDataSet.Tables(tableName).Rows.Count + 1)
objRow.Item("Name") = txtName.Text '' <----- This line here
objRow.Item("Score") = myTotalScore
End Sub
VS 2008 and Access 2003
Reply With Quote