[مساعدة]

السلام عليكم

هذه أول مساعدة في هذا المنتدى

مع أن الكود سيضيف في كلا الحالتين، ولكن اعتمدت على توضيحك الأخير

كود :

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 ) "
    daa.SelectCommand.Parameters.AddWithValue("@dati", _dati)
    daa.SelectCommand.Parameters.AddWithValue("@time", _time)

    MsgBox("add " & _name)

Else
    MsgBox("Duplicate " & _name)

End If
cn.Close()