Visual Basic

Imports ADOX

Public Class Create
    'This holds the data from the database for processing in the program
    Dim DBSet As New DataSet
    Dim DBAdaptor As OleDb.OleDbDataAdapter
    Dim DBTable As DataTable
    Dim DBView As DataView
    'This will give access to the database (open to read/write, close to end transaction)
    Dim DBCon As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = ScoreDB.mdb")
    'This passes commands to database
    Dim DBCommand As OleDb.OleDbCommandBuilder

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'If database doesn't exist create new database (first use)
        If Not My.Computer.FileSystem.FileExists("ScoreDB.mdb") Then
            Dim DBCat As New Catalog()
            DBCat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=ScoreDB.mdb;" & _
                    "Jet OLEDB:Engine Type=5")
            'Add table and define fields
            Dim DBCmd As New OleDb.OleDbCommand("CREATE TABLE [High_Score] ([Name] TEXT(30), [Score] NUMERIC(10))", DBCon)
            'Open database and complete update
            DBCon.Open()
            DBCmd.ExecuteNonQuery()
            DBCon.Close()
        End If

        'Fill dataset from database (all uses)
        DBCon.Open()
        Dim DBAdaptor As New OleDb.OleDbDataAdapter("SELECT * FROM High_Score", DBCon)
        DBAdaptor.Fill(DBSet, "High_Score")
        DBCon.Close()

        'Fill datatable & provide dataview to facilitate sorting

        Dim DBView As New DataView(DBSet.Tables(0))
        'Sort highest score first, alphabetical if scores identical
        DBView.Sort = "Score DESC, Name ASC"
        'Display
        DataGridView1.DataSource = DBView

    End Sub

    Private Sub DataUpdate(ByVal Name As String, Score As Integer)
        Dim DBAdaptor As New OleDb.OleDbDataAdapter("SELECT * FROM High_Score", DBCon)
        'Command builder translates adapter commands for database
        Dim DBCommand As New OleDb.OleDbCommandBuilder(DBAdaptor)
        Dim DBRow As DataRow

        DBRow = DBSet.Tables("High_Score").NewRow()
        DBRow.Item("Name") = Name
        DBRow.Item("Score") = Score

        DBSet.Tables(0).Rows.Add(DBRow)

        DBAdaptor.Update(DBSet, "High_Score")


    End Sub

End Class

ilgrongo wrote:

I belived that to start a session from 1 side using a webreference class which
set 'session("my_session")=1' was enough.

Member 8768189 wrote:

The app im working on now has a timer to keep it ontop. it is password enabled to both lock and unlock it so random kids cant lock or unlock the PC without the password. i made the app so it can not be shutdown with the ALT+F4 keys, it is borderless, and FILLS the whole screen.

Bastard Programmer from Hell

Member 8768189 wrote:

i want this app for myself and many many others and its to keep all people off not just kids.

Bastard Programmer from Hell

Member 8768189 wrote:

This Program would be a big hit on my website.