小编Dav*_*Mas的帖子

我的联系:

Public con As SQLiteConnection = New SQLiteConnection("Data Source=trancebeats.s3db")

并在表单加载时打开连接

插入新值:

Public Sub InsertNewCatSub()
        prUpdate.Value = 0
        prUpdate.Maximum = 1
        lblUpdateResults.Text = prUpdate.Value & " of " & prUpdate.Maximum & " Checked"
        lblUpdateResults.ForeColor = Color.Red
        TotUpd = 0
        TotNew = 0
        Dim filename1 = Path.GetFileNameWithoutExtension(NewCat)
        Dim filename2 = filename1.Replace("[", "")
        Dim filename3 = filename2.Replace("]", "")
        Dim filename4 = Path.GetDirectoryName(NewCat)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Dim Querytxt As String = "Select * from trancebeats Where Cat = '" …