VB.Net and SQLite

Hi. I created a small program which one uses the SQLite database. I have a simple table employees, composed of the name and password. I can not write sql script correctly. application code is:

Code:

---

Imports System.Data
Imports System.Data.SQLite

---

Code:

---

Public Class Form1

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Dim connec = New SQLite.SQLiteConnection()
        Dim myCommand As New SQLite.SQLiteCommand()
        Dim myData As SQLite.SQLiteDataReader
        Dim myAdapter As SQLite.SQLiteDataAdapter
        'Dim SQL As String

        Dim name As String = txtUser.Text
        'Dim password As String = txtPassword.Text
Try
            connec.ConnectionString = "Data Source=" & Application.StartupPath & "\employees.db3; FailIfMissing=True;"
            connec.Open()
            myCommand = connec.CreateCommand
            myCommand.CommandText = "SELECT name FROM user WHERE name = '" + txtUser.Text
            myData = myCommand.ExecuteReader()
            myData.Read()
            If myData.HasRows Then
                frmmain.Show()
                Me.Hide()

                myData.Close()
            Else
                MessageBox.Show("Error")
                myData.Close()

            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

---

please help me in this issue.
thank you.

I don't really understand what you are doing, but i use this to read from a database. it only server as and example, you can get ideas from it.

vb Code:

Sub loadSettings(byval DBPath as string)
        Dim Names() As String
        Dim Values() As String
        Dim conn As SQLiteConnection = New SQLiteConnection("Data Source=" & DBPath)
        conn.SetPassword(dbPassword)
 
        conn.Open()
        'conn.ChangePassword(vbNullString)
        sSQL = "Select Name,Value From settings"
        Dim cmd As SQLiteCommand = New SQLiteCommand(conn)
        cmd.CommandText = sSQL
        Dim reader As SQLiteDataReader = cmd.ExecuteReader()
        Dim i As Integer = 0
        If reader.VisibleFieldCount > 0 Then
            dicSettings.Clear()
        End If
        Do While (reader.Read())
            ReDim Preserve Names(i)
            ReDim Preserve Values(i)
            Names(i) = reader.Item("name").ToString
            Values(i) = reader.Item("value").ToString
            dicSettings.Add(Names(i), Values(i))
        Loop
        reader.Close()
        conn.Close()
        '// apply the settings //
 
    End Sub

Thanks for the reply. I built a form of logging that would open after connecting frmmain. I put a PrtScr.

Here's a good place to start.

One problem I saw was a missing ending quote.

Code:

---

myCommand.CommandText = "SELECT name FROM user WHERE name = '" + txtUser.Text & "'"

---

Also instead of using txtUser.Text you should use parameters. If will save you both time and aggravation.

thank you. That was the problem.:wave: