[dubai.eig]

(31-01-17, 07:31 PM)مساعدة كتب : السلام عليكم


ضع مشروعك.

شكرا على الرد 

هذا الكود 

كود :

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Button2.Enabled = False


       If lblDisplay.Text = "0" Then
           count += 1
       Else
           count = 1
       End If

       Dim con As New SQLiteConnection("Data Source= " & My.Application.Info.DirectoryPath & "\info.s3db")
       Dim cmd As New SQLiteCommand("UPDATE info SET status=@status WHERE id=@id ", con)
       con.Open()
       cmd.Parameters.AddWithValue("@status", count)
       cmd.Parameters.AddWithValue("@id", getid)
       cmd.ExecuteNonQuery()
       cmd.Dispose()
       con.Close()



       Dim SQLconnect As New SQLite.SQLiteConnection()
       Dim SQLcommand As SQLiteCommand
       SQLconnect.ConnectionString = "Data Source= " & My.Application.Info.DirectoryPath & "\info2.s3db"
       SQLconnect.Open()
       SQLcommand = SQLconnect.CreateCommand
       SQLcommand.CommandText = "INSERT INTO info2 (CALLop,qso_dated) Values (@CALLop,@qso_date)"
       SQLcommand.Parameters.AddWithValue("@CALLop", calls.Text)
       SQLcommand.Parameters.AddWithValue("@qso_date", qso_date.Text)
       SQLcommand.ExecuteNonQuery()
       SQLcommand.Dispose()
       SQLconnect.Close()

       RefreshData()
       ClearTextbox()

   End Sub