Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

                Dim connect As New SQLite.SQLiteConnection()
                connect.ConnectionString = "Data Source=user.s3db;"
                connect.Open()
                connect.Close()

Visual Basic Quellcode

                Dim connect As New SQLite.SQLiteConnection()
                Dim command as SQLiteCommand
                connect.ConnectionString = "Data Source=user.s3db;"
                connect.Open()
                connect.Close()

                connect.Open()
                command = connect.CreateCommand
                command.CommandText = "CREATE TABLE user(id INTEGER PRIMARY KEY AUTOINCREMENT,name TEXT);" 'Die Query
                command.ExecuteNonQuery() ' Die Query wird ausgeführt
                command.Dispose() 
                connect.Close() 'Schließen

Visual Basic Quellcode

command.CommandText = "INSERT INTO user (name) VALUES ('Tsuyo')"

Visual Basic Quellcode

command.CommandText = "DELETE FROM user WHERE id ='1' "

Visual Basic Quellcode

command.CommandText = "SELECT id,user FROM user"

Visual Basic Quellcode

command.ExecuteNonQuery()

Visual Basic Quellcode

Dim SQLreader As SQLiteDataReader = command.ExecuteReader()

Visual Basic Quellcode

While SQLreader.Read()
'Man ruft die einträge mit sqlreader(zahl) aus... zahl steht für die jeweilige tabellenspalte. Also sqlreader(0) gibt id aus, sqlreader(1) gibt den namen aus.
messagebox.show("Der Benutzer: " & sqlreader(1) & " hat die ID: " & sqlreader(0))
End While

Visual Basic Quellcode

            command.Dispose()
            connection.Close()