[مساعدة]

بسبب نقل الكود من مشروع سابق نسيب استبدال جرء من الكود

هناك تصحيح للكود

حيث تم استبدال daa.SelectCommand ب cmd

كود :

Dim cn As New SqlCeConnection("Data Source=Database1.sdf")

Dim cmd As New SqlCeCommand(" SELECT COUNT(name) FROM Tables WHERE name = @name ", cn)
cmd.Parameters.AddWithValue("@name", _name)

cn.Open()
If cmd.ExecuteScalar = 0 Then
   cmd.CommandText = " INSERT INTO Tables(name, dati, time ) VALUES(@name, @date, @time ) "
   cmd.Parameters.AddWithValue("@dati", _dati)
   cmd.Parameters.AddWithValue("@time", _time)

   MsgBox("add " & _name)

Else
   MsgBox("Duplicate " & _name)

End If
cn.Close()